Dernière cellule non vide d'une colonne [Résolu]

Signaler
Messages postés
74
Date d'inscription
lundi 24 juillet 2006
Statut
Membre
Dernière intervention
23 décembre 2013
-
Messages postés
11
Date d'inscription
vendredi 5 février 2010
Statut
Membre
Dernière intervention
1 juin 2010
-
    Bonjour à tous.

Je cherche le code en VBA pour sélectionner la dernière cellule non vide d'une colonne.

Habituellement j'utilise: Range("A1").End(xlDown).Row pour la dernière cellule non vide de la colonne A mais il semble que cela ne fonctionne pas quand il existe des cellules vides dans la colonne A (si par exemple A1 et A20 ont une valeur et le reste est vide, la formule me retourne A1 alors que je souhaite avoir A20).

Je vous remercie par avance.

Fala Fala

5 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
La façon que j'utilise


    Dim DerniereCelluleRemplie

    DerniereCelluleRemplie = Columns("A:A").Find("*", Range("A1"), , , xlByRows, xlPrevious).Row

    MsgBox DerniereCelluleRemplie  'facultatif bien sûr ...

    Range("A" & DerniereCelluleRemplie).Select

MPi
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
48
Salut,
Est tu sur que cela ne vienne pas d'aute part car, ceci fonctionne (je viens de tester ton exemple avec ton code et cela me retourne 20.

@+,   Ju£i?n
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
Salut,

faut partir d'en bas et remonter :

Range("A65536").End(xlUp).Row

@++


  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Messages postés
74
Date d'inscription
lundi 24 juillet 2006
Statut
Membre
Dernière intervention
23 décembre 2013

Merci beaucoup, en effet en partant du bas, ca marche très bien.
Messages postés
11
Date d'inscription
vendredi 5 février 2010
Statut
Membre
Dernière intervention
1 juin 2010

Bonjour,
Comment peut on faire un autofill d'une colonne B par rapport à la derniere ligne non vide d'une colonne A ? Mais en prenant en compte le text et non la valeur de la cellule car les données proviennent d'un collage avec liaison et contiennent meme vide à l'affichage, une valeur.

J'ai fait ca :
Sub SelectCel()
i = Range("B65536").End(xlUp).Row 'Est censé compter la derniere cellule non vide de la colonne B'
If Range("B" & i).Text <> "" Then
Range("AB2").AutoFill Range("AB2:AB" & Range("B & i").End(xlUp).Row)
Else
Range("AB" & i).Value = ""
End If
End Sub

Mais ca ne marche pas ! Auriez vous une idée ? merci