CTRL+F fonctionne mais pas en VBA

[Francky]

Bonjour à tous,
Je tombe sur un os...
J'essaie de faire une recherche avec un selection.find qui me donne un message d'erreur "L'indice n'appartient pas à la sélection" alors que quand je fais un CTRL+F, ça fonctionne parfaitement.
Quelqu'un comprend ?

Merci d'avance,

Franck

 

[macadamx]

Re : CTRL+F fonctionne mais pas en VBA

Cells.Find(What:="TA RECHERCHE", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

 

[Francky]

Re : CTRL+F fonctionne mais pas en VBA

Merci macadamx,
J'obtiens un autre message d'erreur : "Variable objet ou variable de bloc With non défini".
Je ne comprends toujours pas, snif !
Franck

 

[macadamx]

Re : CTRL+F fonctionne mais pas en VBA

Ta séléction de feuille doit être mauvaise, tu recherches quelque chose qui n'existe pas dans cette feuille.
D'où le variable etc.

Regarde bien quelle feuille est sélectionnée avant ton cells.find

 

[Francky]

Re : CTRL+F fonctionne mais pas en VBA

Hello,
C'est bien la bonne feuille... J'ai fait le test également avec un fichier tout neuf et une macro auto-enregistrée. Mais ça ne marche pas mieux. Y aurait-il un paramètre dans Excel qui ferait fonctionner en réel mais pas en VBA ?
Merci !

 

[macadamx]

Re : CTRL+F fonctionne mais pas en VBA

Fais voir ton code s'il te plaît

 

[Pierrot93]

Re : CTRL+F fonctionne mais pas en VBA

Bonjour,

essaye comme ceci :

    Dim toto As Date
    toto = "01/" & monmois & "/" & monannee
    'toto = "2014/33"
    
  
    Worksheets("Feuil1").Select
    Range("e8:oW8").Find(What:=toto, AFTER:=Range("OW8"), LookIn:=xlFormulas _
        , LookAt:=xlWhole).Activate
    ActiveCell.Offset(1, 0).Activate

bien que les "select" et autres "activate" soient rarement utiles en vba...

A noter tout de même, quand tu utilise un "find", préférable de passer par une variable objet de type "range" afin d'éviter l'erreur si la rechjerche n'a pas aboutie.... tu trouveras plein d'exemples sur le forum....

bon après midi
@+

 

[Francky]

Re : CTRL+F fonctionne mais pas en VBA

Gloire à Pierrot93, à sa descendance et à la descendance de sa descendance !
Merci beaucoup, ça marche d'enfer. Je note le conseil pour le find et le range.

Thx again,

Franck