VBA Récupérer coordonnées d'une cellule

Exemple à l'appui :

myCell = Cells.Find(What:="bonjour", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= xlNext, MatchCase:=False, SearchFormat:=False)

MsgBox (myCell)

Je peux lire dans la MsgBox : "bonjour"...

Sub cherche()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2011 par 10 - MICHEL
'
nomCherche = InputBox("Nom cherché? ")
Set result = Range("A2:A14").Find(What:=nomCherche, LookIn:=xlValues)
If result Is Nothing Then
___MsgBox "Non trouvé"
Else
___Range(result, result).Select
___MsgBox ActiveCell.Address
End If

End Sub

Find, méthode

Cette méthode recherche des informations spécifiques dans une feuille de calcul.

expression.Find(Arg1, Arg2, Arg3)

expression Obligatoire. Expression qui renvoie un objet WorksheetFunction.

Arg1 Argument de type String obligatoire. Nom de la feuille de calcul.

Arg2 Argument de type String obligatoire. Nom de la plage.

Arg3 Argument de type Variant facultatif. Nom d'un argument permettant d'affiner la recherche.

Méthode Find telle qu'elle s'applique à l'objet Range.

Cette méthode recherche une information spécifique dans une plage et renvoie un objet Range qui représente la première cellule où cette information apparaît. Cette méthode renvoie la valeur Nothing si l'information n'est pas trouvée. N'affecte ni la sélection ni la cellule active.

expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

expression Obligatoire. Expression qui renvoie un objet Range.

What Argument de type Variant obligatoire. Données à rechercher. Il peut s'agir d'une chaîne de caractères ou de tout autre type de données Microsoft Excel.

After Argument de type Variant facultatif. Cellule après laquelle vous souhaitez commencer la recherche. Cela correspond à la position de la cellule active lorsqu'une recherche est effectuée à partir de l'interface utilisateur. Notez que l'argument After doit correspondre à une seule cellule dans la plage. Rappelez-vous que la recherche commence après cette cellule ; la cellule spécifiée n'est pas recherchée jusqu'à ce que la méthode reviennent à cette cellule. Si vous ne spécifiez pas cet argument, la recherche commence après la cellule située dans le coin supérieur gauche de la plage.

LookIn Argument de type Variant facultatif. Type d'informations.

LookAt Argument de type Variant facultatif. Il peut s'agir de l'une des constantesXlLookAt suivantes : xlWhole ou xlPart.

SearchOrder Argument de type Variant facultatif. Il peut s'agir de l'une des constantes XlSearchOrder suivantes : xlByRows ou xlByColumns.

SearchDirection Argument de type XlSearchDirection facultatif. Direction de la recherche.

XlSearchDirection peut être l'une de ces constantes XlSearchDirection.
xlNext par défaut
xlPrevious

MatchCase Argument de type Variant facultatif. Affectez-lui la valeur True pour que la recherche respecte la casse. La valeur par défaut est False.

MatchByte Argument de type Variant facultatif. Cet argument est utilisé uniquement si vous avez sélectionné ou installé la prise en charge des langues codées sur deux octets. Affectez-lui la valeur True pour que les caractères codés sur deux octets ne correspondent qu'aux caractères codés sur deux octets. Affectez-lui la valeur False pour que les caractères codés sur deux octets correspondent à leurs équivalents codés sur un octet.

SearchFormat Argument de type Variant facultatif. Format de la recherche.

Merci, en effet ça m'aide.

Mais ça n'explique toujours pas ce problème de renvoi de la méthode find.

Code Jack

Savez-vous comment récupérer les coordonnées d'une cellule lorsqu'on connait son contenu ?

si tu as sélectionnée une cellule ... tu peux utiliser
les propriétés suivantes qui te donnent les coordonnées d' une cellule.

Sub demo()  
Dim hauteur, refHaut, refGauche, largeur  


hauteur = Range("d3").Height  

refHaut = Range("d3").Top  
refGauche = Range("d3").Left  
largeur = Range("d3").Width  

End Sub

Quoting : "Cette méthode recherche une information spécifique dans une plage et renvoie un objet Range qui représente la première cellule où cette information apparaît"

Voilà pourquoi je persiste à dire que je ne comprends. Une fois la méthode find appliquée, à l'aide d'une msgbox, la variable me renvoie la contenu de la cellule et non sa position... (cf. premier msg du topic)

Code Jack

Merci pour votre aide,

Mon problème a été résolu dès la première réponse, j'ai réussi à récupérer sa position.
Mais en effet tout ceci m'est encore obscur, et même si j'ai réussi à avoir ce que je voulais, je ne l'ai pas entièrement compris.

Je vais essayer votre proposition pour voir si ça m'aide à comprendre, mais en effet à l'aide des adresses ça semble assez logique.

Mystère et boule de gomme quant à ce qu'affirme l'aide ?

Merci à vous en tout cas,

Kojack

J'ai le même type de problème...Pour l'instant la seule propriété qui passe sur le résultat de ton Find est ".Address"
Si tu fais un MsgBox resultaduFIND.Address une fenêtre te renvoie les coordonnées de la cellule sous la forme $A$2
mais ceci n'est toujours par un Objet Range.............
j'essaie de trouver un moyen de convertir en VBA ce formant en range pour la suite de mon prog...
c'est peut être un début de solution......

Bonjour,

Et oui, je fais du déterrage de sujets...

La méthode Find renvoie ... un Range !

Il convient, afin d'éviter des erreurs, de la retourner dans une variable de type Range.
Pourquoi?
Simplement parce que si la valeur cherchée n'est pas trouvée, la propriété du Range (.Address, .Row, .Column, etc) va renvoyer une erreur. Logique puisque le range n'existe pas, il ne possède pas d'adresse...

Mais alors, pourquoi, lorsque je la place dans un MsgBox, seule sa valeur s'affiche?
Un objet Range n'est rien de concret. Il s'agit d'une cellule, d'une plage, d'une feuille... Comment voudriez-vous afficher une cellule (l'objet, pas son contenu), dans un message?
VBA interprète donc votre code :

MsgBox Rng

en choisissant la propriété par défaut de l'objet, propriété qui est... .Value !

La meilleure des façons de faire est donc celle-ci :

Sub Recherche()
Dim Rng As Range

    Set Rng = Worksheets("Feuil1").Range("A2:L1198").Find(What:="Bonjour")
    If Not Rng Is Nothing Then
        MsgBox Rng & " ====>" & vbCrLf & "trouvé sur : " & Rng.Worksheet.Name & vbCrLf & "cellule : " & Rng.Address
    Else
        MsgBox "pas trouvé"
    End If
End Sub