première celulle non vide en partant du bas

[pascal21]

bonsoir
voila que j'ai un gros trou
comment on se positionne sur la première cellule non vide de la colonne e en partant du bas de la page
j'ai essayé plusieurs codes mais je n'y arrive plus
merci
edit: et puisque je vous tiens comment mettre la valeur de cette cellule dans uns label

 label1.caption = ..........?

j'aimerais également avoir la valeur de la cellule située au dessus de la premeière cellule non vide
ex si 1ere cellule non vide est e10 je voudrais recopier la valeur de la cellule e9 dans un label2

 

[cbea]

Re : première celulle non vide en partant du bas

Bonsoir Pascal21,

Voici une solution :
Dernière ligne vide en partant de la dernière ligne en colonne A

dim derLig as Long
derLig = Range("A" & Cells.Rows.Count).End(xlUp).Row
Range("A" & derLig).Select

 

[JHA]

Re : première celulle non vide en partant du bas

Bonsoir Pascal, le forum,

Une formule avec recherchev()
=RECHERCHE("zzzzz";E:E) pour le texte
=RECHERCHE(9^9;C:C) pour les nombres


Edit: Oups, pas bien lu, tu voulais du code.

JHA

 

[cbea]

Re : première celulle non vide en partant du bas

re,

dim derLig as Long
derLig = Range("A" & Cells.Rows.Count).End(xlUp).Row
label1.Caption = Range("A" & derLig).Value

 

[pascal21]

Re : première celulle non vide en partant du bas

re
le problème c'est que les cellules en question contiennent une formule si etc....
et donc ça se positionne sur la cellule ne contenant pas de formule
peut-on remedier à cela

 

[cbea]

Re : première celulle non vide en partant du bas

re,

Pourrais-tu joindre un extrait de ton fichier ?

Merci

 

[cbea]

Re : première celulle non vide en partant du bas

re,

Une autre solution :

    Dim derLig As Long
    Dim lig
    
    ' Dernière ligne vide en colonne A
    derLig = Range("A" & Cells.Rows.Count).End(xlUp).Row
    
    ' Boucle de la dernière à la première ligne
    For lig = derLig To [COLOR="Red"]1[/COLOR] Step -1     [COLOR="red"]' le 1 est à adapter en fonction de ton fichier[/COLOR]
        ' Si le contenu de la cellule est vide, sortir
        If Range("A" & lig).Value <> "" Then
            Exit For
        End If
    Next lig
    
    ' Affichage de la dernière ligne vide
    Range("D1").Value = lig + 1

 

[pascal21]

Re : première celulle non vide en partant du bas

je te joint le fichier que j'ai modifier pour y afficher les N° de semaines colonne E
tu pourras constater que ça prend bien les formules en compte
juste le temps de lui faire subir une cure d'amaigrissement pour que ce passe

 

[pascal21]

Re : première celulle non vide en partant du bas

bon j'approche du but recherché
j'ai avec un code vba copier la colonne e dans la colonne m et du coup plus de formule genante dans les cellules
ce qui fait que ça selectionne bien la bonne cellule