Dernière lignes correspondante à une Feuil(x) excel Fermé

Question

Bonjour, 

je cherche une formule qui me permettra de ressortir la valeur d'une cellule en dernière ligne dans une feuil 

exemple :  feuil ("suivi")

j'ai essayer les 2 formule : 

Sheets("suivi").Range(Cells(dern, 9)) = xxx
Sheets("suivi").Range("L" & dern ) = xxx

voila.  quelqu'un sait prk ça bug à ce niv ?

Merci pour votre aide

ccm81 · Answer

Bonjour

trouvé sur le forum

Sub LesDer()
Dim DerCel As Range
Dim DerCol As Long, DerLig As Long
DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
DerCol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
Set DerCel = Cells(DerLig, DerCol)
MsgBox "La dernière ligne utilisé est la ligne : " & DerLig
MsgBox "La dernière colonne utilisée est la colonne : " & DerCol
MsgBox DerCel.Address
End Sub
Cordialement

benol3 · Answer

Bonjour,

Y a pas assez d'informations pour te répondre ...

Joins nous ton fichier via  https://www.cjoint.com/

pilas31 · Answer

Bonjour à tous,

Peut-être de l'aide dans cette astuce de notre ami Pijaku :
https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne

pling · Answer

je connais ces formules mais le problème que j'ai est que je voudrais execiter un formulaire pour grossomodo entrer des information sur plusieurs feuilles de mon classeur or : 

quand j'exécute mon formulaire avec mon classeur ouvert feuil 2 par exemple : 

With Feuil1
dern = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row

Sheets("suivi").Range(Cells(dern, 12), Cells(dern, 14)).Select 

Selection.AutoFill Destination:=Range(Cells(dern, 12), Cells(dern + 1, 14)), Type:=xlFillDefault

end with 

il bug sur cette formule et m'affiche avec le curseur dern = 85 alors que dans ma feuil suivi la dernière ligne correspond à 135 bref il entre les informations sur la feuille ouverte dans cet exemple feuil 2

Dernière lignes correspondante à une Feuil(x) excel

4 réponses

Discussions similaires