Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel lastcell

lastcell

19 réponses
Avatar
Andrew
excusez-moi j'ai omis de mettre un objet

Andrew
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
lSteph
Bonsoir,

Ctrl+End

Cordialement.

lSteph
"Andrew" a écrit dans le message de news:

excusez-moi j'ai omis de mettre un objet

Andrew



Avatar
Andrew
Merci Steph

La solution que vous m'avez donné revient exactement au code de la macro.

et le résulatat est également faux lorsqu'on supprime ou efface la plage de
calcul

(Pour clarifier le suivi j'ai rajouté mon exte initial <<< ...<<< dans
lequel j'avais omis d'indique l'objet

bonne soirée

Andrew

"lSteph" a écrit dans le message de news:

Bonsoir,

Ctrl+End

Cordialement.

lSteph
"Andrew" a écrit dans le message de news:

excusez-moi j'ai omis de mettre un objet

Andrew

<<<Bonsoir les excel_entissimes



<<<Dans un feuille de calcul j'ai une plage de donnée quelconque par ex.
a1:f22

<<<Si j'excéute la macro suivante, la céllule activée sera F22


<<<Range("a1").Select

<<< Selection.SpecialCells(xlCellTypeLastCell).Select

<<<Si après avoir effacé ou même suprimé ma plage j'exécute à nouveau la
même
<<<macro, le résultat sera à nouveau F22.

<<Comment obtenir A1 ?

<<<Merci à l'avance de votre aide toujours au top !


Avatar
lSteph
Oui, tout dépend jusqu'où l'on veut aller!

Bon courage.

lSteph
"Andrew" a écrit dans le message de news:
44ff25ba$
Merci Steph

La solution que vous m'avez donné revient exactement au code de la macro.

et le résulatat est également faux lorsqu'on supprime ou efface la plage
de calcul

(Pour clarifier le suivi j'ai rajouté mon exte initial <<< ...<<< dans
lequel j'avais omis d'indique l'objet

bonne soirée

Andrew

"lSteph" a écrit dans le message de news:

Bonsoir,

Ctrl+End

Cordialement.

lSteph
"Andrew" a écrit dans le message de news:

excusez-moi j'ai omis de mettre un objet

Andrew

<<<Bonsoir les excel_entissimes



<<<Dans un feuille de calcul j'ai une plage de donnée quelconque par ex.
a1:f22

<<<Si j'excéute la macro suivante, la céllule activée sera F22


<<<Range("a1").Select

<<< Selection.SpecialCells(xlCellTypeLastCell).Select

<<<Si après avoir effacé ou même suprimé ma plage j'exécute à nouveau la
même
<<<macro, le résultat sera à nouveau F22.

<<Comment obtenir A1 ?

<<<Merci à l'avance de votre aide toujours au top !







Avatar
Jacky
Bonsoir
<<<Si après avoir effacé ou même suprimé ma plage j'exécute à nouveau la
même
<<<macro, le résultat sera à nouveau F22.



Excel a la fâcheuse habitude de garder en mémoire la sélection de
"SpecialCells(xlCellTypeLastCell)" même après effacement de la plage, sauf
si le fichier est enregistré puis ré-ouvert.

Av avait donné une alternative.
dernièrecollonne = Cells.Find("*", , 1, , 2, 2).Column
dernièreligne = Cells.Find("*", , 1, , 1, 2).Row

Salutations
JJ

"Andrew" a écrit dans le message de news:

excusez-moi j'ai omis de mettre un objet

Andrew



Avatar
Cucky
Bonjour,
l'alternative d'AV m'intéresse mais quand je l'essaie, j'ai un message
d'erreur :

"Erreur de compilation
Utilisation incorrecte de la propriété"


Voici mon code:
Sub test()
'
' test Macro
' Macro enregistrée le 07/09/2006 par Corinne
'
'
Range("a1").Select
Cells.Find("*", , 1, , 2, 2).Column
Cells.Find("*", , 1, , 1, 2).Row
End Sub

Attention, je suis une grande débutante,
merci de vos lumières
Corinne


Jacky wrote:
Bonsoir
<<<Si après avoir effacé ou même suprimé ma plage j'exécute à nouveau la
même
<<<macro, le résultat sera à nouveau F22.



Excel a la fâcheuse habitude de garder en mémoire la sélection de
"SpecialCells(xlCellTypeLastCell)" même après effacement de la plage, sauf
si le fichier est enregistré puis ré-ouvert.

Av avait donné une alternative.
dernièrecollonne = Cells.Find("*", , 1, , 2, 2).Column
dernièreligne = Cells.Find("*", , 1, , 1, 2).Row

Salutations
JJ

"Andrew" a écrit dans le message de news:

excusez-moi j'ai omis de mettre un objet

Andrew





Avatar
FxM
Bonsoir Cucky,

Cells.Find("*", , 1, , 2, 2).Column t'indique la numérod e la dernière
colonne. Il faut que tu utilises ce nombre ou l'affectes à une variable.
Idem pour la dernière ligne.

Quelque chose comme :
Sub test()
' Macro enregistrée le 07/09/2006 par Corinne
Range("a1").Select
cx = activesheet.Cells.Find("*", , 1, , 2, 2).Column
lx = activesheet.Cells.Find("*", , 1, , 1, 2).Row
msgbox "dernière cellule en :" & vbnewline & _
"colonne " & cx & vbnewline & _
"ligne " & lx
End Sub

@+
FxM



Bonjour,
l'alternative d'AV m'intéresse mais quand je l'essaie, j'ai un message
d'erreur :

"Erreur de compilation
Utilisation incorrecte de la propriété"


Voici mon code:
Sub test()
'
' test Macro
' Macro enregistrée le 07/09/2006 par Corinne
'
'
Range("a1").Select
Cells.Find("*", , 1, , 2, 2).Column
Cells.Find("*", , 1, , 1, 2).Row
End Sub

Attention, je suis une grande débutante,
merci de vos lumières
Corinne


Jacky wrote:
Bonsoir
<<<Si après avoir effacé ou même suprimé ma plage j'exécute à nouveau la
même
<<<macro, le résultat sera à nouveau F22.

Excel a la fâcheuse habitude de garder en mémoire la sélection de

"SpecialCells(xlCellTypeLastCell)" même après effacement de la plage, sauf
si le fichier est enregistré puis ré-ouvert.

Av avait donné une alternative.
dernièrecollonne = Cells.Find("*", , 1, , 2, 2).Column
dernièreligne = Cells.Find("*", , 1, , 1, 2).Row

Salutations
JJ

"Andrew" a écrit dans le message de news:

excusez-moi j'ai omis de mettre un objet

Andrew








Avatar
Cucky
Bonsoir FxM,
merci mais maintenant le DEBOGEUR me dit:
"L'indice n'appartient pas à la sélection"
et met en jaune la ligne :
cx = activesheet.Cells.Find("*", , 1, , 2, 2).Column

Or je souhaite seulement que le code de la macro sélectionne toujours
la cellule la plus à droite et la plus en bas, donc pas d'effet de
mémoire comme LASTCELL ?

Je suis peut-être trop nulle ou novice... ?!
Cucky



FxM wrote:
Bonsoir Cucky,

Cells.Find("*", , 1, , 2, 2).Column t'indique la numérod e la dernière
colonne. Il faut que tu utilises ce nombre ou l'affectes à une variable.
Idem pour la dernière ligne.

Quelque chose comme :
Sub test()
' Macro enregistrée le 07/09/2006 par Corinne
Range("a1").Select
cx = activesheet.Cells.Find("*", , 1, , 2, 2).Column
lx = activesheet.Cells.Find("*", , 1, , 1, 2).Row
msgbox "dernière cellule en :" & vbnewline & _
"colonne " & cx & vbnewline & _
"ligne " & lx
End Sub

@+
FxM



Bonjour,
l'alternative d'AV m'intéresse mais quand je l'essaie, j'ai un message
d'erreur :

"Erreur de compilation
Utilisation incorrecte de la propriété"


Voici mon code:
Sub test()
'
' test Macro
' Macro enregistrée le 07/09/2006 par Corinne
'
'
Range("a1").Select
Cells.Find("*", , 1, , 2, 2).Column
Cells.Find("*", , 1, , 1, 2).Row
End Sub

Attention, je suis une grande débutante,
merci de vos lumières
Corinne


Jacky wrote:
Bonsoir
<<<Si après avoir effacé ou même suprimé ma plage j'exécute à nouveau la
même
<<<macro, le résultat sera à nouveau F22.

Excel a la fâcheuse habitude de garder en mémoire la sélection de

"SpecialCells(xlCellTypeLastCell)" même après effacement de la pla ge, sauf
si le fichier est enregistré puis ré-ouvert.

Av avait donné une alternative.
dernièrecollonne = Cells.Find("*", , 1, , 2, 2).Column
dernièreligne = Cells.Find("*", , 1, , 1, 2).Row

Salutations
JJ

"Andrew" a écrit dans le message de news:

excusez-moi j'ai omis de mettre un objet

Andrew










Avatar
Michel Gaboly
Bonsoir,

Cette simple procédure réinitialise correctement la position de la de rnière cellule, sans qu'un enregistrement soit
nécessaire :

Sub MAJLastCell()
ActiveSheet.UsedRange
End Sub


Bonsoir FxM,
merci mais maintenant le DEBOGEUR me dit:
"L'indice n'appartient pas à la sélection"
et met en jaune la ligne :
cx = activesheet.Cells.Find("*", , 1, , 2, 2).Column

Or je souhaite seulement que le code de la macro sélectionne toujours
la cellule la plus à droite et la plus en bas, donc pas d'effet de
mémoire comme LASTCELL ?

Je suis peut-être trop nulle ou novice... ?!
Cucky





--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
FxM
Bonsoir Corinne,

merci mais maintenant le DEBOGEUR me dit:
"L'indice n'appartient pas à la sélection"


Il a du y avoir problème de recopie auparavant.

Ca fonctionne avec les deux lignes suivantes (testé XL2002):
Cx = ActiveSheet.Cells.Find("*", [A1], , , 2, 2).Column
Lx = ActiveSheet.Cells.Find("*", [A1], , , 1, 2).Row
sous la réserve de ne pas avoir une feuille complètement vierge.


Je suis peut-être trop nulle ou novice... ?!
Cucky


Allons, allons, Google m'a dit que tu n'es ni nulle, ni novice
... même plutôt mignonne ;o) et loin :o(

@+
FxM



Bonsoir FxM,
merci mais maintenant le DEBOGEUR me dit:
"L'indice n'appartient pas à la sélection"
et met en jaune la ligne :
cx = activesheet.Cells.Find("*", , 1, , 2, 2).Column

Or je souhaite seulement que le code de la macro sélectionne toujours
la cellule la plus à droite et la plus en bas, donc pas d'effet de
mémoire comme LASTCELL ?

Je suis peut-être trop nulle ou novice... ?!
Cucky



FxM wrote:
Bonsoir Cucky,

Cells.Find("*", , 1, , 2, 2).Column t'indique la numérod e la dernière
colonne. Il faut que tu utilises ce nombre ou l'affectes à une variable.
Idem pour la dernière ligne.

Quelque chose comme :
Sub test()
' Macro enregistrée le 07/09/2006 par Corinne
Range("a1").Select
cx = activesheet.Cells.Find("*", , 1, , 2, 2).Column
lx = activesheet.Cells.Find("*", , 1, , 1, 2).Row
msgbox "dernière cellule en :" & vbnewline & _
"colonne " & cx & vbnewline & _
"ligne " & lx
End Sub

@+
FxM



Bonjour,
l'alternative d'AV m'intéresse mais quand je l'essaie, j'ai un message
d'erreur :

"Erreur de compilation
Utilisation incorrecte de la propriété"


Voici mon code:
Sub test()
'
' test Macro
' Macro enregistrée le 07/09/2006 par Corinne
'
'
Range("a1").Select
Cells.Find("*", , 1, , 2, 2).Column
Cells.Find("*", , 1, , 1, 2).Row
End Sub

Attention, je suis une grande débutante,
merci de vos lumières
Corinne


Jacky wrote:
Bonsoir
<<<Si après avoir effacé ou même suprimé ma plage j'exécute à nouveau la
même
<<<macro, le résultat sera à nouveau F22.

Excel a la fâcheuse habitude de garder en mémoire la sélection de

"SpecialCells(xlCellTypeLastCell)" même après effacement de la plage, sauf
si le fichier est enregistré puis ré-ouvert.

Av avait donné une alternative.
dernièrecollonne = Cells.Find("*", , 1, , 2, 2).Column
dernièreligne = Cells.Find("*", , 1, , 1, 2).Row

Salutations
JJ

"Andrew" a écrit dans le message de news:

excusez-moi j'ai omis de mettre un objet

Andrew












Avatar
lSteph
Bonjour,

Ouille aille, j'avais d'abord compris autrechose
puis comme tu y faisais allusion j'ai cherché <<< ...<<< dans le
message où tu disais avoir omis d'indiquer l'objet, sans rien trouver de
+..j'ai laissé tomber.
-au vu de nouvelles réponses, je viens de recoller les morceaux et
m'apercevoir qu'il y avait
tout bêtement de la suite , ici même plus bas.

Désolé.

@+

lSteph




"Andrew" a écrit dans le message de news:
44ff25ba$
Merci Steph

La solution que vous m'avez donné revient exactement au code de la macro.

et le résulatat est également faux lorsqu'on supprime ou efface la plage
de calcul

(Pour clarifier le suivi j'ai rajouté mon exte initial <<< ...<<< dans
lequel j'avais omis d'indique l'objet

bonne soirée

Andrew

"lSteph" a écrit dans le message de news:

Bonsoir,

Ctrl+End

Cordialement.

lSteph
"Andrew" a écrit dans le message de news:

excusez-moi j'ai omis de mettre un objet

Andrew

<<<Bonsoir les excel_entissimes



<<<Dans un feuille de calcul j'ai une plage de donnée quelconque par ex.
a1:f22

<<<Si j'excéute la macro suivante, la céllule activée sera F22


<<<Range("a1").Select

<<< Selection.SpecialCells(xlCellTypeLastCell).Select

<<<Si après avoir effacé ou même suprimé ma plage j'exécute à nouveau la
même
<<<macro, le résultat sera à nouveau F22.

<<Comment obtenir A1 ?

<<<Merci à l'avance de votre aide toujours au top !







1 2