Dernière cellule non vide d'une colonneRésolu

Question

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

cs_MPi · Accepted Answer

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

jrivet · Answer

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

mortalino · Answer

Salut,

faut partir d'en bas et remonter :

Range("A65536").End(xlUp).Row

@++ 

 
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_falafala · Answer

Merci beaucoup, en effet en partant du bas, ca marche très bien.

Luigi13013 · Answer

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

Dernière cellule non vide d'une colonne

5 réponses

Votre réponse

Discussions similaires