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

Fermé
pling - 29 août 2013 à 15:36
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 29 août 2013 à 16:33
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
A voir également:

4 réponses

ccm81 Messages postés 10860 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 mai 2024 2 406
29 août 2013 à 15:41
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
0
benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
29 août 2013 à 15:44
Bonjour,

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

Joins nous ton fichier via https://www.cjoint.com/
0
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
29 août 2013 à 16:03
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
0
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
0
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
Modifié par pilas31 le 29/08/2013 à 16:23
Oui parce qu'il cherche la dernière ligne utilisée dans la colonne 1 (A) donc si ce n'est pas la colonne A qui détermine la dernière ligne alors mettre le bon numéro de colonne ou utiliser la solution proposée par ccm81 au dessus.
0
c'est bien la colonne A qui détermine la dern ligne c'est juste que sur :

Feuil 1 : dern = 135
Feuil 2 : dern = 85

moi j veux qu'il exécute mes instruction sur la feuil1 ou dern = 135

or quand j'exécute mon formulaire avec le classeur ouvert sur une autre feuil que la 2 il exécute les instruction sur la mauvaise feuille !!

j'espère que c'est un peu plus clair
0
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
Modifié par pilas31 le 29/08/2013 à 16:43
A d'accord je n'avais pas bien vu en fait je pense qu'il manque un point dans l'instruction suivante :

With Feuil1
dern = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row

et j'ajoute qu'il manque aussi un point devant le Range

Selection.AutoFill Destination:=.Range etc...
0