méthode find en VBA

S

Shock

XLDnaute Occasionnel

• 19 Juin 2006

• #2

bjr roro,

je ne connais pas bien la méthode Find, mais en regardant dans l'aide, il faut apparemment faire un 'Do...Loop While' pour faire une recherche sur toute la plage.
je me penche un peu dessus et te dis ca!

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 19 Juin 2006

• #3

bonjour

sinon, essayes comme ceci :

With ActiveWorkbook.Worksheets('MEMO2').Range('A1:Z1')
Set c = .Find(donnée)

End With


set permet d'affecter un objet à une variable

tu peux ensuite utiliser dans le reste de ton code directement c

c.select
c.interior.colorindex=3

si tu veux tester si c est bien initialisé, utilise ce type de syntaxe :

If Not c Is Nothing=si c n'est pas vide

salut

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Juin 2006

• #4

bonjour roro145, Shock

tester le remplacement de:
c = .Find(Donnée)

par

set c = .Find(Donnée)

désolé de cette collision Hervé !!!

Message édité par: pierrejean, à: 19/06/2006 11:19

 

Vote positif 0 Vote négatif

A

AV

Guest

• 19 Juin 2006

• #5

Ave,

Attention à la méthode Find qui à la fâcheuse habitude de mémoriser les paramètres de la précédente utilisation !

Préférer la syntaxe suivante :

Sub zzz()
donnée = 'aaa'
x = [A1:Z1].Find(What:=donnée, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address
End Sub

AV [aaa]

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 19 Juin 2006

• #6

re roro, shock
salut pierrejean, AV

pas de souci pierrejean

Bien d'accord avec toi alain

attention roro, si tu utilises la méthode d'alain, le x deviens un string (contenant l'addresse de la cellule trouvé)

si tu veux tester son contenu il te faut utiliser :

donnée = 'aaa'
On Error Resume Next
x = [A1:Z1].Find(What:=donnée, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address
If Not x = '' Then ...


et si ensuite tu veux utiliser une variable objet (dim c as range) :

set c=range(x)

salut

 

Vote positif 0 Vote négatif

R

roro145

XLDnaute Nouveau

• 19 Juin 2006

• #7

Merci à tous, vous êtes géniaux, et ultra réactifs , jamais vu une réponse donnée en si peu de temps ...
Donc j'ai essayé la méthode d'Hervé, qui marche parfaitement...
encore un grand merci, heureusement que vous êtes là,
++

 

Vote positif 0 Vote négatif

R

roro145

XLDnaute Nouveau

• 19 Juin 2006

• #8

Merci à tous, vous êtes géniaux, et ultra réactifs , jamais vu une réponse donnée en si peu de temps ...
Donc j'ai essayé la méthode d'Hervé, qui marche parfaitement...
encore un grand merci, heureusement que vous êtes là,
++

 

Vote positif 0 Vote négatif

R

roro145

XLDnaute Nouveau

• 19 Juin 2006

• #9

Merci à tous, vous êtes géniaux, et ultra réactifs , jamais vu une réponse donnée en si peu de temps ...
Donc j'ai essayé la méthode d'Hervé, qui marche parfaitement...
encore un grand merci, heureusement que vous êtes là,
++

 

Vote positif 0 Vote négatif

R

RodyRody

XLDnaute Nouveau

• 28 Octobre 2010

• #10

Re : méthode find en VBA

Bonjour,

Petite question sur la Fonction Find.
Find renvoie une adresse de cellule absolue de type $A$1. Comment faire pour que Find ne renvoie que l'adresse A1.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Octobre 2010

• #11

Re : méthode find en VBA

Bonjour,

en principe "find" renvoie plutôt un objet "range" qu'une adresse... sinon, essaye ceci,tu aura une adresse style A1 :

Code:

MsgBox Range("A1").Address(0, 0)

bonne soirée
@+

 

Vote positif 0 Vote négatif