VBA Rechercher colonne

Bonjour,

Je suis débutant en VBA et je cherche a trouver dans le numero de la colonne ou il trouve une valeur spécifique.

Exemple : j'ai un tableau avec a la ligne des valeurs (val1, val2, val3)

J'ai un code qui doit trouver dans quels colonne il trouve la valeur val1 avec Find mais pas moyen de la faire marcher.

Code:

---

numcolonnevaleur = Sheets("Ref").Column.Find(Listedevaleur)

---

numcolonnevaleur est le numero qu'il devrai trouver en résultat de ma recherche
ref est la feuille ou il y a mes valeur
listedevaleur est en faites une case ou il y a une combobox et la valeur qui est choisi est (soit val1, val2 ou val3)

Si il a choisi val1 alors listedevaleur = val1

Donc je chercherai dans mon code a trouver dans la feuille "ref" le numero de la colonne ou il y a val1

Merci


EDIT : quand j'éxécute mon code il me dit Erreur 438 "Propriété ou Methode non gérer par cet objet

Code:

---

1 2 3 4 5 6 7

With Worksheets(1).Range("a1:a500") ' à adapter Set c = .Find(Listedevaleur, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address 'c.Column pour la colonne .... End If End With

---

Ceci tiré de l'aide gratuite de vba :f1:

Je n'arrive pas vraiment a comprendre comment faire :?

J'ai fais ceci :

Code:

---

1 2 3

With Sheets("Ref") numcolonnevaleur = Column.Find(Listedevaleur) End With

---

Il me fait Erreur Objet Requis

Bonjour tu as pris ce qui n'est pas utile et jeté ce qui est utile regarde l'aide sur le Set et le with et trouve le quel doit être conservé ;) et comment utiliser le with (il te manque un . )

De plus j'aimerais bien savoir ce que tu veux dire par column car il faut utiliser un range avat le find le plus simple étant de faire

Code:

---

range("A1:D25").find

---

par exemple

Bah c'est sa le truc c'est que je c'est pas vraiment comment mi prendre...

pour Column.Find je sais même pas si c'est bon...


en faite je connais deja la ligne qui est 46 .

Et avec ce code ci, je souhaiterai trouver le numero de la colonne ou on retrouve la valeur choisi (variable "listedevaleur")

balors le columnbs n'est pas bon
tu peux chercher dans

Code:

---

worksheets("Tafeuille").Range("A46:IV46").find(....

---

Je te laisse fouiller les contribution forum excel sous forum contribuer en page 2 pour avoir la dernière colonne

Je te laisse également lire l'aide avant de t'aider d'avantage. Essaye de corrigé le reste, et montre ce que tu as fais

F1 ne mords pas et c'est gratuit pour un départ

Code:

---

1 2 3 4 5 6

With Sheets("Ref") Set c = Worksheets("Ref").Range("a1:a500").Find(listedevaleur) If Not c Is Nothing Then numcolonnevaleur = c.Column End If End With

---

j'ai fais ceci, sa marche mais pour numcolonnevaleur il m'affiche tout le temps 1 en résultat

sachant que val1 est colonne 1 , val2 colonne 2 , etc

si je choisi val1, il me fais le bon résultat car c bien colonne 1 mais par contre pour val2 il me di toujours colonne 1.

Code:

---

.Range("a1:a500")

---

Tu cherche dans la colonne "A"
tu auras toujours un 1 au mieux

et ça de trop:

Code:

---

Worksheets("Ref")

---

tu as déjà mis un With...

Changes moi ça