Discussion :

[interfector1st]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kimy_Ire]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

Cordialement,
Kimy

[interfector1st]

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

[camarchepas]

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 ?

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[interfector1st]

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