Dernière cellule vide

alain18

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Première cellule vide.xls
    32 KB · Affichages: 9

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Alain, bonjour le forum,

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

VB:
Sub Atteindre()
Cells(Application.Rows.Count, "E").End(xlUp).Offset(1,0).select
End Sub
Sinon :
VB:
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

XLDnaute Occasionnel
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 732
Messages
2 081 995
Membres
101 857
dernier inscrit
mt60400