02/12/2005, 19h08
|
#2 (permalink)
|
|
XLDnaute Barbatruc
Date d'inscription: février 2005
Localisation: Sète
Version Excel : Excel 2003 (PC)
Messages: 2 873
|
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
|
|
|