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

Résolu/Fermé

Code Jack Messages postés 18 Date d'inscription mardi 12 juillet 2011 Statut Membre Dernière intervention 21 juillet 2011 - 20 juil. 2011 à 11:43
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

Posez votre question

A voir également:

Vba adresse cellule
Nom de l'adresse ✓ - Forum Réseaux sociaux
Darkino nouvelle adresse - Guide
Rechercher ou entrer l'adresse - Guide
Facebook piraté et adresse email changé - Forum Facebook
Adresse mac - Guide

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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 20/07/2011 à 18:52

bonsoir

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

Réponse 2 / 10

Code Jack Messages postés 18 Date d'inscription mardi 12 juillet 2011 Statut Membre Dernière intervention 21 juillet 2011 7
20 juil. 2011 à 12:06

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 mercredi 5 novembre 2008 Statut Membre Dernière intervention 12 novembre 2014 2 858
20 juil. 2011 à 12:11

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
25 oct. 2011 à 16:30

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 mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 288
26 oct. 2011 à 10:20

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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
26 oct. 2011 à 11:12

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
26 oct. 2011 à 13:15

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
26 oct. 2011 à 13:37

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 mercredi 5 novembre 2008 Statut Membre Dernière intervention 12 novembre 2014 2 858
20 juil. 2011 à 18:24

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 mardi 12 juillet 2011 Statut Membre Dernière intervention 21 juillet 2011 7
20 juil. 2011 à 13:42

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 mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 288
Modifié par Bidouilleu_R le 20/07/2011 à 15:52

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 mardi 12 juillet 2011 Statut Membre Dernière intervention 21 juillet 2011 7
20 juil. 2011 à 18:37

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 mardi 12 juillet 2011 Statut Membre Dernière intervention 21 juillet 2011 7
20 juil. 2011 à 21:42

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 lundi 25 novembre 2013 Statut Membre Dernière intervention 28 novembre 2013
27 nov. 2013 à 09:00

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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
20 mai 2016 à 15:10

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
16 juin 2016 à 17:05

Merci beaucoup à chacun et à tous,

Je vais essayer et je vous reviens

Posez votre question

Discussions similaires

Faire apparaître l'adresse d'une cellule

RicPix - 22 févr. 2015 à 11:37
RicPix - 23 févr. 2015 à 08:40

11 réponses

Trouver coordonnées d'une cellule selon sa valeur

yondaime - 28 juil. 2015 à 15:29
skk201 - 28 juil. 2015 à 16:07

4 réponses

Adresse d'une cellule contenant une valeur x

seblatueuse - 30 avril 2009 à 20:44
seblatueuse - 12 mai 2009 à 06:01

2 réponses

Cellule variable Excel

Flo - 12 mars 2008 à 18:03
truc - 5 juil. 2010 à 14:44

12 réponses

Excel, effacer une partie de texte.

owiowi - 5 août 2011 à 00:21
Mytå - 5 août 2011 à 23:00

7 réponses

[VBA] Suppression une partie du texte

digsaw_- - 27 juin 2011 à 13:26
digsaw_- - 27 juin 2011 à 15:58

17 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

Discussions similaires

Newsletters