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
Daniel
Bonjour. Range("A10", Range("A10").End(xlDown)).Select Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
bonjour (re !)
j'ai à partir de A10 une colonne avec des valeurs contigues vers le bas, sans trou au milieu.
je voudrais selectionner toute la plage entre la cellule courante jusqu'à la dernière ligne de cette plage....
Je me perd dans les "Selection.End(xlDown).Select" un petit coupe de main svp ?
Merci
José
Bonjour.
Range("A10", Range("A10").End(xlDown)).Select
Cordialement.
Daniel
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1141904854.889875.46040@i40g2000cwc.googlegroups.com...
bonjour (re !)
j'ai à partir de A10 une colonne avec des valeurs contigues vers le
bas, sans trou au milieu.
je voudrais selectionner toute la plage entre la cellule courante
jusqu'à la dernière ligne de cette plage....
Je me perd dans les "Selection.End(xlDown).Select" un petit coupe de
main svp ?
Merci Daniel, mais, et si je souhaite que ce code fonctionne lorsque le curseur sera dans la colonne à coté (la colonne B) ?
Merci José
Daniel
Range(ActiveCell, ActiveCell.End(xlDown)).Select Daniel "Alfred WALLACE" a écrit dans le message de news:
Merci Daniel, mais, et si je souhaite que ce code fonctionne lorsque le curseur sera dans la colonne à coté (la colonne B) ?
Merci José
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Daniel
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1141906517.614931.69470@j33g2000cwa.googlegroups.com...
Merci Daniel,
mais, et si je souhaite que ce code fonctionne lorsque le curseur sera
dans la colonne à coté (la colonne B) ?
Range(ActiveCell, ActiveCell.End(xlDown)).Select Daniel "Alfred WALLACE" a écrit dans le message de news:
Merci Daniel, mais, et si je souhaite que ce code fonctionne lorsque le curseur sera dans la colonne à coté (la colonne B) ?
Merci José
Ardus Petus
Sub SelectionFinColonne() Dim derCell As Range
Set derCell = ActiveCell.End(xlDown) If derCell.Value <> "" Then Range(Selection, derCell).Select End If End Sub
Cordialement, -- AP
PS: Tu obtiends (presque) le même résultat en tapant Ctrl+Maj+Flèche bas
"Alfred WALLACE" a écrit dans le message de news: Merci Daniel, mais, et si je souhaite que ce code fonctionne lorsque le curseur sera dans la colonne à coté (la colonne B) ?
Merci José
Sub SelectionFinColonne()
Dim derCell As Range
Set derCell = ActiveCell.End(xlDown)
If derCell.Value <> "" Then
Range(Selection, derCell).Select
End If
End Sub
Cordialement,
--
AP
PS: Tu obtiends (presque) le même résultat en tapant Ctrl+Maj+Flèche bas
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de
news:1141906517.614931.69470@j33g2000cwa.googlegroups.com...
Merci Daniel,
mais, et si je souhaite que ce code fonctionne lorsque le curseur sera
dans la colonne à coté (la colonne B) ?
Set derCell = ActiveCell.End(xlDown) If derCell.Value <> "" Then Range(Selection, derCell).Select End If End Sub
Cordialement, -- AP
PS: Tu obtiends (presque) le même résultat en tapant Ctrl+Maj+Flèche bas
"Alfred WALLACE" a écrit dans le message de news: Merci Daniel, mais, et si je souhaite que ce code fonctionne lorsque le curseur sera dans la colonne à coté (la colonne B) ?
Bonjour, Pour le faire n'importe où : Range(ActiveCell.Address, ActiveCell.End(xlDown)).Select Et pour descendre à la dernière cellule verticale de la sélection précédente : Selection.End(xlDown).Select Henry
Bonjour. Range("A10", Range("A10").End(xlDown)).Select Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
bonjour (re !)
j'ai à partir de A10 une colonne avec des valeurs contigues vers le bas, sans trou au milieu.
je voudrais selectionner toute la plage entre la cellule courante jusqu'à la dernière ligne de cette plage....
Je me perd dans les "Selection.End(xlDown).Select" un petit coupe de main svp ?
Merci
José
Bonjour,
Pour le faire n'importe où :
Range(ActiveCell.Address, ActiveCell.End(xlDown)).Select
Et pour descendre à la dernière cellule verticale de la sélection
précédente :
Selection.End(xlDown).Select
Henry
Bonjour.
Range("A10", Range("A10").End(xlDown)).Select
Cordialement.
Daniel
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1141904854.889875.46040@i40g2000cwc.googlegroups.com...
bonjour (re !)
j'ai à partir de A10 une colonne avec des valeurs contigues vers le
bas, sans trou au milieu.
je voudrais selectionner toute la plage entre la cellule courante
jusqu'à la dernière ligne de cette plage....
Je me perd dans les "Selection.End(xlDown).Select" un petit coupe de
main svp ?
Bonjour, Pour le faire n'importe où : Range(ActiveCell.Address, ActiveCell.End(xlDown)).Select Et pour descendre à la dernière cellule verticale de la sélection précédente : Selection.End(xlDown).Select Henry
Bonjour. Range("A10", Range("A10").End(xlDown)).Select Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
bonjour (re !)
j'ai à partir de A10 une colonne avec des valeurs contigues vers le bas, sans trou au milieu.
je voudrais selectionner toute la plage entre la cellule courante jusqu'à la dernière ligne de cette plage....
Je me perd dans les "Selection.End(xlDown).Select" un petit coupe de main svp ?
Merci
José
Ardus Petus
Attention au bug de l'an 2007, lorsqu'Excel aura plus de 65536 lignes!
-- AP
"Alfred WALLACE" a écrit dans le message de news: ben merci pour l'aide !