Macro copier avec clic droit

Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 - 13 oct. 2023 à 13:02
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 - 13 oct. 2023 à 14:14

Bonjour,

J'ai perdu la main...

J'essaye de faire une macro qui ferait :

• Si je clic droit dans "Plage1"
(il s'agit des données de trois colonnes d'un tableau. Je créé une plage qui y fait référence, pour simplifier)

• Cancel le clic droit

• Copier la valeur de la cellule dans le presse-papier

End sub

C'est simple, mais je n'y arrive plus... :(

Windows / Firefox 118.0

A voir également:

2 réponses

Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 1
13 oct. 2023 à 13:29

Ah c'est bon ! Pardon !

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("Plage1")) Is Nothing Then
    Selection.Copy
    End If
    Cancel = True
End Sub



J'ai parfois du texte et parfois des euros à copier, et le format de cellule m'ennuie.
C'est possible de copier seulement les chiffres, par exemple "420", au lieu de "420 €" ?

0
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 704
Modifié le 13 oct. 2023 à 14:15

Bonjour

Si c'est bienun nombre à copier et que le symbole € est mis par Format monétaire la copie prendra le nombre, dans la suite il te faudra faire un collage spécial Valeurs uniquement pour obtenir le nombre seul sans le format

Si par contre le symbole € est entré "en dur" tu as affaire a de l'alphanumérique qu'il faudra expurger du symbole € avant la copie


0