Recherche une valeur depuis une listebox

Bonjour à tous, je fais du VBA depuis 3 jours et la je n'arrive plus à avancer.

Je vais essayer de faire clair:

J'ai une liste de N°dans un useform,

je voudrais rechercher dans mon tableau source le numero de demande que j'ai selectioner dans ma listebox afin d'activer la cellule juste a droite pour y insérer du texte.

Je vous joint mon fichier.

Le useform en question s’appel "frmchiffrage".

Un grand merci à vous

ps: 5h que je bloque la dessus! moquez vous je vous autorise

Bonjour,

Connaissant le numéro d'index de la ListBox, il te suffit juste d'appliquer le décalage par rapport au tableau, 2 en l'occurrence et de définir le numéro de colonne voulue :

Private Sub btnvaliderchiffrage_Click()

    Worksheets("Source").Cells(lstachiffrer.ListIndex + 2, 8).Select

End Sub

Bonjour à tous, je fais du VBA depuis 3 jours et la je n'arrive plus à avancer.

Je vais essayer de faire clair:

le numero de demande que j'ai selectioner dans ma listebox afin d'activer la cellule j

Le useform en question s’appel "frmchiffrage".

Un grand merci à vous

ps: 5h que je bloque la dessus! moquez vous je vous autorise

Désolé mais c'est pas clair Je ne vois aucune listebox dans le userform sur le numéro de demande

juste une combobox sur le nom du fournisseur.

Hello,

Merci de prendre le temp.

Dans mon useform "formchiffrage" il y a une liste multicolone qui s'appel "lstachiffrer".

Mon objectif est d’insérer les infos de ce formulaire dans la la feuille "source" sur la ligne qui correspond a celle sélectionner au préalable dans ma listbox.

Le numero de demande corespond à la 8eme colone de cette listbox

Je viens de tester cette ligne mais ca me renvoi une erreur

capture

mon fichier a jour avec ta ligne:

Bonjour,

Connaissant le numéro d'index de la ListBox, il te suffit juste d'appliquer le décalage par rapport au tableau, 2 en l'occurrence et de définir le numéro de colonne voulue :

Private Sub btnvaliderchiffrage_Click()

    Worksheets("Source").Cells(lstachiffrer.ListIndex + 2, 8).Select

End Sub

Le problème est résolu ! merci Beaucoup

Rechercher des sujets similaires à "recherche valeur listebox"