copier des cellules sélectionées et les collées

[papirus]

Bonjour le forum

J'aimerais pourvoir copier par VBA le contenu d'un range de cellules qui sont préalablement sélectionnées manuellement et ensuite les collées dans un autre range de cellules dans un endroit prédéterminé.

Merci

Papirus

 

[ZZR09]

Bonjour Papirus, le forum,

Voici une proposition de VBA qui recopie la sélection en D1 et supprime le reste de la colonne D si la cellule suivant la recopi n'est pas vide

Sub recopier_selection()
    Dim nb As Integer
    
    'indiquer si une sélection n-a pas été effectuée'
    If IsEmpty(Selection) Then MsgBox 'Aucune selection!', vbCritical, 'Recopie'
    
    nb = Selection.Cells.Count
    Selection.Copy
    
    'coller à l-endroit voulu '
    Range('D1').Select
    ActiveSheet.Paste

    'vider le contenu de la destination '
    If IsEmpty(Range('D' & nb + 1)) Then GoTo suite
    Range('D' & nb + 1 & ':D' & Range('D65536').End(xlUp).Row).Select
    Selection.ClearContents

suite:
    'tout ranger'
    Range('A1').Select
    Application.CutCopyMode = False
End Sub

A+
[file name=Classeur1_20051005070122.zip size=8580]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051005070122.zip[/file]