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

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

Votre réponse

5 réponses

Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
0
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
Commenter la réponse de jrivet
Messages postés
6812
Date d'inscription
vendredi 16 décembre 2005
Dernière intervention
21 décembre 2011
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
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
Dernière intervention
23 août 2018
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
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

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.