Recherche derniere cellule vide

[olivierk1450]

Bonjour,

Je recherche la solution en VBA pour trouver la dernière cellule vide d'une colonne. Cependant j'ai une colonne qui contient des formules et je veux uniquement la dernière cellule qui comporte une valeur, donc la formule :
Range("e65536").End(xlUp).Select
ne convient pas....
Existe t il une solution.
Merci d'avance.

 

[Macpoy]

Re : Recherche derniere cellule vide

bonsoir le forum, olivierk1450,

peut être qu'en passant par ce genre de code :

If Range("e65536").End(xlUp).Value <> 0 Then [e65536].End(xlUp).Select

à tester

@plus

 

[camarchepas]

Re : Recherche derniere cellule vide

Bonsoir Olivier,

Un ptit fichier exemple car j'ai fais un test vite fais , moi ça marche , mais bon , y'a surement un truc particulier sur ta feuille

 

[olivierk1450]

Re : Recherche derniere cellule vide

Merci pour vos réponses, je vous joins un p'tit fichier pour être plus clair.
A suivre.
Bonne journée.
Olivier

 

[kjin]

Re : Recherche derniere cellule vide

Bonjour,
Applique un filtre sur les cellules non vide de la colonne A puis utilise ton code
Reviens si tu ne t'en sort pas
A+
kjin

 

[Paritec]

Re : Recherche derniere cellule vide

Bonjour Kjin Olivier Camarche macpoy
voilà ton fichier en retour regardes si c'est ce que tu veux
a+
papou

 

[olivierk1450]

Re : Recherche derniere cellule vide

Re,
Merci pour vos réponses.
Paritec, en faite la couleur n'a aucune importance pour ce que je veux faire. C'etait juste visuel...
Je cherche à selectionner dans une colonne uniquement les cellules qui contiennent une valeur, "un résultat" (en bleu dans le fichier pour mieux visualiser soit A1:A13). Les formules que j'ai trouvé selectionnent toutes les cellules (contenant une valeur et une formule) soit A1:A21
Voilà voilà.
J'espère que j'ai été plus précis.
Merci

 

[camarchepas]

Re : Recherche derniere cellule vide

RE moi,

Bigre ,

y'a peut être plus simple,
en attendant le résultat est là
enfin , je crois , mais le client est roi , j'attents donc ta confirmation ? lol

 

[olivierk1450]

Re : Recherche derniere cellule vide

Camarchebien
C'est du lourd mais ca fonctionne très bien .. et c'est l'essentiel pour le moment.
Merci camarchepas
et merci à tous les membres actifs du forum.
Bye

 

[young 25]

Re : Recherche derniere cellule vide

=INDEX($D20:$I20;NBVAL($D20:$I20))

un façon de faire sans macro

 

[Paritec]

Re : Recherche derniere cellule vide

Bonjour à Tous,
Excuse moi Olivier, je n'ai fait que respecter ce que tu demandais dans ton exemple, et d'ailleurs cela marchait ou pas?
bonne journée
a+
Papou

PS: Une mauvaise demande, donne, une mauvaise réponse !!!

 

[Paritec]

Re : Recherche derniere cellule vide

Re Bonjour à tous,
alors Olivier la même chose mais sans les couleurs
a+
papou

 

[olivierk1450]

Re : Recherche derniere cellule vide

Re,

Je déclare Paritec vainqueur toutes catégories pour mon problème.
Effectivement ta première version avec les couleurs fonctionne (j'avais mal formulé ma demande), et ta dernière proposition répond exactement et simplement à mon problème.

a+ pour une autre solution
Olivier.

 

[kjin]

Re : Recherche derniere cellule vide

Re, salut Papou ,

    For i = Cells(65536, 1).End(xlUp).Row To 1 Step -1
        If Evaluate(Cells(i, 1).Address) <> "" Then
        MsgBox "ligne " & i
        Exit For
        End If
    Next i

A+
kjin

 

[Paritec]

Re : Recherche derniere cellule vide

Bonjour Kjin Olivier
Content que la solution corresponde à tes besoins.
Bonjour Kjin, je ne connaissait pas Evaluate, alors je vais noter merci pour toutes tes astuces.
Je t'avais fait un petit mail sur le remplissage des listviews l'as tu reçu?
a+
Bonne journée
Papou