copier-coller vba d'une plage de cellule

[dédé le jeune]

bonsoir,

voici le code que j'ai pu récupérer pour copier une cellule de la feuille où se trouve le bouton de commande avec la mise en forme et la copier dans la feuille 'Tmp' dans A1.
Mais si je sélectionne une plage cellule cela ne copie quand meme que la 1ère cellule.

Comment adapter ce code pour qu'il recopie des plages de cellules séléctionnées ?

merci par avance !


Private Sub CommandButton1_Click()
Dim lafeuille As Variant
Application.ScreenUpdating = False
lafeuille = ActiveSheet.Name
ActiveCell.Copy
With Worksheets('Tmp').Range('A1')
.PasteSpecial Paste:=xlPasteValidation
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
Sheets(lafeuille).Activate
Application.CutCopyMode = False
Selection.ClearContents
Application.ScreenUpdating = True
End Sub

 

[porcinet82]

Salut dédé le jeune,

Il te suffit de modifier la ligne de code ActiveCell.Copy par Selection.Copy pour que ce soit les cellules sélectionnées qui soient copiées/collées.
Si tu souhaites copier/coller une plage définit qui ne varie pas, tu peux utiliser un code du genre Range('A1:C3').Copy qui va copier les cellules de la plage 'A1:C3'

Voili, voilou,

@+

 

[Joshua14]

Bonsoir le forum et dédé le jeune.

Voici le code modifié. il faut changé activecell par Selection

Private Sub CommandButton1_Click()
Dim lafeuille As Variant
Application.ScreenUpdating = False
    lafeuille = ActiveSheet.Name
    Selection.Copy
    With Worksheets('Tmp').Range('A1')
    .PasteSpecial Paste:=xlPasteValidation
    .PasteSpecial Paste:=xlValues
    .PasteSpecial Paste:=xlFormats
    End With
    Sheets(lafeuille).Activate
    Application.CutCopyMode = False
    Selection.ClearContents
Application.ScreenUpdating = True
End Sub

Message édité par: joshua14, à: 20/06/2006 23:01