Selection_Copier coller_vers autre feuil2

[fd.30]

Bonjour,

Je souhaite avoir une aide pour réaliser la tâche suivante : VOIR FICHIER JOINT

J'ai déjà déposé une discussion ce matin, mais les réponses apportées ne sont pas totalement concluantes. J'espère avoir plus de chance.

D'avance je vous remercie bcp

Bonne Soirée
FD

 

[Cousinhub]

Re : Selection_Copier coller_vers autre feuil2

Bonsoir,
essaie avec ce code :

Sub Bouton1_QuandClic()
Dim DerLig As Long
With Sheets("Feuil2")
    DerLig = .[A65000].End(xlUp).Row + 1
    .Range(.Cells(DerLig, 1), .Cells(DerLig + Selection.Count - 1, 1)).Value = Selection.Value
End With
End Sub

 

[jp14]

Re : Selection_Copier coller_vers autre feuil2

Bonjour

Ci joint un fichier avec une macro à tester

Une macro évènementielle permet de mémoriser la plage sélectionnée.
Le bouton permet de copier les données de la plage dans la feuille si des cellules sont sélectionnées.

JP

 

[fd.30]

Re : Selection_Copier coller_vers autre feuil2

merci bien JP14 et BhBh, çà marche parfaitement bien, merci

Merci aussi aux autres