la commande FIND

Marsh Posté le 06-06-2005 à 09:43:35

Bonjour tous le monde, j'ai un petit souci avec mon programme
(je ne sais plus quoi faire)
Objet_Courant = ActiveSheet.Range(Premiere_colonne_tab3, Derniere_colonne_tab3).Find(what:=2A, LookAt:=xlWhole).Activate

avec
Premiere_colonne_tab3="$D$47"
Derniere_colonne_tab3="$K$47"

a l'excecution , il me dit: un objet est requis

je vous en prie de l'aide.

Marsh Posté le 06-06-2005 à 09:43:35

Marsh Posté le 12-06-2005 à 15:10:58

Essaye plutôt comme ceci:

Set rRange = Range(Premiere_colonne_tab3, Derniere_colonne_tab3)

Set Objet_Courant = rRange.Find("2A", LookAt:=xlWhole)
If Not Objet_Courant Is Nothing Then
Objet_Courant.Activate
Else
Msgbox ("Pas trouvé" )
End If

Message édité par AlainTech le 12-06-2005 à 15:12:08

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *