Selection_Copier coller_vers autre feuil2

Cousinhub

XLDnaute Barbatruc

Inactif

• 21 Avril 2008

• #2

Re : Selection_Copier coller_vers autre feuil2

Bonsoir,
essaie avec ce code :

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 21 Avril 2008

• #3

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

 

Pièces jointes

• sélection_vers_feuil2.zip

  15.2 KB · Affichages: 22

Dernière édition: 21 Avril 2008

Vote positif 0 Vote négatif

F

fd.30

XLDnaute Junior

• 28 Avril 2008

• #4

Re : Selection_Copier coller_vers autre feuil2

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

Merci aussi aux autres

 

Vote positif 0 Vote négatif