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

Collage spécial -> valeurs dans clic droit

Créer une discussion

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 !

S'inscrire

13GIBE59

XLDnaute Accro
Bonjour le forum. 🙂

J'utilise souvent Copier - Collage spécial -> valeurs et j'aimerais ajouter un item au menu du clic droit sur la souris, nommé par exemple "Collage spécial valeurs".

Quelle est la syntaxe exacte en vba, s'il vous plaît ?

Merci d'avance. 😀
 
Trier par date Trier par votes
Re : Collage spécial -> valeurs dans clic droit

Bonjour
Personnellement, j'ai placé le code suivant dans mon classeur de maquereaux personnels :
Code: 
[COLOR="DarkSlateGray"][B]Sub Coller_valeur()
[COLOR="SeaGreen"]'
' Coller_valeur Macro
' Macro enregistrée le 02/10/2002 par ROGER2327
' Macro modifiée le 02/11/2006 par ROGER2327
'
' Touche de raccourci du clavier: Ctrl+Maj+V
'[/COLOR]
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, transpose:=False
End Sub

Sub Coller_format()
[COLOR="SeaGreen"]'
' Coller_format Macro
' Macro enregistrée le 06/12/2006 par ROGER2327
'
' Touche de raccourci du clavier: Ctrl+Maj+F
'[/COLOR]
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, transpose:=False
End Sub
Sub Coller_formule()
[COLOR="SeaGreen"]'
' Coller_formule Macro
' Macro enregistrée le 06/12/2006 par ROGER2327
'
' Touche de raccourci du clavier: Ctrl+Maj+W
'[/COLOR]
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, transpose:=False
End Sub[/B][/COLOR]
ROGER2327
#2747
 
Vote positif 0 Vote négatif
Re : Collage spécial -> valeurs dans clic droit

Merci roger et hoerwind pour vos réponses.

Roger, j'avais trouvé le code en utilisant l'enregistreur de macros, mais je voudrais l'inclure dans le menu contextuel...

Hoerwind, merci pour le jeu de piste, mais tu peux me dire de quelle icône il s'agit, s'il te plaît ?
J'ai essayé l'icône marqué "12", mais elle me colle tout ! 😕

A +
 
Vote positif 0 Vote négatif
Re : Collage spécial -> valeurs dans clic droit

Bonsoir,

Il existe un "raccourci souris" pour faire un Copier - Collage Spécial - Valeur :

- Sélectionner les cellules concernées
- Avec le bouton droit de la souris (maintenu enfoncé), faire un glisser-déplacer en redéposant les cellules sur leur emplacement d'origine
- Apparaît alors un menu contextuel
- Cliquer sur : Copier ici les valeurs seules

C'est plus long à décrire qu'à faire.

Bonne soirée à tous

@+
 
Vote positif 0 Vote négatif
Re : Collage spécial -> valeurs dans clic droit

BOnsoir

Dans le code de la feuille
Code: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim cbItems As Object: Dim j As Byte
Dim i As Byte: Dim x As Integer

tab_caption = Split("Copier/Coller,Copier/Coller Valeurs seules", ",")
tab_nmacro = Split("CC,CCVS", ",")

For Each cbItems In Application.CommandBars("cell").Controls
cbItems.Delete
Next cbItems

With Application.CommandBars("Cell")
For i = 0 To 1
    x = i + 1
     With .Controls _
        .Add(Type:=msoControlButton, before:=x, Temporary:=True)
        .Caption = tab_caption(i)
        .OnAction = ThisWorkbook.Name & "!" & tab_nmacro(i)
        .Width = 175
    End With
Next i
End With
End Sub
Dans un module
Code: 
Sub CC()
Selection.Copy
ActiveSheet.Paste
End Sub
Sub CCVS()
With Selection
.Value = .Value
End With
End Sub

PS: je m'étais amusé jadis avec CommandBar("Cell") -> voir ici
 
Vote positif 0 Vote négatif
Re : Collage spécial -> valeurs dans clic droit

Merci à tous. Ca marche nickel.

Hoewind, effectivement, ta "valise" 12 marche très bien. Il suffit juste d'appuyer sur 'Echap' et pas sur 'Entrée' à la fin...

Bonne nuit.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Résolu(e)
Autres Collage spécial. Ajout d'une courbe sur un graphique existant.
Réponses
7
Affichages
301
CISCO
  • Question Question
Autres XL2024. Pour PatrickToulon, clic droit dans VBE.
Réponses
4
Affichages
203
jeff1494
H
  • Question Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
1 K
Helios77
H
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
681
Lu76Fer
L
  • Question Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
6 K
LMOAL
L
B
  • Question Question
Autres Collage spécial en vba
Réponses
14
Affichages
1 K
Dranreb
B
  • Question Question
Microsoft 365 Alimenter combobox et ajouter la valeur si non inscrit dans la liste
Réponses
5
Affichages
783
sousou
L
  • Question Question
empêcher le clic droit de la souris/l'affichage du menu contextuel dans Excel
Réponses
2
Affichages
1 K
Lorenzini
L
K
  • Résolu(e)
Microsoft 365 copier coller avec un double clic
Réponses
3
Affichages
1 K
AtTheOne
R
  • Question Question
Autres Copie dans le presse-papier d'une sélection multiple
2
Réponses
16
Affichages
2 K
Renaud22
R
M
  • Résolu(e)
XL 2013 Gestion clic bouton UserForm
2
Réponses
23
Affichages
2 K
M.Ben
M
L
  • Question Question
XL 2019 Accélérer le traitement de données par rapport à une formule.
2 3
Réponses
42
Affichages
3 K
Loïc DUBOIS
L
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
3 K
AtTheOne
C
  • Question Question
XL 2010 grâce à une userform modifier une ligne dans deux feuilles
Réponses
3
Affichages
984
ccia
C
M
  • Question Question
XL 2016 VBA - Traitement de données avec valeurs identiques dans un dictionnaire
2
Réponses
28
Affichages
3 K
Mak_tarmak
M
M
  • Résolu(e)
Microsoft 365 VBA - RECHERCHEV multiples dans un autre classeur sélectionné
Réponses
1
Affichages
848
M4x1m3
M
S
  • Question Question
Microsoft 365 VBA : Diviser ligne / colonne dans un grand tableau
Réponses
3
Affichages
974
Sobersong
S
A
  • Question Question
Macro collage spéciale valeur d'un tableau
Réponses
5
Affichages
3 K
azerty64
A
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
940
elgringo123456
E
A
  • Question Question
Macro collage spécial Valeur sur GoogleSheet
Réponses
0
Affichages
2 K
azerty64
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…