Incrémenter une variable en cliquant sur un bouton

Bonjour les pros du VBA,

voilà ce que je cherche à faire, j'ai une Frame avec 3 ComBox je récupéré leurs contenu concaténé
dans une variable, que j’envoie dans une textbox par l'appui sur le bouton, est je voudrais qu'a chaque appui la variable s'incrémente.
est la je bloque sur la boucle, si je peux avoir un coup de pouce merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub CommandButton2_Click() Dim Tracteur, RQ, Engin, Attelage As String Dim compteur As Byte   If ComboBox1 <> "" And ComboBox2 <> "" And ComboBox3 <> "" Then Tracteur = ComboBox1.Value RQ = ComboBox2.Value Engin = ComboBox3.Value   TextBox1.SetFocus   compteur = textbox1.LineCount Attelage = Tracteur & " - " & RQ & " - " & Engin TextBox1 = "Attelage " & compteur & vbCrLf   End If   'ComboBox1.Value = "" 'ComboBox2.Value = "" 'ComboBox3.Value = "" ' 'CheckBox2.Value = False 'TextBox13.Value = 0 ' 'Call masquageComplet   End Sub

---

j'ai trouver la réponse à ma question si sa peux aider, voilà ce que j'ai modifier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub CommandButton2_Click() Dim Tracteur, RQ, Engin, Attelage As String Dim compteur As Byte If ComboBox1 <> "" And ComboBox2 <> "" And ComboBox3 <> "" Then Tracteur = ComboBox1.Value RQ = ComboBox2.Value Engin = ComboBox3.Value TextBox1.SetFocus compteur = TextBox1.LineCount Attelage = Tracteur & " - " & RQ & " - " & Engin TextBox1 = TextBox1.Value & "Attelage " & compteur & vbCrLf End If 'ComboBox1.Value = "" 'ComboBox2.Value = "" 'ComboBox3.Value = "" ' 'CheckBox2.Value = False 'TextBox13.Value = 0 ' 'Call masquageComplet End Sub

---