Bonjour à tous,

J'essaie par plusieurs moyens de faire un couper-coller mais en ne coupant que le contenu et en laissant la mise en forme intacte. A défaut de trouver, je pensais mettre une petite macro dans la feuille qui, lorsque je fais un copier coller, me supprime le contenu des cellules sources et ne copie que les valeurs. En cherchant un peu, j'ai trouvé un bout de code qui, je pensais, en l'adaptant un peu allait fonctionner. Mais je dois faire une erreur quelque part car le contenu de la source n'est pas supprimé. Voici mon code, est-ce que vous auriez une idée?
Je vous remercie par avance,
Maxime

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, sel As Range
If Application.CutCopyMode Then
  On Error Resume Next 'sécurité
  Application.EnableEvents = False 'désactive l'action des évènements
  tablo = Target 'mémorise les valeurs
  Target.ClearContents
  Set sel = Selection
  Application.Undo 'annule le collage
  Target = tablo 'rétablit uniquement les valeurs
  sel.Select
  Application.EnableEvents = True
End If
End Sub