Copie automatique Résolu/Fermé

Question

Bonjour,

Dans un tableau je rentre la ref des factures travaux dans une colonne et des factures administrative dans une autre. dans c'est deux colonnes une formule est déjà renseignée.

 je voudrais qu'en faisant un double clique sur une cellule d'une des deux colonnes, ça se copie et je pourrais la coller dans un logiciel.

Mes anciens collègues de travail l'avaient fait mais je ne sais plus comment pouvez-vous m'aider?

Merci, bonne journée à vous.

:)

danielc0 · Answer

Bonjour,

Pour la colonne C uniquement :

Dans un module standard, met :

Public Property Let ClipBoard_SetData(Value)
    With CreateObject("htmlfile")
          r = .parentwindow.clipboardData.setData("Text", Value)
         End With
End Property


Dans le module de la feuille, met :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 3 And Target.Count = 1 Then
    Cancel = True
    ClipBoard_SetData = Target.Value
  End If
End Sub


Si tu as des problèmes avec les macros, dis-le.

Cordialement.

Daniel

Copie automatique

1 réponse

Discussions similaires

Newsletters