Microsoft 365 Dernière ligne non vide colonne A

[JBL07]

Bonjour à tous,

J'ai une petite macro qui fonctionne très bien pour défiltrer un tableau, associée à un bouton
Je voudrais qu'en cliquant dessus, mon curseur se positionne également sur la première cellule non-vide de la colonne A, après avoir défiltré
Un grand merci par avance !

Sub Annule_Filtres()
With Worksheets("Feuil2")
If .FilterMode = True Then .ShowAllData
End With
End Sub

 

[sylvanu]

Bonsoir JBL,
Un essai testé :

Sub Annule_Filtres()
With Worksheets("Feuil2")
    If .FilterMode = True Then .ShowAllData
End With
Dercel = ThisWorkbook.Sheets("Feuil2").Range("A:A").End(xlDown).Row
Range("A" & Dercel + 1).Select
End Sub

 

[JBL07]

Bonsoir Sylvanu,

Et ben… parfait !
Merci beaucoup