Copié collé

[Antoine2106]

Bjr à tous ! j'ai déjà fait une discussion à ce sujet mais sans succès donc je tente à nouveau ma chance :

je voudrais un code qui me permette de copier coller une plage de cellule sur la droite de cette plage et des décaler successivement les copier/collé soit :

je lance la macro et ça me copie la plage sélectionné et ça décale l'ancien copié collé de la plage vers la droite....

je n'y arrive vraiment pas dc si quelqu'un a une idée...

Merci d'avance cordialement,

 

[MichD]

Re : Copié collé

Bonjour,

Sub test()

Dim DerCol As Integer, Ligne As Long

'Ceci te donne la première colonne totalement
'vide dans toute la feuille sur la droite
With Worksheets("Feuil1")
    DerCol = .Cells.Find(What:="*", _
            LookIn:=xlFormulas, _
            SearchOrder:=xlByColumns, _
            SearchDirection:=xlPrevious).Column + 1

'pour la copie, selon la ligne où tu veux que la copie débute
     Ligne = 1
     'A1:G10 est la plage que tu veux copier...
    .Range("A1:g10").Copy .Cells(Ligne, DerCol)
End With
'================================
'Si tu désires trouver la dernière libre des lignes
'débutant à la ligne 10 et se teminant à la ligne 20
With Worksheets("Feuil1")
    DerCol = .Range("10:20").Find(What:="*", _
            LookIn:=xlFormulas, _
            SearchOrder:=xlByColumns, _
            SearchDirection:=xlPrevious).Column + 1

'pour la copie, selon la ligne où tu veux que la copie débute
     Ligne = 1
     'A1:G10 est la plage que tu veux copier...
    .Range("A1:g10").Copy .Cells(Ligne, DerCol)
End With

End Sub

 

[Antoine2106]

Re : Copié collé

Merci de ta réponse mais ne serait il pas possible de commencer la copie dans une colonne nn vide ?

Idéalement j'aimerais par exemple copier la plage A1:F10 par en G1:L11 puis décalé sur la droite sans modifier ce qui y a dans les colonnes en dessous...

 

[MichD]

Re : Copié collé

j'aimerais par exemple copier la plage A1:F10 par en G1:L11 puis décalé sur la droite sans modifier ce qui y a dans les colonnes en dessous...

Qu'est-ce qui t'empêche de le faire en utilisant seulement la première partie de l'exemple.

Sub test()

Dim DerCol As Integer, Ligne As Long

'Ceci te donne la première colonne totalement
'vide dans toute la feuille sur la droite
With Worksheets("Feuil1")
     DerCol = .Cells.Find(What:="*", _
             LookIn:=xlFormulas, _
             SearchOrder:=xlByColumns, _
             SearchDirection:=xlPrevious).Column + 1

'pour la copie, selon la ligne où tu veux que la copie débute
     Ligne = 1
      'A1:G10 est la plage que tu veux copier...
    .Range("A1:g10").Copy .Cells(Ligne, DerCol)
End With
End Sub