Discussion :

[tony76]

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 :

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

[tony76]

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

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