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
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
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.
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
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
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
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
Bonsoir.
Avec ma ressource à télécharger l’adaptation de la programmation consisterait simplement à ajouter une seule instruction pour chaque colonne supplémentaire.