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

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

Bonjour,

Y a pas assez d'informations pour te répondre ...

Joins nous ton fichier via https://www.cjoint.com/

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

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