[VB EXCEL] Recherche d'adresse contenant une chaîne [Résolu]

Signaler
Messages postés
102
Date d'inscription
jeudi 22 juillet 2010
Statut
Membre
Dernière intervention
12 juin 2012
-
Messages postés
102
Date d'inscription
jeudi 22 juillet 2010
Statut
Membre
Dernière intervention
12 juin 2012
-
Bonjour,

Voici mon problème :

Je cherche a récupérer l'adresse d'une cellule.
J'utilise donc le code suivant :




With worksheets("Facturation")
 
        .Activate
            Set vtrouve = .Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Find(What:=Ccherch.Value)
    End With


Elle permet de renvoyer l'adresse de la cellule contenant la chaîne inscrite dans la textbox Ccherch...


J'aimerais qu'elle m'envoie également l'adresse si la valeur de la cellule est 123456789 par exemple et qu'on inscrit juste 2345678 dans la textbox.


Si quelqu'un peut m'aider, je lui en serait très reconnaissant


Merci d'avance.

2 réponses

Messages postés
102
Date d'inscription
jeudi 22 juillet 2010
Statut
Membre
Dernière intervention
12 juin 2012

Toujours a la point renfield... tu m'impressionne a chaque fois (meme si cette fois ci c'est tout bidon...

Merci encore pour tes conseils éclairés

A une prochaine.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
voir les parametres de la méthode Find... 

parametre  LookAt qui est un enum xlLootAt qui contient:
xlWhole et xlPart

tu dois donc faire :

With worksheets("Facturation")
 
        .Activate
            Set vtrouve = .Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Find(Ccherch.Value, LookAt:=xlPart)
    End With

Renfield
Admin CodeS-SourceS- MVP Visual Basic