VBA - Sélectionner une celulle recherchée

Bonjour à tous!

Question d'un Débutant niveau 0 trois quart.

alors voila, je vais exposer rapidement mon petit soucis:
Feuil1, Colonne A, à partir de A4, les noms que je vais recherché dans Feuil2, ma base de données, exclusiment en ColonneA.

Pour l'instant je n'ai pas créé la boucle, je pense y arrivé plus facilement, et je me concentre sur la recherche et le ciblage d'une cellulle.

voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Macro1()   Dim NomCo As Range Dim CellR As Range x = 4 y = 1   Sheets("Feuil1").Select   Set NomCo = ActiveSheet.Cells(x, y)   Sheets("Feuil2").Select Set CellR = ActiveSheet.Range("A1:A100").Find(What:=NomCo, lookat:=xlWhole)   Sheets("Feuil3").Cells(1, 1).Value = CellR   Range(CellR).Select   MsgBox (CellR)   Set NomCo = Nothing Set CellR = Nothing End Sub

---

J'essaye également de me renvoyé le résultat de CellR dans la Msgbox ainsi que le résultat dans une cellule de Feuil3

1ère question:
Que me renvoie la fonction find ??? Une coordonée ? une donnée de cellule ??? Je ne comprends plus, moi je reçois la donnée inscrite en NomCo...

2ème question:
Sachant que je cherche des coordonnées de cellule, est t il possible de le faire avec la fonction FIND ?

3ème question:
Une fois ces coordonnées trouvées, et je l'espère, mis en mémoire dans CellR, comment sélectionner cette cellule.
J'ai essayé avec le Range...ça me renvoie une erreur... et je ne sais même pas si mon FIND me renvoie des coordonnées de type range...

D'avance, je vous remercie.


Rémi

Bonjour interfector1st,

Citation:

---

Envoyé par interfector1st

1ère question:
Que me renvoie la fonction find ??? Une coordonée ? une donnée de cellule ??? Je ne comprends plus, moi je reçois la donnée inscrite en NomCo...

---

La fonction .Find renvoie une Range. L'aide te permet de savoir ce genre de chose comme internet.

Citation:

---

Envoyé par interfector1st

2ème question:
Sachant que je cherche des coordonnées de cellule, est t il possible de le faire avec la fonction FIND ?
3ème question:
Une fois ces coordonnées trouvées, et je l'espère, mis en mémoire dans CellR, comment sélectionner cette cellule.
J'ai essayé avec le Range...ça me renvoie une erreur... et je ne sais même pas si mon FIND me renvoie des coordonnées de type range...

---

J'ai un peu de mal à comprendre les questions. Qu'appelles-tu les coordonnées d'une cellule ?
Pour "aller" sur la cellule B6, tu peux faire faire ceci :

Code:

---

1 2 3 4 5 6

'Pour sélectionner Worksheets("test").Range("B6").Select 'Pour récupérer sa valeur maVal = Worksheets("test").Range("B6") 'ou maVal = Worksheets("test").Range("B6").Value 'Pour y mettre une valeur Worksheets("test").Range("B6") = "test"

---

Ainsi, voici ce qu'on lit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub Macro1() 'Déclaration des variables Dim NomCo As Range Dim CellR As Range Dim x as Integer, y as Integer 'On set les variables x = 4 y = 1 'On sélectionne "Feuil1" Sheets("Feuil1").Select   'On set "NomCo" sur la Range "A4" Set NomCo = ActiveSheet.Cells(x, y)   'On sélectionne "Feuil2" Sheets("Feuil2").Select 'On cherche dans Feuil2, sur la Range A1-A100 la valeur comprise dans Worksheets("Feuil1").Range("A4") 'Et on set CellR sur cette cellule, si on trouve quelque chose Set CellR = ActiveSheet.Range("A1:A100").Find(What:=NomCo, lookat:=xlWhole)   'Dans Feuil3, en cellule A1, on place cette valeur. Sheets("Feuil3").Cells(1, 1).Value = CellR   'Ceci ne veut rien dire. Range(CellR).Select   'MsgBox CellR.Value pour la valeur 'MsgBox CellR.Address pour l'adresse MsgBox (CellR)   Set NomCo = Nothing Set CellR = Nothing End Sub

---

Voila !

N'hésite pas à revenir vers moi ! :ccool:

Cordialement,
Kimy

Bonjour Kimy_Ire,

Tout d'abord, merci de prendre du temps pour me répondre :-),

Je débute, d'où mon idée un peu flou de ce que renvoie la fonction FIND, dans mon idée cette fonction recherche le mot placé dans NomCo en Feuil1, me renvoie les coordonnées d'une cellule colonne A en Feuil2, coordonnées que je pensais placer dans CellR pour pouvoir les utiliser par la suite.

Dans ce code, je veux simplement donc rechercher une cellule en feuil2 colonne A et la selectionné , comme si on avait cliqué dessus.

Le msgbox et le renvoie en feuil3 sont juste des tests pour mon code

J'espère avoir éclairci un peu plus ma question,

D'avance, je te (vous) remercie!

Bonne journée,

Rémi

Bonjour Kimy interfector...

CEllR c'est une case trouvée par excel selon les paramètres entrée dans la méthode de recherche find.
Pour connaître les propriétés de cette case, il faire comme vous l'a écrit kimy dans son post la questionner...

T'habite ou CellR! qui traduit en langage vba donne msgbox CellR.address
Active toi ! CellR.Activate
Fais moi la courte echelle! CellR.offset(-1,0)...

You see ?

Bonjour,

La méthode Find retourne un Range c'est à dire un objet cellule avec toutes ses propriétés. L'utilisation de l'instruction "Set" signifie que tu affecte un objet à la variable. Tiré de l'aide --> "Attribue une référence d'objet à une variable ou à une propriété."
Donc, il te faut tester si Find t'as bien retourné un objet avec "Is Nothing" dans le cas "Oui" alors tu peux faire référence à ta variable objet sans soucis dans le cas contraire tu ne peux pas sans avoir une erreur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub Macro1()   Dim NomCo As Range Dim CellR As Range Dim X As Long Dim Y As Long   X = 4 Y = 1   Set NomCo = Sheets("Feuil1").Cells(X, Y)   Set CellR = Sheets("Feuil2").Range("A1:A100").Find(NomCo.Value, , xlValues, xlWhole)   If Not CellR Is Nothing Then   Sheets("Feuil3").Cells(1, 1).Value = CellR.Value Sheets("Feuil2").Activate Sheets("Feuil2").Range(CellR).Select   MsgBox CellR.Address(0, 0) 'ou .Value, ou .Row, ou .Column, etc...   End If   End Sub

---

Hervé.

Merci à vous pour vos différentes réponses, cela m'aa permis de voir plus clair sur cette fonction find mais également me débloqué dans me petite macro :-)

Je clos le sujet pour ma part!

Rémi