Recuperé une variable dans userform

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:

---

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:

---

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:

---

1 2 3 4 5

Private Sub compteur() compteur.Show vbModeless Me.ListBox1 = Lig Unload Me End Sub

---

MERCI POUR VOS CONSEILS

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:

---

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

---

Merci Jfontaine :ccool:
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:

---

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 :lahola: