affichage d'une selection avec la souris

Bonsoir Rem$

Si ton pb consiste à reproduire sur une feuil2 les selections effectuées avec la souris à partir de la feuil1, je te propose le petit module suivant :

Sub RecopieSelection()
Selection.Copy
Sheets("Feuil2").Select
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Application.CutCopyMode = False
MsgBox "Copie de la selection vers la feuil2 réalisé avec succès !", vbInformation, "Message Utilisateur"
End Sub


Attention, ce petit listing ne fonctionne que si tu selectionnes des plages de cellules à partir de la feuille nommée "feuil1" l'incrémentation automatisée se réaliser que si dans ce même classeur tu as une feuille nommée "feuil2".

Il ne te reste plus qu'a coller un bouton en feuil1, puis d'y affecter cette macro et le tour est joué.

Espérant avoir répondu à tes attentes

Cordialement

Rénato

bonjour a tous, renato

dslé mais cela ne fonctionne pas il y a un pb "erreur d'execution 1004" Range("A65536").Select c
cette ligne qui pose pb?????
@+

Salut Rem

Je viens de tester à nouveau est chez moi c'est ok, je suis en EXCEL 2000.

Si tu remplaces 65536 par 30000....vois-tu un mieux ?

Je te rappelles les pré-requis

- avoir nommé les deux premieres feuilles Feuil1 et Feuil2

- selectionner la plage de cellule à transférer à partir de la feuil1 puis activer la macro


Cordialement

Rénato