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

cs_falafala 74 Messages postés lundi 24 juillet 2006Date d'inscription 23 décembre 2013 Dernière intervention - 6 sept. 2006 à 16:29 - Dernière réponse : Luigi13013 11 Messages postés vendredi 5 février 2010Date d'inscription 1 juin 2010 Dernière intervention
- 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

Répondre au sujet
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 6 sept. 2006 à 16:36
0
Utile
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
Commenter la réponse de jrivet
mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 6 sept. 2006 à 16:40
0
Utile
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
cs_falafala 74 Messages postés lundi 24 juillet 2006Date d'inscription 23 décembre 2013 Dernière intervention - 6 sept. 2006 à 17:15
0
Utile
Merci beaucoup, en effet en partant du bas, ca marche très bien.
Commenter la réponse de cs_falafala
cs_MPi 3863 Messages postés mardi 19 mars 2002Date d'inscription 13 mars 2018 Dernière intervention - 6 sept. 2006 à 23:31
0
Utile
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
Luigi13013 11 Messages postés vendredi 5 février 2010Date d'inscription 1 juin 2010 Dernière intervention - 1 juin 2010 à 10:03
0
Utile
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.