Arnaud59000
XLDnaute Nouveau
Hello Excel Downloads,
J'ai besoin de vous encore une fois !
Cette fois-ci, j'aimerai sélectionner 4 colonnes, faire un espace de 1 colonne et insérer mes colonnes copiées.
Pas moyen de bidouiller quelque chose. J'y suis arrivé pour des lignes mais pas pour des colonnes.
Si vous avez des idées sur comment faire
-----
(Je vous mets le code que j'ai fait pour insérer une ligne, ca vous donnera peut être une idée de mon niveau en VBA)
Sub InsereLigne()
Sheets("Synthèse Financière").Select
Range("A1").Select
Dim C As Range
Set C = Range("A65536").End(xlUp).Offset(1, 0)
C.EntireRow.Insert (xlShiftDown)
C.Offset(1).EntireRow = C.EntireRow.Value
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
J'ai besoin de vous encore une fois !
Cette fois-ci, j'aimerai sélectionner 4 colonnes, faire un espace de 1 colonne et insérer mes colonnes copiées.
Pas moyen de bidouiller quelque chose. J'y suis arrivé pour des lignes mais pas pour des colonnes.
Si vous avez des idées sur comment faire
-----
(Je vous mets le code que j'ai fait pour insérer une ligne, ca vous donnera peut être une idée de mon niveau en VBA)
Sub InsereLigne()
Sheets("Synthèse Financière").Select
Range("A1").Select
Dim C As Range
Set C = Range("A65536").End(xlUp).Offset(1, 0)
C.EntireRow.Insert (xlShiftDown)
C.Offset(1).EntireRow = C.EntireRow.Value
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub