Macro pour copier/coller par double click....

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Christian0258

XLDnaute Accro
Bonjour à tout le forum,

Je souhaiterais, à nouveau, votre aide afin d'écrire une macro qui puisse, par double clic, copier la valeur de la cellule sélectionnée (colonne D) et coller le résultat sur une autre feuille toujours sur la même cellule...

voir fichier joint

Merci pour le temps que vous voudrez bien vouloir m'accorder.

Bien amicalement,
Christian
 

Pièces jointes

Re : Macro pour copier/coller par double click....

Bonjour

Ton code modifié
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'macro de thebenoit 59
If Not Application.Intersect(Target, Range("a5:a" & [c65000].End(xlUp).Row)) Is Nothing Then
    If Target.Value = "" Then
        If Target.Offset(, 2).Value Like "*Devis*" Then
            Target.Value = "Devis accepté"
        Else: Target.Value = "Facture réglée"
            'Cells(Target.Row, 148).Select
        End If
    Else: Target.ClearContents
    End If
 End If
   
    If Not Application.Intersect(Target, Range("d5:d" & [c65000].End(xlUp).Row)) Is Nothing Then
        Sheets(1).Range("j15") = Target
    End If
    
    Cancel = True

End Sub
Cordialement
Chris
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
374
Réponses
9
Affichages
162
Réponses
4
Affichages
243
Réponses
12
Affichages
214
Retour