Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro évènementielle copier coller

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

océanne

XLDnaute Occasionnel
Bonjour Le Forum,

Je recherche après avoir copié une plage de cellule à ce qu’elle soit collée automatiquement (macro evenementielle) collée dans la première cellule sélectionnée par l’utilisateur….ceci tant que le « application.cutcopymode » reste actif.
Du coup je me suis essayé à la macros suivante :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Application.CutCopyMode
Case Is = False
Exit Sub
Case Is = True
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Application.vbKeyReturn
'SendKeys "{ENTER}"
'Application.SendKeys ("^;{ENTREE}")
'SendKeys String:="%slc{enter}"
End Select
End Sub

….mais aucune de mes instruction de validation application.vbdeyreturn, 'SendKeys "{ENTER}",'Application.SendKeys ("^;{ENTREE}"), SendKeys String:="%slc{enter}" ne fonctionne.

Merci pour votre éclairage.
O .
 
Re : Macro évènementielle copier coller

bonjour,

si j'ai bien compris

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
    Exit Sub
Else
    Application.EnableEvents = False
    ActiveCell.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Application.EnableEvents = True
End If
End Sub

A+
 
Re : Macro évènementielle copier coller

Bonjour,

On peut réduire encore:

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode Then
        ActiveSheet.Paste
        Application.CutCopyMode = False
    End If
End Sub

Application.EnableEvents ne serait utile que s'il y a quelque chose dans WorkSheet_Change ou si l'on change la sélection dans Worksheet_SelectionChange
A+
 
Dernière modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
Réponses
4
Affichages
669
A
Réponses
5
Affichages
938
LeSaintKebab
L
J
Réponses
22
Affichages
3 K
jui42
J
T
  • Résolu(e)
XL pour MAC Target
Réponses
9
Affichages
2 K
tdenis
T
C
Réponses
4
Affichages
2 K
C
Réponses
14
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…