VBA Rechercher colonne

**Maiden002** · 18/08/2009, 16h08

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 :

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

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

**mercatog** · 18/08/2009, 16h25

Code :

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

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

**Maiden002** · 18/08/2009, 16h37

Je n'arrive pas vraiment a comprendre comment faire

J'ai fais ceci :

Code :

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

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

Il me fait Erreur Objet Requis

**Krovax** · 18/08/2009, 16h39

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 :

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

range("A1:D25").find

par exemple

**Maiden002** · 18/08/2009, 16h43

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")

**Krovax** · 18/08/2009, 16h49

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

Code :

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

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

**mercatog** · 18/08/2009, 16h51

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

**Maiden002** · 18/08/2009, 17h08

Code :

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

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.