Forcer Copier Valeur uniquement

S

stefan373

XLDnaute Occasionnel

• 15 Février 2011

• #2

Bonsoir gr12sable et le forum.
Trouvé ceci sur le net.
A coller dans un module et affecter la macro au raccourci clavier CTRL + V.

Code:

Sub Collage_Special_Valeur()
' Raccourci clavier: Ctrl+v à définir

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

A +

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Février 2011

• #3

Re : Forcer Copier Valeur uniquement

Bonsoir gr12sable, stefan373,

OK pour cette macro, mais avec On Error Resume Next au début.

Car s'il n'y a rien de copié => bug

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Février 2011

• #4

Re : Forcer Copier Valeur uniquement

Re,

Si l'on veut que le collage spécial/Valeur ait lieu quelle que soit la commande utilisée pour Coller, placer cette macro dans ThisWorkbook :

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next 'sécurité
With Application
  If .CutCopyMode Then
    .EnableEvents = False
    .Undo
    Selection.PasteSpecial xlPasteValues
    .OnUndo "", ""
    .OnRepeat "", ""
    .EnableEvents = True
  End If
End With
End Sub

A+

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 15 Février 2011

• #5

Re.
Bien vu Job je n'avait pas testé cela.
Merci à vous cela me servira peut-être, je le met de coté.

A +

 

Vote positif 0 Vote négatif

G

gr12sable

XLDnaute Nouveau

• 16 Février 2011

• #6

Re : Forcer Copier Valeur uniquement

La première solution fonctionne parfaitement. Merci

La seconde j'ai pas réussi à la faire fonctionner ca ne fait qu'un copier/coller simple.

Merci.

 

Dernière édition: 16 Février 2011

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Février 2011

• #7

Re : Forcer Copier Valeur uniquement

Bonjour le fil, le forum,

gr12sable à dit:

La seconde j'ai pas réussi à la faire fonctionner (...)

Cliquez pour agrandir...

La poudre de perlimpinpin y a que ça :

Poudre de perlimpinpin - Wikipédia

Heureusement y en a qui s'en sortent.

PS : je m'absente pour 2 semaines

A+

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 28 Mars 2011

• #8

Re : Forcer Copier Valeur uniquement

Salut

Je viens de tester la solution de job75, ça marche, j'ai juste un petit soucis de temps, le copier coller mets plusieurs secondes à la place d'être instantané, y a moyen d'améliorer ça ?

Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mars 2011

• #9

Re : Forcer Copier Valeur uniquement

Bonjour David,

Peut-être des formules lourdes et nombreuses qui se recalculent...

A tout hasard essayez :

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next 'sécurité
With Application
  If .CutCopyMode Then
    .EnableEvents = False
    .Calculation = xlManual
    .Undo
    Selection.PasteSpecial xlPasteValues
    .OnUndo "", ""
    .OnRepeat "", ""
    .Calculation = xlAutomatic
    .EnableEvents = True
  End If
End With
End Sub

A+

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 28 Mars 2011

• #10

Re : Forcer Copier Valeur uniquement

Merci job75

Pas mieux en enlevant le calcul automatique. Je verrai demain matin, bizarre que si je le fais manuellement ça soit instantané et pas avec la macro.

Je te tiens au courant demain.

Merci

 

Vote positif 0 Vote négatif