Encore Pb de sélection !!
Le
Guillaume
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
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
Poser une question
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:
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
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: