Titre du sujet : Re: Find sur cellules avec un format personnalisé
par myDearFriend! le 13/05/2010 12:40:32
Re,
Tu devrais pouvoir essayer avec ça :
Set c = .Find(mavar, LookIn:=xlValues, LookAt:=xlPart)
Petite astuce si tu ne sais pas ce qu'il convient d'utiliser comme argument dans LookIn ou LookAt :
- tu sélectionnes ta lignes 5,
- tu enclenches l'enregistrement d'une macro,
- tu fais ensuite Menu / Rechercher (ou Ctrl F),
- et tu fais manuellement une recherche sur une des valeurs (11 par exemple) en cochant et décochant les différentes options de la boîte de dialogue jusqu'à que tu obtiennes le résultat attendu.
- au final, tu quittes la boîte de recherche, tu clos l'enregistrement de macro et tu observes le code VBA ainsi obtenu :
Selection.Find(What:="11", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Ainsi, tu obtiens les bons arguments qui fonctionnent !
Je me permets d'ajouter aussi qu'un petit effort du côté des déclarations de variable et l'utilisation de Option Explicit n'est jamais un luxe...
Cordialement,
|
Didier FOURGEOT