.find en vba determination d'un plage precise

Résolu/Fermé
skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 - 24 avril 2008 à 18:27
skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 - 24 avril 2008 à 19:04
Bonjour,
je fais une recherche en vba par le code suivant :

Cells.Find(What:=Label2.Caption).Activate
ceci me permet de trouver une cellule bien precise afin d'inserer des donnee par rapport a celle ci. Le probleme c'est que ma recherche ce fait sur toute la page or j'aurais besoin de faire cette recherhe que sur la plage B7:B22 par exemple. Car le mot chercher peux etre ecrit également ailleur mais c'est dans cette plage bien precise que je souhate l'identifier.. Je me prend le choux depuis quelque temps dessus en ayant fais pas mal de recherche mais je ne trouve pas vraiment.
Pouvez vous m'aider une nuvelle fois, un grand merci a tous

4 réponses

bonjour,

essaie avec ce code
    Range("B7:B22").Select
    Selection.Find(What:=Label2.Caption, LookIn:=xlValues, LookAt:=xlPart, _
               SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= False).Activate
    Range(ActiveCell.Address).Select
1
kadeh Messages postés 334 Date d'inscription vendredi 21 décembre 2007 Statut Membre Dernière intervention 15 novembre 2012 92
24 avril 2008 à 18:31
bonjour,
peux-tu envoyer le code complet
@+
0
skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 19
24 avril 2008 à 18:55
merci bien de votre aide j essay de ce pas
0
skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 19
24 avril 2008 à 19:04
Solution pour definir une plage pour une recherche concentré: (by amigo)

essaie avec ce code
Range("B7:B22").Select
Selection.Find(What:=Label2.Caption, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= False).Activate
Range(ActiveCell.Address).Select



nikel amigo ca marche sans probleme merci beaucoup a vous je galerais grave...
Et vive le forum
0