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

Résolu

Code Jack Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
Christian - 16 juin 2016 à 17:05

Bonjour à tous,

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

D'après l'aide, la méthode find renvoie bien un objet range.
Mais après quelques essais simples, il semble que find renvoie l'entrée de la recherche (la valeur que l'on donne en argument, "what"), et non les coordonnées de la cellule dans laquelle le contenu recherché se trouve.

Je n'arrive donc pas à stocker les coordonnées de la cellule que je recherche à l'aide de la méthode find.

Pourriez-vous m'aider ? Connaissez-vous une autre méthode par exemple ?

Merci d'avance,

Code Jack

Afficher la suite

Répondre (10) Posez votre question

Répondre (10)

A voir également:

Vba coordonnées cellule
Coordonnées gps - Guide
Excel compter cellule couleur sans vba - Guide
Excel cellule couleur si condition texte - Guide
Proteger cellule excel - Guide
Vba récupérer valeur cellule ✓ - Forum VB / VBA

10 réponses

Réponse 1 / 10

Meilleure réponse

La meilleure réponse est la réponse qui a été validée par nos équipes.

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

bonsoir

essaies
localise = Cells.Find("bonjour", , xlValues).Address
MsgBox localise
Michel

Réponse 2 / 10

Code Jack Messages postés 18 Date d'inscription Statut Membre Dernière intervention 7

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

Réponse 3 / 10

antipolis a Messages postés 15609 Date d'inscription Statut Membre Dernière intervention 2 859

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

Jimmy SICG

Parfait comme réponse.
J'avais le même besoin mais j'aimerai pouvoir sélectionner la cellule juste à la droite de la "Range(result, result).select". A cette cellule sélectionner je souhaiterai ensuite lui donner une valeur (ce que je devrais réussir sans problème dans le cas où je peux déterminer son adresse)
J'ai tenté un : Range(result, result + 1).select mais ça n'a pas fonctionné :-s

merci

Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention 295

J'ai tenté un : Range(result, result + 1).select mais ça n'a pas fonctionné :-s

essaye avec
Range(result, result).offset(0,1).select

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour
Je ne comprend pas pourquoi ce range(result, result) alors qu'avec cette syntaxe

Cells.Find("bonjour", , xlValues).Address

, on a l'adresse cherchée directement et sans se limiter à une colonne...D'autre part, cette syntaxe appelle un type "string", beaucoup moins encombrant en mémoire qu'un "range"!
Maintenant, je ne voudrais surtot pas dérangé...

Jimmy SICG

Je te remercie Bidouilleu_R !!! ça fonctionne parfaitement :-)
Bonne journée à toi

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Excusez moi d'avoir dérangé
nivellons par le bas, c'est CCM

Réponse 4 / 10

antipolis a Messages postés 15609 Date d'inscription Statut Membre Dernière intervention 2 859

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.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

Code Jack Messages postés 18 Date d'inscription Statut Membre Dernière intervention 7

Merci, en effet ça m'aide.

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

Code Jack

Réponse 6 / 10

Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention 295

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

Réponse 7 / 10

Code Jack Messages postés 18 Date d'inscription Statut Membre Dernière intervention 7

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

Réponse 8 / 10

Code Jack Messages postés 18 Date d'inscription Statut Membre Dernière intervention 7

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

Réponse 9 / 10

TOM411 Messages postés 2 Date d'inscription Statut Membre Dernière intervention

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......

Réponse 10 / 10

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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

Christian

Merci beaucoup à chacun et à tous,

Je vais essayer et je vous reviens

Répondre Posez votre question

Votre réponse

Discussions similaires

VBA cellule active date du jour

Didoch54000 -
Didoch54000 -

2 réponses

Excel, effacer une partie de texte.

owiowi -
Mytå -

7 réponses

[VBA] Suppression une partie du texte

digsaw_- -
digsaw_- -

17 réponses

Erreur d'exécution 13 Incompatibilité de type

grace -
pijaku -

5 réponses

Excel:mettre automatiquement en majuscule

midiweb -
Raymond PENTIER -

3 réponses

Concatener un String et un Integer en VBA

Hugo -
ccm81 -

5 réponses

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire