Afficher un message
Vieux 02/12/2005, 19h08   #2 (permalink)
Robert
XLDnaute Barbatruc
 
Avatar de Robert
 
Date d'inscription: février 2005
Localisation: Sète
Version Excel : Excel 2003 (PC)
Messages: 2 873
Par défaut Re:Selection d'1 cellule après filtre

Bonsoir Dru, bonsoir le forum,

Un proposition en VBA avec cette macro (à adapter à la colonne) :

Citation:
Sub Macro1()
Dim Cel As Range 'déclare la variable Cel

'boucle sur toutes les cellules éditées Cel de la colonne A en partant de A2
For Each Cel In Range('A2:A' & Range('A65536').End(xlUp).Row)
'condition : si la ligne de la cellule n'est pas masquée
If Cel.EntireRow.Hidden = False Then
Cel.Select 'sélectionne la cellule
Exit Sub 'sort de la procédure
End If 'fin de la condition
Next Cel 'prochaine cellule éditée Cel de la colonne A
End Sub
__________________
À plus

Robert
Robert est déconnecté   Réponse avec citation