J'aimerais que le curseur se place sur la derni=E8re ligne=20
ou il y a une entr=E9e dans une feuille =E0 l'ouverture, bien=20
sur le num=E9ro de la colonne serait aussi bien utile.
Comment faire ?
Merci de votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Xoco
tu peux trouver la derniere ligne avec activesheet.usedrange.rows.count ----------------- ou -------- range("a65536").select Selection.End(xlUp).Select mais dans ce cas, ca sera relativement a la derniere cellule de la colonne A a+ Xoco
-----Message d'origine----- Bonjour.
J'aimerais que le curseur se place sur la dernière ligne ou il y a une entrée dans une feuille à l'ouverture, bien sur le numéro de la colonne serait aussi bien utile. Comment faire ? Merci de votre aide. .
tu peux trouver la derniere ligne avec
activesheet.usedrange.rows.count
----------------- ou --------
range("a65536").select
Selection.End(xlUp).Select
mais dans ce cas, ca sera relativement a la derniere
cellule de la colonne A
a+
Xoco
-----Message d'origine-----
Bonjour.
J'aimerais que le curseur se place sur la dernière ligne
ou il y a une entrée dans une feuille à l'ouverture, bien
sur le numéro de la colonne serait aussi bien utile.
Comment faire ?
Merci de votre aide.
.
tu peux trouver la derniere ligne avec activesheet.usedrange.rows.count ----------------- ou -------- range("a65536").select Selection.End(xlUp).Select mais dans ce cas, ca sera relativement a la derniere cellule de la colonne A a+ Xoco
-----Message d'origine----- Bonjour.
J'aimerais que le curseur se place sur la dernière ligne ou il y a une entrée dans une feuille à l'ouverture, bien sur le numéro de la colonne serait aussi bien utile. Comment faire ? Merci de votre aide. .
Nicolas B.
Salut Pierre,
Place ceci dans le ThisWorkbook :
Private Sub Workbook_Open() ActiveSheet.Cells.SpecialCells(xlLastCell).Select End Sub
A l'ouverture, la dernière cellule (en bas à droite) du tableau est sélectionnée.
J'aimerais que le curseur se place sur la dernière ligne ou il y a une entrée dans une feuille à l'ouverture, bien sur le numéro de la colonne serait aussi bien utile. Comment faire ? Merci de votre aide.
Salut Pierre,
Place ceci dans le ThisWorkbook :
Private Sub Workbook_Open()
ActiveSheet.Cells.SpecialCells(xlLastCell).Select
End Sub
A l'ouverture, la dernière cellule (en bas à droite) du tableau est
sélectionnée.
J'aimerais que le curseur se place sur la dernière ligne
ou il y a une entrée dans une feuille à l'ouverture, bien
sur le numéro de la colonne serait aussi bien utile.
Comment faire ?
Merci de votre aide.
J'aimerais que le curseur se place sur la dernière ligne ou il y a une entrée dans une feuille à l'ouverture, bien sur le numéro de la colonne serait aussi bien utile. Comment faire ? Merci de votre aide.
AV
J'aimerais que le curseur se place sur la dernière ligne ou il y a une entrée dans une feuille à l'ouverture,
l'index de la dernière ligne renseignée : Lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
l'index de la dernière colonne renseignée : Cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
La dernière cellule d'un tableau (l'intersection de la dernière ligne renseignée et dernière colonne renseignée) Tableau démarrant en A1 : MsgBox Cells(Lx, Cx).Address
AV
J'aimerais que le curseur se place sur la dernière ligne
ou il y a une entrée dans une feuille à l'ouverture,
l'index de la dernière ligne renseignée :
Lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
l'index de la dernière colonne renseignée :
Cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
La dernière cellule d'un tableau (l'intersection de la dernière ligne renseignée
et dernière colonne renseignée)
Tableau démarrant en A1 :
MsgBox Cells(Lx, Cx).Address
J'aimerais que le curseur se place sur la dernière ligne ou il y a une entrée dans une feuille à l'ouverture,
l'index de la dernière ligne renseignée : Lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
l'index de la dernière colonne renseignée : Cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
La dernière cellule d'un tableau (l'intersection de la dernière ligne renseignée et dernière colonne renseignée) Tableau démarrant en A1 : MsgBox Cells(Lx, Cx).Address
AV
gilbert
Bonjour Pierre
tu copies ce code dans un module
Sub dern_ligne() dercell = ActiveSheet.Cells(65536, 3).End xlUp).Address Range(dercell).Select ligne = ActiveCell.Row colonne = ActiveCell.Column Cells(ligne + 1, colonne).Activate ActiveCell.Value = "Le " & Format(Date, "dd mm yy") & " a: " & Format(Time, "hh:mm:ss") end sub
@+++ -- supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement . SVP
"Pierre" a écrit dans le message de news: 014701c3c0c8$a5140250$ Bonjour.
J'aimerais que le curseur se place sur la dernière ligne ou il y a une entrée dans une feuille à l'ouverture, bien sur le numéro de la colonne serait aussi bien utile. Comment faire ? Merci de votre aide.
Bonjour Pierre
tu copies ce code dans un module
Sub dern_ligne()
dercell = ActiveSheet.Cells(65536, 3).End xlUp).Address
Range(dercell).Select
ligne = ActiveCell.Row
colonne = ActiveCell.Column
Cells(ligne + 1, colonne).Activate
ActiveCell.Value = "Le " & Format(Date, "dd mm yy") & " a: " & Format(Time,
"hh:mm:ss")
end sub
@+++
--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP
"Pierre" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 014701c3c0c8$a5140250$a101280a@phx.gbl...
Bonjour.
J'aimerais que le curseur se place sur la dernière ligne
ou il y a une entrée dans une feuille à l'ouverture, bien
sur le numéro de la colonne serait aussi bien utile.
Comment faire ?
Merci de votre aide.
Sub dern_ligne() dercell = ActiveSheet.Cells(65536, 3).End xlUp).Address Range(dercell).Select ligne = ActiveCell.Row colonne = ActiveCell.Column Cells(ligne + 1, colonne).Activate ActiveCell.Value = "Le " & Format(Date, "dd mm yy") & " a: " & Format(Time, "hh:mm:ss") end sub
@+++ -- supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement . SVP
"Pierre" a écrit dans le message de news: 014701c3c0c8$a5140250$ Bonjour.
J'aimerais que le curseur se place sur la dernière ligne ou il y a une entrée dans une feuille à l'ouverture, bien sur le numéro de la colonne serait aussi bien utile. Comment faire ? Merci de votre aide.
-- supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement . SVP "AV" a écrit dans le message de news:
;-)
T'es sur de l'adéquation question/réponse ?
AV
Bonjour Alain
Mon exemple est-il vraiment hors sujet ? ;-|
@+++
--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
elcd0DZwDHA.1908@TK2MSFTNGP10.phx.gbl...
Ben par rapport à la question (à priori on ne connait pas la colonne..), il me semble que..... Mais bon....pas grave
AV
gilbert
à priori on ne connaît pas la colonne
et comme cela est-ce plus explicite ;-)
Sub dern_ligne() dercell = ActiveSheet.Cells(65536, 3).End(xlUp).Address Range(dercell).Select ligne = ActiveCell.Row colonne = ActiveCell.Column MsgBox "Vous êtes sur la " & colonne & "ème colonne" Cells(ligne + 1, colonne).Activate MsgBox " Et sur la " & ligne + 1 & "ème ligne." ActiveCell.Value = "Le " & Format(Date, "dd mm yy") & " a: " & Format(Time, "hh:mm:ss") End Sub
-- +----------------------------------------------------------------------+ supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement . SVP +----------------------------------------------------------------------+
à priori on ne connaît pas la colonne
et comme cela est-ce plus explicite ;-)
Sub dern_ligne()
dercell = ActiveSheet.Cells(65536, 3).End(xlUp).Address
Range(dercell).Select
ligne = ActiveCell.Row
colonne = ActiveCell.Column
MsgBox "Vous êtes sur la " & colonne & "ème colonne"
Cells(ligne + 1, colonne).Activate
MsgBox " Et sur la " & ligne + 1 & "ème ligne."
ActiveCell.Value = "Le " & Format(Date, "dd mm yy") & " a: " & Format(Time,
"hh:mm:ss")
End Sub
--
+----------------------------------------------------------------------+
supprimer 'stpspam' à mon adresse de messagerie pour me joindre
directement . SVP
+----------------------------------------------------------------------+
Sub dern_ligne() dercell = ActiveSheet.Cells(65536, 3).End(xlUp).Address Range(dercell).Select ligne = ActiveCell.Row colonne = ActiveCell.Column MsgBox "Vous êtes sur la " & colonne & "ème colonne" Cells(ligne + 1, colonne).Activate MsgBox " Et sur la " & ligne + 1 & "ème ligne." ActiveCell.Value = "Le " & Format(Date, "dd mm yy") & " a: " & Format(Time, "hh:mm:ss") End Sub
-- +----------------------------------------------------------------------+ supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement . SVP +----------------------------------------------------------------------+
