Bonjour
3 lignes et j'en ai essayé bien d'autres.
Rien à faire, à chaque fois une erreur.
Quoi qui ne va pas ?
Je veux me positionner sur la dernière cellule non vide de la colonne en
cours.
C'est sans doute bête comme choux mais pas pour moi.
Merci
Dim position
Set position = ActiveCell
Range(65536, position.Column.Address).End(xlUp).Select
Range(65536, position.Column).End(xlUp).Select
Range(Cells(65536, position.Column)).End(xlUp).Select
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
Charabeuh
Bonjour,
Essayez avec Cells(65536, ActiveCell.Column).End(xlUp).Select
"milloche" a écrit dans le message de news:
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select
Bonjour,
Essayez avec
Cells(65536, ActiveCell.Column).End(xlUp).Select
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de
news:OwlTGa7MKHA.4028@TK2MSFTNGP05.phx.gbl...
Bonjour
3 lignes et j'en ai essayé bien d'autres.
Rien à faire, à chaque fois une erreur.
Quoi qui ne va pas ?
Je veux me positionner sur la dernière cellule non vide de la colonne en
cours.
C'est sans doute bête comme choux mais pas pour moi.
Merci
Dim position
Set position = ActiveCell
Range(65536, position.Column.Address).End(xlUp).Select
Range(65536, position.Column).End(xlUp).Select
Range(Cells(65536, position.Column)).End(xlUp).Select
Essayez avec Cells(65536, ActiveCell.Column).End(xlUp).Select
"milloche" a écrit dans le message de news:
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select
Bonjour
3 lignes et j'en ai essayé bien d'autres.
Rien à faire, à chaque fois une erreur.
Quoi qui ne va pas ?
Je veux me positionner sur la dernière cellule non vide de la colonne en
cours.
C'est sans doute bête comme choux mais pas pour moi.
Merci
Dim position
Set position = ActiveCell
Range(65536, position.Column.Address).End(xlUp).Select
Range(65536, position.Column).End(xlUp).Select
Range(Cells(65536, position.Column)).End(xlUp).Select
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select
Bonjour
3 lignes et j'en ai essayé bien d'autres.
Rien à faire, à chaque fois une erreur.
Quoi qui ne va pas ?
Je veux me positionner sur la dernière cellule non vide de la colonne
en cours.
C'est sans doute bête comme choux mais pas pour moi.
Merci
Dim position
Set position = ActiveCell
Range(65536, position.Column.Address).End(xlUp).Select
Range(65536, position.Column).End(xlUp).Select
Range(Cells(65536, position.Column)).End(xlUp).Select
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select
milloche
Les deux fonctionnent. Comme quoi quand on est bête, on reste bête <[:o)) J'étais quand même pas loin ! Merci pour cette rapidité. JMM
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select
Les deux fonctionnent.
Comme quoi quand on est bête, on reste bête
<[:o)) J'étais quand même pas loin !
Merci pour cette rapidité.
JMM
"isabelle" <i@v> a écrit dans le message de news:
Oz584q7MKHA.1796@TK2MSFTNGP02.phx.gbl...
Bonjour
3 lignes et j'en ai essayé bien d'autres.
Rien à faire, à chaque fois une erreur.
Quoi qui ne va pas ?
Je veux me positionner sur la dernière cellule non vide de la colonne en
cours.
C'est sans doute bête comme choux mais pas pour moi.
Merci
Dim position
Set position = ActiveCell
Range(65536, position.Column.Address).End(xlUp).Select
Range(65536, position.Column).End(xlUp).Select
Range(Cells(65536, position.Column)).End(xlUp).Select
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select
milloche
Garcimore, humoriste d'origine espagnole, prestistidigitateur comique qui à chaque fois que son tour de magie ne fonctionnait pas (à chaque fois) disait en rigolant, avec son accent : ça malse pas.
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select
Garcimore, humoriste d'origine espagnole, prestistidigitateur comique qui à
chaque fois que son tour de magie ne fonctionnait pas (à chaque fois)
disait en rigolant, avec son accent : ça malse pas.
"isabelle" <i@v> a écrit dans le message de news:
u8Rodw7MKHA.5108@TK2MSFTNGP02.phx.gbl...
Bonjour
3 lignes et j'en ai essayé bien d'autres.
Rien à faire, à chaque fois une erreur.
Quoi qui ne va pas ?
Je veux me positionner sur la dernière cellule non vide de la colonne
en cours.
C'est sans doute bête comme choux mais pas pour moi.
Merci
Dim position
Set position = ActiveCell
Range(65536, position.Column.Address).End(xlUp).Select
Range(65536, position.Column).End(xlUp).Select
Range(Cells(65536, position.Column)).End(xlUp).Select
Garcimore, humoriste d'origine espagnole, prestistidigitateur comique qui à chaque fois que son tour de magie ne fonctionnait pas (à chaque fois) disait en rigolant, avec son accent : ça malse pas.
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select
isabelle
bonjour JMM,
ha oui, ce regretté José, merci pour ce retour,
isabelle
milloche a écrit :
Garcimore, humoriste d'origine espagnole, prestistidigitateur comique qui à chaque fois que son tour de magie ne fonctionnait pas (à chaque fois) disait en rigolant, avec son accent : ça malse pas.
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select
bonjour JMM,
ha oui, ce regretté José,
merci pour ce retour,
isabelle
milloche a écrit :
Garcimore, humoriste d'origine espagnole, prestistidigitateur comique qui à
chaque fois que son tour de magie ne fonctionnait pas (à chaque fois)
disait en rigolant, avec son accent : ça malse pas.
"isabelle" <i@v> a écrit dans le message de news:
u8Rodw7MKHA.5108@TK2MSFTNGP02.phx.gbl...
Bonjour
3 lignes et j'en ai essayé bien d'autres.
Rien à faire, à chaque fois une erreur.
Quoi qui ne va pas ?
Je veux me positionner sur la dernière cellule non vide de la colonne
en cours.
C'est sans doute bête comme choux mais pas pour moi.
Merci
Dim position
Set position = ActiveCell
Range(65536, position.Column.Address).End(xlUp).Select
Range(65536, position.Column).End(xlUp).Select
Range(Cells(65536, position.Column)).End(xlUp).Select
Garcimore, humoriste d'origine espagnole, prestistidigitateur comique qui à chaque fois que son tour de magie ne fonctionnait pas (à chaque fois) disait en rigolant, avec son accent : ça malse pas.
Bonjour 3 lignes et j'en ai essayé bien d'autres. Rien à faire, à chaque fois une erreur. Quoi qui ne va pas ? Je veux me positionner sur la dernière cellule non vide de la colonne en cours. C'est sans doute bête comme choux mais pas pour moi. Merci Dim position Set position = ActiveCell Range(65536, position.Column.Address).End(xlUp).Select Range(65536, position.Column).End(xlUp).Select Range(Cells(65536, position.Column)).End(xlUp).Select