Bonjour,
J'ai trouvé une code que j'ai adapté à mes besoins (et qui fonctionne), mais le hic c'est que je ne comprends pas tout.
Il y a t'il une personne qui pourrait me l'expliquer en détaille (ligne par ligne svp) avec des mots simples (je suis novice)
1000 merci d'avance
voici le code :
Dim Cellule As Range
Dim Art As String
Art = ComboBox4.Value
With Worksheets("Véhicule").Range("A1:A242")
Set Cellule = .Find(Art, Lookat:=xlWhole)
If Not Cellule Is Nothing Then
firstAddress = Cellule.Address
Do
Cellule.Offset(0, 1).Value = ComboBox2.Value
Cellule.Offset(0, 2).Value = ComboBox3.Value
Exit Sub
Set Cellule = .FindNext(Cellule)
Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
End If
End With
Peut-on me dire pourquoi alors que j'ai plusieurs fois la valeur dans ma colonne il ne fait qu'une fois sa boucle (il ne modifie qu'une valeur) ?[/blue]
J'ai trouvé une code que j'ai adapté à mes besoins (et qui fonctionne), mais le hic c'est que je ne comprends pas tout.
Il y a t'il une personne qui pourrait me l'expliquer en détaille (ligne par ligne svp) avec des mots simples (je suis novice)
1000 merci d'avance
voici le code :
Dim Cellule As Range
Dim Art As String
Art = ComboBox4.Value
With Worksheets("Véhicule").Range("A1:A242")
Set Cellule = .Find(Art, Lookat:=xlWhole)
If Not Cellule Is Nothing Then
firstAddress = Cellule.Address
Do
Cellule.Offset(0, 1).Value = ComboBox2.Value
Cellule.Offset(0, 2).Value = ComboBox3.Value
Exit Sub
Set Cellule = .FindNext(Cellule)
Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
End If
End With
Peut-on me dire pourquoi alors que j'ai plusieurs fois la valeur dans ma colonne il ne fait qu'une fois sa boucle (il ne modifie qu'une valeur) ?[/blue]
Dernière édition: