Rapport de message :*
 

Probléme de code

Titre du sujet : Probléme de code
par beatbles le 20/08/2012 16:20:29

Bonjour a tous

 

Voulant effectuer le total de certaine colonne dans mon projet j’ai récupérer le code suivant :

 

Sheets("Feuille").Activate

t = Application.WorksheetFunction.Subtotal(9, Columns(4))

Range("M1") = t

 

Ce code se trouvant dans un module, code qui fonctionne très bien dans un petit programme.

 

Le problème pour moi je pense ? C’est que mon code pour réaliser le total ce trouve dans un UserForm

 

Voici le code qui se trouve dans l’initialisation de l’UserForm

 

Sheets("Feuille").Activate

 

T = Application.WorksheetFunction.Subtotal(9, Columns(10))

 

Le premier total devant s’effectuer dans la colonne 10, mes T reste toujours a 0

 

L’un de vous aurait ils la solution pour effectuer cela depuis l’UserForm

 

J’ai refait le test a plusieurs reprise et toujours 0

 

Dans l’attente bien cordialement a tous