VBA et sélection de la cellule trouvée par find

rounil09 · 7 Décembre 2010

Bonjour,
Débutant en VBA, je butte sur un problème basique.

Voici ma macro

Sub Enregistrer_modifs_EP()
Sheets("Relevé EP").Select
Dim Cellule As Range
Set Cellule = Range("A:A").Find(what:=Range("A3").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Cellule Is Nothing Then Cells(Cellule.Row, Cellule.Column).Select
End Sub

Je voudrais sélectionner en tant que cellule active la cellule recherchée (pour ensuite modifier des cellules contigues) en non la cellule A3 depuis laquelle la recherche s'effectue;
J'ai essayé une foultitude de manips, mais sans succés aucun.

Par avance merci de vos lumières.

Robert · 7 Décembre 2010

Re : VBA et sélection de la cellule trouvée par find

Bonsoir Runil, bonsoir le forum,

Find renvoie comme résultat soit Nothing soit une Range donc si une occurrence est trouvée il suffit pour la sélectionner de faire Cellule.Select. Le problème vient peut être de l'onglet...
Essaie comme ça :

Code:

Sub Enregistrer_modifs_EP()
Dim Cellule As Range
[COLOR=red]With Sheets("Relevé EP")[/COLOR]
     [COLOR=red].[/COLOR]Select
     Set Cellule = [COLOR=red].[/COLOR]Range("A:A").Find(what:=[COLOR=red].[/COLOR]Range("A3").Value, LookIn:=xlValues, lookat:=xlWhole)
     If Not Cellule Is Nothing Then [COLOR=red]Cellule.Select[/COLOR]
[COLOR=red]End With[/COLOR]
End Sub

Mais .Cells(Cellule.Row, Cellule.Column).Select ça marche aussi...
Un fichier exemple serait encore le plus simple pour t'apporter une réponse correcte.

Gorfael · 8 Décembre 2010

Re : VBA et sélection de la cellule trouvée par find

Salut rounil09 et le forum
Pas sûr de comprendre le problème, je ne comprends rien à ta demande !!!
Il y a un truc qui me gêne dans ta macro :
Plage de recherche : Range("A:A") : A1, A2, A3, A4, A5, etc...
Comme tu recherches la valeur égale à A3...
Ne connaissant de ton problème que le charabia que tu as mis dans ton poste, je ne peux que suggérer que la plage de recherche soit plutôt du genre : Range([A4], cells(Rows.count, "A").end(xlUp))
A+

VBA et sélection de la cellule trouvée par find

rounil09

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

Discussions similaires

VBA et sélection de la cellule trouvée par find

rounil09

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency