Discussion :

[gds35]

Mes AMIS DU FORUM , Bonjour et Bonne Semaine,

Dans un USF , je charge une Combobox provenant de la colonne A d'une Feuille . Puis je selectionne une valeur de la combobox que je charge dans une variable. Soit VALPROD = 'NOM Combobox".Value pour un futur traitement.
Je cherche a récuperer le N0 de ligne dans la feuille correspondant à la valeur de VALPROD ......
Malgre plusieurs essais je ne trouve pas la solution.
Pourriez vous m'aider ????

Cordialement GDS35

[rjamin]

Bonjour,

En principe la fonction EQUIV(Valeur_Cherchée;Tableau_Recherche;0)

Argument 1 : Valeur cherchée pour vous = ValProd
Argument 2 : Tableau de recherche = la colonne du tableau qui contient la valeur cherchée
Argument 3 : 1, 0 ou -1 0 = valeur exacte
Le résultat est le numéro de la ligne dans le tableau de recherche.

[casefayere]

Bonjour,
autre solution est d'ajouter une colonne dans la combobox avec le N° de ligne
et de récupérer ensuite, ou passer par "Find"

[gds35]

Merci a RJAMIN et CASEFAYERE de vos reponse ,

Je ne vois pas comment apres plusieurs essais ecrire le code ?
Une Idee ???
Merci Cordialement GDS35

[rjamin]

Re,

Un peu de lecture pourrait vous aider peut-être.

http://silkyroad.developpez.com/excel/indexequiv/

Bon travail

[gds35]

merci , de ton post

mais c'est le cod en vba que je n'arrive pas a realiser

cordialement et encore merci gds35

[casefayere]

exemple :
Ton combobox se nomme "combobox1, tes données vont de A2 à A20
dans l'évènement userform_initialize si tu utilise un USF, ou dans un evenement du combobox (controle activex), s'il est directement sur la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim lg As Long
ComboBox1.ColumnCount = 2
For lg = 2 To 20
    ComboBox1.AddItem Range("a" & lg)
    ComboBox1.Column(1, ComboBox1.ListCount - 1) = lg
Next lg

[gds35]

Merci de ton aide dans l'USF initialize j'ai entre ton code.
a l'execution je tombe sur l'erreur 70 acces refuse ?????

Cordialement GDS35

[casefayere]

Comme je ne sais pas grand chose sur ta feuille, il faut peut-être traduire mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim lg As Long 'variable qui servira pour la boucle
ComboBox1.ColumnCount = 2 'nombre de colonnes dans le combo mais change le nom de celui-ci s'il n'est pas bon
For lg = 2 To 20' un exemple jusque 20
    ComboBox1.AddItem Range("a" & lg) '1ere colonne si les données sont en A et i tu es sur la bonne feuille, sinon déclares ta feuille tu verras le code avec "with" ci-dessous
    ComboBox1.Column(1, ComboBox1.ListCount - 1) = lg 2eme colonne
insérant le numéro de ligne
Next lg'fin de la boucle

avec with

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim lg As Long
nomcombo.ColumnCount = 2
With sheets("nom de ta feuille")
   For lg = 2 To 20
       nomcombo.AddItem .Range("a" & lg)
       nomcombo.Column(1, ComboBox1.ListCount - 1) = lg
   Next lg
end with

[gds35]

Encore grand merci de ton aide casefayere.

En cherchant bien dans mon cerveau de moineau , voila ce que j'ai pondu pour alimenter mon bebe pour la suite .

j'ai mis dans une variable "VALPROD" la valeur de ma Combobox puis
j'ai recherche la ligne en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LigneProd = Range("A2:A65536").find(VALPROD,lookat:=xlwole).Row

et en faisant un msgbox de ligneProd il me renvoi bien le n0 de ligne correspondant.

Merci encore d'avoir passe de ton temps sur mon probleme.

Des + cordialement GDS35