Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Explication de code VBA

11 réponses
Avatar
Pierre93
Bonsoir,

Quelqu'un pourrait m'expliquer cette partie de code récupéré sur un exemple
:

Private Sub CmdValider_click()
Dim Ligne%, Colonne%, y$
If Me.ComboBox1 = "test" then Colonne = 1
....

With Sheets(x)
For i = To .Cells(Rows.Count, 1).End(xlUp).row
If .Cells(i, 3).Text = y then
Ligne = .Cells(i, 3).Row
.Cells(Ligne, Colonne + 5) = Me.ComboBox2.Value
.Cells(Ligne, Colonne + 16) ) Me.ComboBox3.value
End if
Next
...
End With
End Sub

Merci d'avance.

koukou40

1 réponse

1 2
Avatar
Jacky
http://www.cijoint.fr/cjlink.php?file=cj200803/cij26sKU5G.pps
1 2