recupérer infos d'une ligne

Efgé

XLDnaute Barbatruc

• 25 Mars 2011

• #16

Re : recupérer infos d'une ligne

Re
Supprime cette ligne dans mon exemple:

VB:

Range(Cells(15, 1), Cells(Rows.Count, 1).End(xlUp).Offset(0, NbrCol - 1)).ClearContents

Colle tes données réelles sur la feuille1 de mon fichier et regarde si cela te va.
Cordialement

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 25 Mars 2011

• #17

Re : recupérer infos d'une ligne

Re,

Macro pour Macro : avec un Userform appelé par double clic.
(Pas de gardes-fous sinon l'asile se transforme en usine à gaz !)

 

Pièces jointes

• UsF DoubleClic.zip

  18.6 KB · Affichages: 27

Vote positif 0 Vote négatif

zesuila

XLDnaute Occasionnel

• 25 Mars 2011

• #18

Re : recupérer infos d'une ligne

Fo-Rum merci c'est excellent
Efgé effectivement cela n'efface plus mes valeurs mais en revanche toujours la liste complète du fournisseur qui apparait.
je vais prendre la solution de Fo-rum mais si tu peux quand même voir pour n'avoir qu'une ligne demandée je suis preneur
merci à vous deux

 

Vote positif 0 Vote négatif

zesuila

XLDnaute Occasionnel

• 29 Mars 2011

• #19

Re : recupérer infos d'une ligne

bonjour le Forum Fo-rum
bon finalement le fichier de Fo-rum a un petit soucis (pas eu le temps de le regarder avant aujourd 'hui.
En effet dans le tableau de la feuille base si je choisis la 1ere ligne je met un choix c'est ok, si je me suis trompé je remets un choix il change bien les valeurs dans fourn et article mais pas dans le reste
et c'est d'ailleurs idem pour les autre lignes
il ne prend en compte que les deux cellules (fourn et article)
je ne suis sûr que c'est rien mais ...

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 29 Mars 2011

• #20

Re : recupérer infos d'une ligne

Bonjour,

il y a bien une erreur.
Remplace

• Cells(ActiveCell.Row, Col + 2) = .List(.ListCount - 1, Col)

par

• Cells(ActiveCell.Row, Col + 2) = .List(ListBox1.ListIndex, Col)

 

Vote positif 0 Vote négatif

zesuila

XLDnaute Occasionnel

• 29 Mars 2011

• #21

Re : recupérer infos d'une ligne

merci fo-rum cela a l'air de fonctionner. je n'ai plus quà tenter de comprendre ce code !
pas gagné !!! 😱

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 29 Mars 2011

• #22

Re : recupérer infos d'une ligne

Re,

fichier corrigé avec une page pour les explications du code.

 

Pièces jointes

• UsF DoubleClic.xls

  49 KB · Affichages: 39

Vote positif 0 Vote négatif

zesuila

XLDnaute Occasionnel

• 30 Mars 2011

• #23

Re : recupérer infos d'une ligne

merci Fo-rum pour les explications

 

Vote positif 0 Vote négatif