Fonction IF THEN avec deux conditions et affichage de prix automatique

Bonjour,

Je me demande si quelqu'un peut m'aider. Je souhaite configurer un formulaire  de manière à ce que 2 conditions soient remplies afin afficher une valeur dans la textbox. (Fonction if, then)

En d'autres termes, si mon modèle de voiture est "A" et sa puissance est "B", j'ai besoin que le prix "C" apparaisse automatiquement dans la textbox du prix. PS : je préfère remplir les prix manuellement sans avoir à passer par les feuilles de calculs feuilles de calcul.

J'ai essayé ce code mais le prix ne s'affiche pas comme je le souhaiterais.

<pre>Private Sub Formulaire_activate()
If cboModele.Value = "Toyota" And cboPuissance.Value = "120 hp" Then
txtPrix.ShowValue = "10.000"
End If
End Sub</pre>

Je vous remercie d'avance :)

Bonjour Ronnie et bienvenu, bonjour le forum,

Le fichier qui va bien nous permettrait de mieux cerner ton problème et de tester une éventuelle solution sans avoir a tout créer nous-même...

Merci ThauThème.

Le voici, je viens de le commencer :

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 :

Bonjour Thauthème, merci d'avoir pris le temps de me répondre.

J'ai essayé le fichier que tu m'as envoyé et ca marche parfaitement bien, cependant j'aimerais que le prix s'affiche sans devoir appuyer sur le bouton "Entrer".

Je ne sais pas si c'est possible de le faire. Merci d'avance.

Re,

En pièce jointe la version 2 adaptée :