Discussion :

[Caro6]

Bonjour à tous,

Je recherche une macro permettant de coller en valeur seulement. Les copies pouvant se faire de différents fichiers excel. Je souhaite que sur mon workbook tous les collages soient en valeur.

J'ai trouvé cette macro qui marche très bien mais qui colle automatiquement lorsqu'on fait un clique une cellule. Or, je souhaiterai que le collage se fasse soit avec un ctrl + V soit un clique droit.

Pouvez-vous m'aider svp

Code :

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

1
2
3
4
5
6
7
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
coller en valeur seulement
    On Error Resume Next
    Target.PasteSpecial xlPasteValues
    Application.CutCopyMode = True
End Sub

[Philippe Tulliez]

Bonjour,

je souhaiterai que le collage se fasse soit avec un ctrl + V soit un clique droit.

• Pour le clic droit, utiliser la procédure événementielle Worksheet_BeforeRightClick
• Pour assigner un raccourci clavier à une procédure
  
  1. Onglet [Développeur]
  2. Commande Macros du groupe Code
  3. dans la boîte de dialogue qui s'ouvre, tu sélectionnes la procédure (macro)
  4. ensuite Options... et Ctrl+ la lettre que tu veux (pour éviter toute confusion, évite tout de même d'utiliser la même lettre qu'un raccourci connu)

Et si c'est l'objet Target dont on doit garder la valeur, il y a plus simple qu'un Copier/Collage spécial - Valeur

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  With Target
   .Value = .Value
  End With
  Cancel = True
End Sub

[MarcelG]

Bonjour à vous,

Salut Philippe.

Je rebondis sur

Code :

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

.Value = .Value

J'utilise depuis longtemps cette astuce (qui m'a été fournie par le grand mercatog) sans m'être penché sur son explication.
Si j'ai bien compris ce qui est mentionné en anglais ici
VBA évalue la formule pour en informer la cellule.
C'est du moins ce que j'ai compris, mes connaissances en anglais étant égales à celles d'une vache espagnole (ou plutôt italienne dans mon cas )
Mais je reste sur ma faim.
Si vous avez une explication plus complète, alors je suis preneur.

[Philippe Tulliez]

Bonjour Marcel,
Mais non Value est la propriété qui contient la valeur de la cellule comme Formula contient la formule quand il y en a.
Si tu as dans la cellule A2 la formule

Code :

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

=10+20

Voilà ce que renvoie les propriétés de Range("A2")

• Formula: =10+20
• Value : 30

donc quand on écrit

Code :

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

1
2
3
With Range("A2")
.Value = .Value
End With

On force la propriété Value à conserver uniquement le résultat de la formule et l'explication en anglais explique que c'est similaire à la fonction EVALUATE

[MarcelG]

Philippe,

(Je ne voudrais pas polluer cette discussion)

Je me suis mal exprimé.

Si tu écris

Code :

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

1
2
3
4
5
6
Sub essai_value()
With Worksheets("MAWKS").Range("X1")
        .FormulaR1C1 = "=1+1"
        .Value = .Value
End With
End Sub

Quel processuss amène VBA à écrire 2 au lieu de 1+1?

J'ai lu cette explication au sein même du Forum. Je n'arrive pas à la retrouver.

[Philippe Tulliez]

Bonjour Marcel,
Je ne connais pas le mécanisme interne aux propriétés de l'objet Range mais je suppose que lorsqu'il y a une formule dans une cellule, la propriété Value prend son résultat (elle l'évalue) et lorsqu'il n'y a pas de de formule elle l'affiche
On pourrait également utiliser cette syntaxe pour effectuer un Collage Spécial-Valeur

Code :

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

1
2
3
With Range("C13")
 .Formula = .Value
End With

[Caro6]

Bonjour Philippe,

Ce fichier sera remplie par des personnes externes et donc ils seront obligés de faire soit un ctrl + V soit un clique droit.

Du coup ta macro n'ira pas pour ce cas.

[Philippe Tulliez]

Bonjour,

Ce fichier sera remplie par des personnes externes et donc ils seront obligés de faire soit un ctrl + V soit un clique droit.
Du coup ta macro n'ira pas pour ce cas.

Ah bon ?
Mon exemple montre pourtant comment le faire avec un clic droit et il est tout à fait possible d'associer comme je te l'ai indiqué un raccourci clavier (même Ctrl+V mais personnelement).

Ceci dit est-il si compliqué d'expliquer aux personnes externes que Ctrl+C c'est copier et qu'un clic droit permet de sélectionner le bouton 123 qui est l'équivalent de Collage Special - Valeur ?