Bonjour Ronnie, bonjour le forum,
En pièce jointe ton fichier modifié avec le code ci-dessous :
Private F As Worksheet 'déclare la variable F (onglet Formulaire)
Private L2 As Worksheet 'déclare la variable L2 (onglet Liste 2)
Private TS As ListObject 'déclare la variable TS (Tableau Structuré)
Private Sub UserForm_Initialize()
Set F = Worksheets("Formulaire") 'définit l'onglet F
Set L2 = Worksheets("Liste2") 'définit l'onglet L2
Set TS = L2.ListObjects("Tableau1") 'définit le tableau structuré TS
End Sub
Private Sub btnImprimer_Click() 'bouton "Entrer"
Dim I As Integer 'déclare la variab le I (Incrément)
For I = 1 To TS.ListRows.Count 'boucle sur toutes les lignes I du tableau structuré TS
'condition : si la donnée ligne I colonne 1 de TS est égalà à la combobox [cboModele] et
'si la donnée ligne I colonne 2 de TS est égale à la combobox [cboPui]
If TS.DataBodyRange(I, 1).Value = Me.cboModele.Value And TS.DataBodyRange(I, 2).Value = Me.cboPui.Value Then
Me.txtPrix = TS.DataBodyRange(I, 3).Value 'récupère la valeur de la donnée ligne I colonne 3 dans la textbox [txtPrix]
Exit For 'sort de la boucle
End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub
Private Sub btnFermer_Click()
Unload Me 'vide et ferme l'UserForm en cours
End Sub
Le fichier :