Discussion :

[backdraf]

Bonjour,
Mon probleme est de faire un compteur , qui s'affiche lorsque ma macro se deroule. Dans ce compteur je veux mettre la valeur de la variable de ma macro est qu'elle croisse en fonction de la valeur de cette variable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
code macro :
for lig = 2 to derniere valeur
 
next lig

je veux donc mettre la valeur de "lig" dans un userform pour que l'on puisse suivre le deroulement de la macro. mais je ne sais pas ou mettre le code ni si faire un userform est la bonne solution car j'ai essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox(lig)

mais il faut cliquer a chaque fois pour faire disparaitre la boite de dialogue

et si je mets le code dans l'userform (je suis un debutant avec les userform ) rien ne marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub compteur()
compteur.Show vbModeless
Me.ListBox1 = Lig
Unload Me
End Sub

MERCI POUR VOS CONSEILS

[jfontaine]

Bonjour,

ci dessous un bout de code

le userform1 contenant uniquement un label pour l'affichage du compteur

Code bouclant et mettant a jour le label

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim i As Long
 
UserForm1.Show 0
 
For i = 0 To 65000
 
    UserForm1.Label1.Caption = i
    UserForm1.Repaint
 
Next i

[backdraf]

Merci Jfontaine
c'est ce que je voulais faire. car avec cette version j'avais le probleme d'une mise a jours moins fluide que ta solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sheets(NomFeuilleALD).Shapes.AddTextbox(msoTextOrientationHorizontal, 317.25, 80#, _
'                   208#, 30#).Select
'                Selection.Name = "Variable"
'               With Selection.Font
'                   .Name = "Arial Black"
'                   .FontStyle = "Normal"
'                   .Size = 20
'                   .Strikethrough = False
'                   .Superscript = False
'                   .Subscript = False
'                   .OutlineFont = False
'                   .Shadow = False
'                   .Underline = xlUnderlineStyleNone
'                   .ColorIndex = xlAutomatic
'               End With
'Sheets(NomFeuilleALD).Shapes("Variable").Visible = True

Un grand merci pour ton aide