XL 2013 cherche de l'aide pour VLookup

youky(BJ)

XLDnaute Barbatruc

• 10 Juillet 2021

• #2

Bonjour filtre69,
Ajoute ceci à ton code
Bruno

VB:

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

 

Vote positif 0 Vote négatif

F

filtre69

XLDnaute Occasionnel

• 10 Juillet 2021

• #3

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

 

Dernière édition: 10 Juillet 2021

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 10 Juillet 2021

• #4

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

 

Vote positif 0 Vote négatif

F

filtre69

XLDnaute Occasionnel

• 10 Juillet 2021

• #5

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

Merci
Cordialement

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 10 Juillet 2021

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

F

filtre69

XLDnaute Occasionnel

• 10 Juillet 2021

• #7

Re,
Super Grand merci.
Cordialement

 

Vote positif 0 Vote négatif

F

filtre69

XLDnaute Occasionnel

• 12 Juillet 2021

• #8

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

 

Pièces jointes

• Dependant ComboBox-test1 (1).xlsm

  33.4 KB · Affichages: 3

Dernière édition: 12 Juillet 2021

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 12 Juillet 2021

• #9

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

 

Pièces jointes

• Dependant ComboBox-test1 (1).xlsm

  32.6 KB · Affichages: 3

Vote positif 0 Vote négatif

F

filtre69

XLDnaute Occasionnel

• 12 Juillet 2021

• #10

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 12 Juillet 2021

• #11

Yes
Pas de PB pour ajouter des colonnes
Faut adapter
Bruno

 

Vote positif 0 Vote négatif

Solution

Dranreb

XLDnaute Barbatruc

• 13 Juillet 2021

• #12

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

 

Vote positif 0 Vote négatif

F

filtre69

XLDnaute Occasionnel

• 14 Juillet 2021

• #13

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

 

Vote positif 0 Vote négatif