Macro copier avec clic droit

Anthelm Messages postés 202 Statut Membre -  
via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   -

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

2 réponses

  1. Anthelm Messages postés 202 Statut Membre 1
     

    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
  2. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     

    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