Bonsoir à tous,
J'aimerai s'il vous plait avoir votre aide pour comprendre certaines lignes de codes que je n'ai pas encore assimilé, dont je ne comprend pas le langage.
Pouvez-vous m'éclairer sur les lignes ci-dessous en rouge :
Private Sub UserForm_Initialize()
Sheets("Work").Activate
a = 0
x = 9
While Sheets("Work").Cells(x, 3).Value <> ""
UserForm3.liste_nom.AddItem (Sheets("Work").Cells(x, 3).Value)
UserForm3.liste_nom.List(a, 1) = Sheets("Work").Cells(x, 1).Value
a = a + 1
x = x + 1
Wend
End Sub
Les lignes en noir je comprend mais les lignes en rouge je n'arrive pas à percevoir l'action que cela engendre.
Merci d'avance de votre aide à tous.
Très bonne soirée.
A bientôt
Jo
J'aimerai s'il vous plait avoir votre aide pour comprendre certaines lignes de codes que je n'ai pas encore assimilé, dont je ne comprend pas le langage.
Pouvez-vous m'éclairer sur les lignes ci-dessous en rouge :
Private Sub UserForm_Initialize()
Sheets("Work").Activate
a = 0
x = 9
While Sheets("Work").Cells(x, 3).Value <> ""
UserForm3.liste_nom.AddItem (Sheets("Work").Cells(x, 3).Value)
UserForm3.liste_nom.List(a, 1) = Sheets("Work").Cells(x, 1).Value
a = a + 1
x = x + 1
Wend
End Sub
Les lignes en noir je comprend mais les lignes en rouge je n'arrive pas à percevoir l'action que cela engendre.
Merci d'avance de votre aide à tous.
Très bonne soirée.
A bientôt
Jo