Utilisation de la fonction Recherchev dans usf

[zombe]

Salut le forum
Je souhaite utiliser la fonction RechercheV dans un userform mais j'ai pas la solution car je ne sais pas le faire en vba.
En effet, dans mon combobox1, lorsque je choisis un élément, je souhaite que les éléments correspondants et situés sur la même ligne s'affichent dans certaines cellules(C5 et C6 de la feuille Facture).
Ex:si je choisis CI-BF dans mon combobox1, en C5 et C6 de la feuille Facture, je souhaite que les valeurs F8 et G8 s'affichent respectivement.
Si c'était une simple formule, j'écrirai en C5 : =recherchev(INFO!E15;Base_donne!E6:G9;2;faux) et en C6 : =recherchev(INFO!E15;Base_donne!E6:G9;3;faux)
J'espère m'avoir bien exprimé sinon merci de voir mon idée.

 

[Dull]

Re : Utilisation de la fonction Recherchev dans usf

Salut zombe, le Forum

Peut être comme cela

Option Explicit
Dim C As Range
Private Sub ComboBox1_Change()
Set C = Sheets("Base_donne").Columns("E").Find(What:=ComboBox1)
MsgBox "Le trajet " & ComboBox1 & Chr(10) & Chr(10) & "National est " & C.Offset(, 1) & Chr(10) & "Etranger est " & C.Offset(, 2)
With Sheets("Facture")
    .Range("C5") = C.Offset(, 1)
    .Range("C6") = C.Offset(, 2)
End With
Unload Me
End Sub

Bonne Journée

 

[frangy]

Re : Utilisation de la fonction Recherchev dans usf

Bonjour à tous,

Une autre approche. Tu peux établir une relation entre le numéro d'index de la liste dans la ComboBox et le numéro de ligne dans la feuille Base_Donne.
Lorsque tu choisis CI-BF , tu sélectionnes l'index 2 de la ComboBox1.
Cet index 2 correspond à la ligne 8 dans Base_Donne, ce qui se traduit par la relation N°Ligne=N°Index + 6
Pour copier dans Facture!C5 la valeur de Base_Donne!F8 , il suffit d'écrire

WorkSheets("Facture").range("C5")=WorkSheets("Base_donne").range("F"& ComboBox1.ListIndex +6)

A+

 

[zombe]

Re : Utilisation de la fonction Recherchev dans usf

Salut frangy

Merci pour vos 2 solutions.
Elles sont superbe.
Satisfait à 100%.