Dernière cellule vide

[alain18]

Bonjour à tous,
Je cherche à réaliser une macro qui permettrait de sélectionner la dernière cellule vide d'une colonne mais mes différents tests ne fonctionnent pas.
Je mets un fichier en PJ;
Merci de votre aide.

 

[Robert]

Bonjour Alain, bonjour le forum,

S'il n'y a rien en dessous du tableau dans la colonne E :

Sub Atteindre()
Cells(Application.Rows.Count, "E").End(xlUp).Offset(1,0).select
End Sub

Sinon :

Sub Atteindre()
Dim DEST As Range
If Range("E5").Value = "" Then Set DEST = Range("E5") Else Set DEST = Range("E4").End(xlDown).Offset(1, 0)
DEST.Select
End Sub

 

[alain18]

Bonjour Robert
Merci beaucoup pour ces 2 méthodes qui fonctionnent parfaitement.
Toutefois lorsque j'ai voulu adapter à mon fichier le 2ème code, celui-ci ne fonctionnait pas alors que les cellules en dessous étaient vides.
La raison était simple, même qu'il n'y avait aucune valeur qui apparaissaient dans les cellules, celles-ci contenaient des formules de calcul.
Donc en choisissant une autre colonne (parfaitement vide) le 2ème code fonctionne correctement.
Il y a peut être une solution qui ignorerait les formules de calcul....? mais pour moi cela me convient en l'état.
Merci
Cordialement.