Copie automatique

Résolu
eloalou38 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -  
eloalou38 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -
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.

:)
A voir également:

1 réponse

danielc0 Messages postés 1795 Date d'inscription   Statut Membre Dernière intervention   217
 
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
0
eloalou38 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Sa marche super Merci beaucoup Daniel !!

a bientôt

elo
0