XL 2013 cherche de l'aide pour VLookup

[filtre69]

Bonjour le forums

J'ai récupéré un tableau qui fonctionne très bien j'ai rajouté 2 textebox pour récupérer des informations visa vis de la combobox3 avec VLookup mais malheureusement je n'y arrive pas.
Pouvez-vous m'aide.
Merci Cordialement

 

[youky(BJ)]

Bonjour filtre69,
Ajoute ceci à ton code
Bruno

Private Sub CBx3_Change()
Dim lig%
With Sheet3
For lig = 2 To .[A65000].End(3).Row
If .Cells(lig, 3) = CBx3 And .Cells(lig, 4) = Val(TBx1) Then TBx2 = .Cells(lig, 5): Exit Sub
Next
End With
End Sub

 

[filtre69]

Bonjour youky,
Merci de m'aider comme d'habitude.
cela fonctionne mais j'ai fait une petite erreur dans mon fichier
Me.TBx1.Value = WorksheetFunction.VLookup(Me.CBx2, MyTableArray, 3, 0) si je laisse comme cela il fonctionne mais je voulais passe tout par la combobox3
Me.TBx2.Value = WorksheetFunction.VLookup(Me.CBx3, MyTableArray, 4, 0)

comme cela
Me.TBx1.Value = WorksheetFunction.VLookup(Me.CBx3, MyTableArray, 3, 0)
Me.TBx2.Value = WorksheetFunction.VLookup(Me.CBx3, MyTableArray, 4, 0)
si cela est possible.
Comment faire si je dois rajouter une voir 2 texbox dans le future.

encore merci
Cordialement

 

[youky(BJ)]

Re,
Etant donné qu'il y a des doublons dans chaque colonne un Vlookup ne marchera jamais.
Le Vlookup renverra toujours la 1ère occurrence.
Je ne vois rien d'autre qu'une boucle.
Bruno

 

[filtre69]

Re,
compris comment faire pour alimenté deux autres texbox en plus et a la suite?

Merci
Cordialement

 

[youky(BJ)]

Re,
ICI TBx3 et TBx4 colonne de Cells à adapter.
La variable lig donne la ligne, après c'est facile
Bruno

Private Sub CBx3_Change()
Dim lig%
With Sheet3
For lig = 2 To .[A65000].End(3).Row
If .Cells(lig, 3) = CBx3 And .Cells(lig, 4) = Val(TBx1) Then
TBx2 = .Cells(lig, 5)
TBx3=.Cells(lig,6)
TBx4=.Cells(lig,7)
 Exit Sub
End if
Next
End With
End Sub

 

[filtre69]

Re,
Super Grand merci.
Cordialement

 

[filtre69]

Bonjour youky, Forum
J'ai encore une demande a faire si possible.
J'ai recherché sur le net mais pas trouver ce que je voulais faire.
J'ai mis une liste box qui fonctionne trés bien mais je voudrais arrivée a faire :
choisir une ligne dans la liste box clique deux fois dessus et aller sur cette ligne dans la feuille.
Merci d'avance
Cordialement

 

[youky(BJ)]

Salut bien,
Dans la listbox j'ai ajouté 1 colonne pour y loger le N° de la ligne.
Mis les fonts en propriété plutôt que dans la macro.
Revoir columnwidth en propriété pour ajuster selon besoin.
Un simple click en listbox sélectionne la ligne désirée.
J'ai pas fermé l'user si tu le veux mais ca tu sais faire.
Bruno

 

[filtre69]

Re
Merci merci et merci.
Si je dois rajouter des colonnes je peux le faire sans probléme?
Encore merci

 

[youky(BJ)]

Yes
Pas de PB pour ajouter des colonnes
Faut adapter
Bruno

 

[Dranreb]

Bonsoir.
Avec ma ressource à télécharger l’adaptation de la programmation consisterait simplement à ajouter une seule instruction pour chaque colonne supplémentaire.

 

[filtre69]

Bonsoir,
Merci de votre proposition.
J'ai oublier de fermé le poste