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 -
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.
:)
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:
- Copie automatique
- Réponse automatique thunderbird - Guide
- Copie cachée - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Super copie - Télécharger - Gestion de fichiers
1 réponse
Bonjour,
Pour la colonne C uniquement :
Dans un module standard, met :
Dans le module de la feuille, met :
Si tu as des problèmes avec les macros, dis-le.
Cordialement.
Daniel
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
Sa marche super Merci beaucoup Daniel !!
a bientôt
elo