Discussion :

[Vba14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vba14]

Bonjour BENNASR et merci pour ta réponse.

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

Très cordialement

Vba14

[Vba14]

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

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

[BENNASR]

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

[Vba14]

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