copier/coller par double clic...

[Christian0258]

Bonjour à tout le forum,
Je souhaiterais votre aide afin d'écrire une macro pour copier/coller les valeurs ....

voir fichier joint.

Merci pour votre aide si précieuse.

Bien amicalement,
Christian

 

[DoubleZero]

Bonjour, Christian0258, le Forum,

Comme ceci ?

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

 

[Christian0258]

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

 

[Christian0258]

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

Bien à vous,
Christian

 

[eriiic]

Bonjour,

un simple if :

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

 

[Christian0258]

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

 

[pierrejean]

Bonjour à tous

A tester:

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

 

[Christian0258]

Re, le forum

Merci pierrejean, c'est impec.

Un merci aussi à , DoubleZer et Eriiiic.

Bien à vous,
Christian