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

Résolu
Jesusdenazarrete
Messages postés
102
Date d'inscription
jeudi 22 juillet 2010
Statut
Membre
Dernière intervention
12 juin 2012
- 18 mars 2008 à 11:15
Jesusdenazarrete
Messages postés
102
Date d'inscription
jeudi 22 juillet 2010
Statut
Membre
Dernière intervention
12 juin 2012
- 18 mars 2008 à 11:43
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

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

18 mars 2008 à 11:43
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.
3
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
18 mars 2008 à 11:30
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
0