Explication de code pour remplir des Label

Bonjour à tous,

J'ai trouvé ce code qui devrait me permettre d'alimenter des Label en fonction d'un choix fait dans une ComboBox, sauf que je ne comprends pas tout le code.

Pourriez-vous m'apporter votre lumière s'il vous plait ?
Je vous en remercie par avance

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ComboBox1_Change() Dim C As Range, i As Byte Set C = ActiveSheet.Cells.Find(What:=ComboBox1) 'Là je ne comprends pas If Not C Is Nothing Then For i = 4 To 6 'Là non plus Me.Controls("Label" & i).Caption = C.Offset(0, i - 3).Value 'Là non plus Next i End If End Sub

---

bonjour
ce n'est qu'une explication d'un débutant et autodidacte donc un risque d'erreur à ne pas négliger :aie:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ComboBox1_Change() ' événement se déclenche suite au changement de la valeur de la combobox Dim C As Range, i As Byte Set C = ActiveSheet.Cells.Find(What:=ComboBox1) ' chercher dans la feuille active la valeur de la combobox If Not C Is Nothing Then 'si la valeur de la combobx existe dans l'une des cellule de la feuille active alors For i = 4 To 6 ' puisque tes label nommé label 4 , label 5 , label 6 donc i va de 4 à 6 Me.Controls("Label" & i).Caption = C.Offset(0, i - 3).Value ' attribuer les résultats de recherche ci haut effectué : Me.Controls("Label" & i).Caption = label 4 = la cellule trouvée et i-3 parce que le nom de tes label commence par 4 donc pour revenir au premier résultat on tranche 3 et ainsi de suite Next i ' remplir la deuxieme label c'est à dire label 5 et puis label 6 End If 'fin de condition End Sub

---

BONNE CONTINUATION

Bonjour BENNASR et merci pour ta réponse.

Je comprends mieux à présent et je vais pouvoir avancer.

Très cordialement

Vba14

Je reviens sur cette discussion car je souhaiterai avoir une explication supplémentaire :

Citation:

---

For i = 4 To 6 ' puisque tes label nommé label 4 , label 5 , label 6 donc i va de 4 à 6

---

sauf que dans mon cas, tout mes Label sont nommés (Label_Person, Label_Prépa, etc...) et il y en a 10.

Est-ce que je peux passer par le n° Index et si oui comment ?

Merci par avance pour vos réponses

normalement le i est le numéro d'index et non pas la caption

Ah ok, je n'avais pas compris.
Merci

Par contre est-ce qu'il faut que les N° d'Index suivent l'ordre de classement de mes colonnes dans mon tableau. Par exemple l'Index1 doit correspondre à la colonne A, l'Index2 colonne B, etc...

Je reviens un instant sur cette discussion afin de trouver une réponse à ma question précédente, faut-il que les N° d'Index suivent l'ordre de mes colonnes du tableau Excel ?

Colonne A pour Index 1, Colonne B pour Index 2, etc...

Merci par avance pour vos réponse

re
ben change leur tabindex dans les propriétés c'est tout comme ca tu les met dans l'ordre que tu veux sans les deplacer ni quoi que ce soit
c'est pas compliqué;)

Bonjour Patrick,

Oui c'est ce que j'ai fait. Désolé j'aurai dû clôturer cette discussion car j'avais trouvé la solution.

Encore toutes mes excuses

Amicalement