piga25
XLDnaute Barbatruc
Bonjour,
Dans le fichier joint, en cliquant dans une cellule du tableau cela ouvre un Userform. C'est là que j'ai un problème, après avoir renseigné les 3 combobox de l'EPI concerné, le code suivant devrait normalement me renseigner les 2 label (dernière vérification) - Je n'arrive pas a afficher la ligne qui correspond au critères des 3 combobox.
Dans le fichier joint, en cliquant dans une cellule du tableau cela ouvre un Userform. C'est là que j'ai un problème, après avoir renseigné les 3 combobox de l'EPI concerné, le code suivant devrait normalement me renseigner les 2 label (dernière vérification) - Je n'arrive pas a afficher la ligne qui correspond au critères des 3 combobox.
VB:
Private Sub RenseignerLabels()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim rowNum As Long
' Boucle à partir de la ligne 6 jusqu'à la dernière ligne non vide de la colonne A
For rowNum = 6 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' Vérifie si les valeurs des cellules correspondent aux ComboBox 1, 3 et 4
If ws.Cells(rowNum, 1).Value = Me.ComboBox1.Value And _
ws.Cells(rowNum, 3).Value = Me.ComboBox3.Value And _
ws.Cells(rowNum, 4).Value = Me.ComboBox4.Value Then
' Remplir Label10 avec la valeur de la colonne 11 (date de vérification)
Me.Label10.Caption = ws.Cells(rowNum, 11).Value ' Date de vérification
' Remplir Label11 avec la valeur de la colonne 5 (statut)
Me.Label11.Caption = ws.Cells(rowNum, 5).Value ' Statut
' Afficher le numéro de la ligne dans un label (par exemple Label12)
'Me.Label12.Caption = "Ligne correspondante : " & rowNum
' Quitter la boucle une fois la ligne correspondante trouvée
Exit For
End If
Next rowNum
End Sub
Pièces jointes
Dernière édition: