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

Messages postés
74
Date d'inscription
lundi 24 juillet 2006
Statut
Membre
Dernière intervention
23 décembre 2013
- - Dernière réponse : Luigi13013
Messages postés
11
Date d'inscription
vendredi 5 février 2010
Statut
Membre
Dernière intervention
1 juin 2010
- 1 juin 2010 à 10:03
    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
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
45
1
Merci
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

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 189 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jrivet
Messages postés
6789
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
0
Merci
Salut,

faut partir d'en bas et remonter :

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

@++


  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Commenter la réponse de mortalino
Messages postés
74
Date d'inscription
lundi 24 juillet 2006
Statut
Membre
Dernière intervention
23 décembre 2013
0
Merci
Merci beaucoup, en effet en partant du bas, ca marche très bien.
Commenter la réponse de cs_falafala
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
15
0
Merci
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
Commenter la réponse de cs_MPi
Messages postés
11
Date d'inscription
vendredi 5 février 2010
Statut
Membre
Dernière intervention
1 juin 2010
0
Merci
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
Commenter la réponse de Luigi13013