Rapport de message :*
 

Re: Probléme de code

Titre du sujet : Re: Probléme de code
par beatbles le 21/08/2012 13:22:46

Bonjour mth et bonjour a tous

Oui j'ai le code suivant :
Private Sub UserForm_Initialize()

Dim T As Currency

Sheets("Feuille").Activate

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

avd1 = Format(T, "#,##0.00 €")
Stop
et comme vous je n'ai pas compris pourquoi il ne fonctionner pas quand je l'ai mis dans mon projet, dont vous avez le début du code qui m' insérer le total dans la variable "avdl".

Je vous joint une copie d'écran qui n'ai pas bien grande ou vous pourrez voir que T est égale a zéro dans mon projet.
Je vois ce que je pourrais vous apporter de plus
Bien cordialement