Macro copier avec clic droit Fermé

Question

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

Anthelm · Answer

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 €" ?

via55 · Answer

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

Macro copier avec clic droit

2 réponses

Discussions similaires