copier/coller par double clic...

DoubleZero

XLDnaute Barbatruc

• 23 Janvier 2018

• #2

Bonjour, Christian0258, le Forum,

Comme ceci ?

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Cancel = -1
    If c.Column = 9 And IsNumeric(c) Then c(1, 3).Value = c
End Sub

A bientôt

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 23 Janvier 2018

• #3

Re, le forum, DoubleZero

Merci, DoubleZero pour ton aide.

1) Si je voulais plutôt avoir le même résultat mais en double cliquant sur la colonne K ?

2) Dis-moi, j'ai déjà sous la feuille concernée cette macro ;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 Then
Set Cel = Target
Calendrier1.Show
Else
Exit Sub
End If
Cancel = True
End Sub

Comment faire cohabiter les deux "BeforeDoubleClick" ...
à vous lire,

Bien amicalement,
Christian

 

Dernière édition: 23 Janvier 2018

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 24 Janvier 2018

• #4

Bonjour à tout le forum, DoubleZero,
J'espère que quelqu'un aura la gentillesse de se pencher sur ma demande...

Bien à vous,
Christian

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 24 Janvier 2018

• #5

Bonjour,

un simple if :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 5 Then
        'code1
    ElseIf Target.Column = 11 Then
        'code 2
    Else
        ' code 3
    End If
End Sub

eric

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 24 Janvier 2018

• #6

Re, le forum, DoubleZero, Eriiic

Merci Eriiiic pour ton aide, mais je n'y arrive pas....j'ai placé les deux macros dans le fichier V02,
peux-tu me dire.

Merci pour votre aide.
Bien à vous,
Christian

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Janvier 2018

• #7

Bonjour à tous

A tester:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Column = 11 Then Target.Value = Target.Offset(, -2)
   If Target.Column = 5 Then
       Set Cel = Target
       Calendrier1.Show
    Else
      Exit Sub
    End If
    Cancel = True
End Sub

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 24 Janvier 2018

• #8

Re, le forum

Merci pierrejean, c'est impec.

Un merci aussi à , DoubleZer et Eriiiic.

Bien à vous,
Christian

 

Vote positif 0 Vote négatif