Re à tous ...
Encore un Pb de selection :
J'ai une zone de 5 cellules de sélectionnée.
(Par exemple L20:P20)
J'aimerai sélectionner automatiquement toute la zonne se trouvant au dessus
de cette selection.
Un peu du style :
Range(Selection, Selection.End(xlUp)).Select
Mais avec cette fonction, la premiere zone reste dans la sélection finale
En fait, le but est de faire descendre d'une ligne tout se qui se trouve
excactement au dessus.
Pour etre encore plus précis:
selection.(L20:P20) -> selection.ClearContents
Selection.(L1:P19) -> selection.Copy
Selection.(L2:P20) -> selection.Paste
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
ru-th
Salut
pas tout compris, mais Range(Selection.offset(-1), Selection.End(xlUp)).Select
devrait suffire
mais tu pourrais avoir aussi pour l'ensemble Selection.Copy Cells(Selection.End(3).Row, Selection.Column).Insert Shift:=xlDown Selection.Offset(1).ClearContents a+ rural thierry "Guillaume" <not> a écrit dans le message de news:
Re à tous ... Encore un Pb de selection : J'ai une zone de 5 cellules de sélectionnée. (Par exemple L20:P20)
J'aimerai sélectionner automatiquement toute la zonne se trouvant au dessus
de cette selection.
Un peu du style : Range(Selection, Selection.End(xlUp)).Select Mais avec cette fonction, la premiere zone reste dans la sélection finale
En fait, le but est de faire descendre d'une ligne tout se qui se trouve excactement au dessus.
Pour etre encore plus précis: selection.(L20:P20) -> selection.ClearContents Selection.(L1:P19) -> selection.Copy Selection.(L2:P20) -> selection.Paste
Volà ... si vous avez des pistes ....
Merci
Salut
pas tout compris, mais
Range(Selection.offset(-1), Selection.End(xlUp)).Select
devrait suffire
mais tu pourrais avoir aussi pour l'ensemble
Selection.Copy
Cells(Selection.End(3).Row, Selection.Column).Insert Shift:=xlDown
Selection.Offset(1).ClearContents
a+
rural thierry
"Guillaume" <not> a écrit dans le message de news:
uE5pGaX6DHA.2380@TK2MSFTNGP10.phx.gbl...
Re à tous ...
Encore un Pb de selection :
J'ai une zone de 5 cellules de sélectionnée.
(Par exemple L20:P20)
J'aimerai sélectionner automatiquement toute la zonne se trouvant au
dessus
de cette selection.
Un peu du style :
Range(Selection, Selection.End(xlUp)).Select
Mais avec cette fonction, la premiere zone reste dans la sélection finale
En fait, le but est de faire descendre d'une ligne tout se qui se trouve
excactement au dessus.
Pour etre encore plus précis:
selection.(L20:P20) -> selection.ClearContents
Selection.(L1:P19) -> selection.Copy
Selection.(L2:P20) -> selection.Paste
pas tout compris, mais Range(Selection.offset(-1), Selection.End(xlUp)).Select
devrait suffire
mais tu pourrais avoir aussi pour l'ensemble Selection.Copy Cells(Selection.End(3).Row, Selection.Column).Insert Shift:=xlDown Selection.Offset(1).ClearContents a+ rural thierry "Guillaume" <not> a écrit dans le message de news:
Re à tous ... Encore un Pb de selection : J'ai une zone de 5 cellules de sélectionnée. (Par exemple L20:P20)
J'aimerai sélectionner automatiquement toute la zonne se trouvant au dessus
de cette selection.
Un peu du style : Range(Selection, Selection.End(xlUp)).Select Mais avec cette fonction, la premiere zone reste dans la sélection finale
En fait, le but est de faire descendre d'une ligne tout se qui se trouve excactement au dessus.
Pour etre encore plus précis: selection.(L20:P20) -> selection.ClearContents Selection.(L1:P19) -> selection.Copy Selection.(L2:P20) -> selection.Paste
Volà ... si vous avez des pistes ....
Merci
Ellimac
Bonjour,
Sub titi() l = ActiveCell.Row c = ActiveCell.Column Range(Cells(1, c), Cells(l - 1, c + 4)).Copy Cells(l + 1, c) End Sub
Remplacer Copy par Cut pour déplacer et non pas copier les cellules au dessus.
Camille
-----Message d'origine----- Re à tous ... Encore un Pb de selection : J'ai une zone de 5 cellules de sélectionnée. (Par exemple L20:P20)
J'aimerai sélectionner automatiquement toute la zonne se trouvant au dessus
de cette selection.
Un peu du style : Range(Selection, Selection.End(xlUp)).Select Mais avec cette fonction, la premiere zone reste dans la sélection finale
En fait, le but est de faire descendre d'une ligne tout se qui se trouve
excactement au dessus.
Pour etre encore plus précis: selection.(L20:P20) -> selection.ClearContents Selection.(L1:P19) -> selection.Copy Selection.(L2:P20) -> selection.Paste
Volà ... si vous avez des pistes ....
Merci
.
Bonjour,
Sub titi()
l = ActiveCell.Row
c = ActiveCell.Column
Range(Cells(1, c), Cells(l - 1, c + 4)).Copy Cells(l +
1, c)
End Sub
Remplacer Copy par Cut pour déplacer et non pas copier les
cellules au dessus.
Camille
-----Message d'origine-----
Re à tous ...
Encore un Pb de selection :
J'ai une zone de 5 cellules de sélectionnée.
(Par exemple L20:P20)
J'aimerai sélectionner automatiquement toute la zonne se
trouvant au dessus
de cette selection.
Un peu du style :
Range(Selection, Selection.End(xlUp)).Select
Mais avec cette fonction, la premiere zone reste dans la
sélection finale
En fait, le but est de faire descendre d'une ligne tout
se qui se trouve
excactement au dessus.
Pour etre encore plus précis:
selection.(L20:P20) -> selection.ClearContents
Selection.(L1:P19) -> selection.Copy
Selection.(L2:P20) -> selection.Paste
Sub titi() l = ActiveCell.Row c = ActiveCell.Column Range(Cells(1, c), Cells(l - 1, c + 4)).Copy Cells(l + 1, c) End Sub
Remplacer Copy par Cut pour déplacer et non pas copier les cellules au dessus.
Camille
-----Message d'origine----- Re à tous ... Encore un Pb de selection : J'ai une zone de 5 cellules de sélectionnée. (Par exemple L20:P20)
J'aimerai sélectionner automatiquement toute la zonne se trouvant au dessus
de cette selection.
Un peu du style : Range(Selection, Selection.End(xlUp)).Select Mais avec cette fonction, la premiere zone reste dans la sélection finale
En fait, le but est de faire descendre d'une ligne tout se qui se trouve
excactement au dessus.
Pour etre encore plus précis: selection.(L20:P20) -> selection.ClearContents Selection.(L1:P19) -> selection.Copy Selection.(L2:P20) -> selection.Paste
Volà ... si vous avez des pistes ....
Merci
.
Guillaume
Range(Selection.offset(-1), Selection.End(xlUp)).Select -> pile poil ce que je cherchais ! Merci vraiment bcp
Les p'tis complement que vous m'avez mis, vont également me servir en fait .
Trop cool
Merci Bcp
"ru-th" a écrit dans le message de news:
Salut
pas tout compris, mais Range(Selection.offset(-1), Selection.End(xlUp)).Select
devrait suffire
mais tu pourrais avoir aussi pour l'ensemble Selection.Copy Cells(Selection.End(3).Row, Selection.Column).Insert Shift:=xlDown Selection.Offset(1).ClearContents a+ rural thierry "Guillaume" <not> a écrit dans le message de news:
Re à tous ... Encore un Pb de selection : J'ai une zone de 5 cellules de sélectionnée. (Par exemple L20:P20)
J'aimerai sélectionner automatiquement toute la zonne se trouvant au dessus
de cette selection.
Un peu du style : Range(Selection, Selection.End(xlUp)).Select Mais avec cette fonction, la premiere zone reste dans la sélection finale
En fait, le but est de faire descendre d'une ligne tout se qui se trouve excactement au dessus.
Pour etre encore plus précis: selection.(L20:P20) -> selection.ClearContents Selection.(L1:P19) -> selection.Copy Selection.(L2:P20) -> selection.Paste
Volà ... si vous avez des pistes ....
Merci
Range(Selection.offset(-1), Selection.End(xlUp)).Select -> pile poil ce que
je cherchais !
Merci vraiment bcp
Les p'tis complement que vous m'avez mis, vont également me servir en fait .
Trop cool
Merci Bcp
"ru-th" <ailleurs@nowhere> a écrit dans le message de
news:uHtwWQY6DHA.2732@TK2MSFTNGP09.phx.gbl...
Salut
pas tout compris, mais
Range(Selection.offset(-1), Selection.End(xlUp)).Select
devrait suffire
mais tu pourrais avoir aussi pour l'ensemble
Selection.Copy
Cells(Selection.End(3).Row, Selection.Column).Insert Shift:=xlDown
Selection.Offset(1).ClearContents
a+
rural thierry
"Guillaume" <not> a écrit dans le message de news:
uE5pGaX6DHA.2380@TK2MSFTNGP10.phx.gbl...
Re à tous ...
Encore un Pb de selection :
J'ai une zone de 5 cellules de sélectionnée.
(Par exemple L20:P20)
J'aimerai sélectionner automatiquement toute la zonne se trouvant au
dessus
de cette selection.
Un peu du style :
Range(Selection, Selection.End(xlUp)).Select
Mais avec cette fonction, la premiere zone reste dans la sélection
finale
En fait, le but est de faire descendre d'une ligne tout se qui se trouve
excactement au dessus.
Pour etre encore plus précis:
selection.(L20:P20) -> selection.ClearContents
Selection.(L1:P19) -> selection.Copy
Selection.(L2:P20) -> selection.Paste
Range(Selection.offset(-1), Selection.End(xlUp)).Select -> pile poil ce que je cherchais ! Merci vraiment bcp
Les p'tis complement que vous m'avez mis, vont également me servir en fait .
Trop cool
Merci Bcp
"ru-th" a écrit dans le message de news:
Salut
pas tout compris, mais Range(Selection.offset(-1), Selection.End(xlUp)).Select
devrait suffire
mais tu pourrais avoir aussi pour l'ensemble Selection.Copy Cells(Selection.End(3).Row, Selection.Column).Insert Shift:=xlDown Selection.Offset(1).ClearContents a+ rural thierry "Guillaume" <not> a écrit dans le message de news:
Re à tous ... Encore un Pb de selection : J'ai une zone de 5 cellules de sélectionnée. (Par exemple L20:P20)
J'aimerai sélectionner automatiquement toute la zonne se trouvant au dessus
de cette selection.
Un peu du style : Range(Selection, Selection.End(xlUp)).Select Mais avec cette fonction, la premiere zone reste dans la sélection finale
En fait, le but est de faire descendre d'une ligne tout se qui se trouve excactement au dessus.
Pour etre encore plus précis: selection.(L20:P20) -> selection.ClearContents Selection.(L1:P19) -> selection.Copy Selection.(L2:P20) -> selection.Paste
