Discussion :

[jlnr34]

Bonjour à vous !


J'avais recherché un moyen de copier coller les valeurs seulement, chose que j'ai trouvé.
Seulement, étant donné que dans les cellules à copier il existe des objets que je ne souhaite pas coller (cases à cocher), Excel plante dès que je tente de coller...

Que faire pour éviter ce problème..?


Merci de votre attention !

Voici le code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tablo
        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
        Application.Undo 'annule le collage
        Target = tablo 'rétablit uniquement les valeurs
        Application.EnableEvents = True
        End If
End Sub

Matrice Planning.xlsm

[Invité]

Bonjour jlnr34

Pourquoi ne pas essayer tout simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
  If Application.CutCopyMode Then
   Application.EnableEvents = False 'désactive l'action des évènements
   TargeT.Value = Target.Value
    Application.EnableEvents = True
  End If
End Sub

A+

[jlnr34]

Bonjour BrunoM45,


Merci de ta réponse rapide !

En effet, ce code évite au fichier de planter. Cependant, mes cases à cocher sont également copiées collées (ce qui annule mes mises en forme après cochage) : chaque collage me place une case à cocher attribuée à la case à cocher d'origine...

Désolé, je suis novice et je chipote, j'en suis conscient...!

[hyperion13]

Salut
Peut-être en modifiant cette propriété.

[jlnr34]

Bonjour hyperion13,


Bien pensé mais ça ne fonctionne pas :/

Le "Check-List Caisse" doit être rouge lorsque non coché, et en noir lorsque coché. Ici ce n'est plus le cas :

[jlnr34]

Bonjour jurassic pork,


Mon objectif est de travailler rapidement avec Ctrl+C & Ctrl+V, sans devoir passer par le menu contextuel. Il doit me manquer un petit code VBA afin d'éviter de coller les cases à cocher...

[jurassic pork]

Hello,

J'avais recherché un moyen de copier coller les valeurs seulement, chose que j'ai trouvé.

et le coller valeur ou le collage spécial ?
Ami calmant, J.P