Discussion :

[crevette06220]

Bonsoir, a vous tous, voila je viens de créer cette macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row >= 1 And Target.Row <= 200 Then
Calendar1.Visible = True
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
Calendar1.Visible = False
End If
End Sub

Une fois la macro finit, je me suis apercu que le copier/coller ne fonctionne plus dans les cellules excel.

En espérant que vous ayez une idée.

Cordialement.

Crevette06220

[Invité]

Salut Crevette06220

Effectivement, à chaque changement de sélection
Tu change apparemment les propriété d'un objet, ce qui annule le mode "copie" d'Excel

Il va faloir changer ton "Worksheet_SelectionChange"

A+

[crevette06220]

Merci, beaucoup, comment puis-je faire j'avoue être perdu sur ce coup la.

[Invité]

Re,

En mettant ton code dans un BeforeDoubleClick

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 And Target.Row >= 1 And Target.Row <= 200 Then
    Calendar1.Visible = True
    Calendar1.Top = ActiveCell.Top
    Calendar1.Left = ActiveCell.Left + ActiveCell.Width
    Cancel = true  ' Evite de se retrouver en mode édition
  Else
    Calendar1.Visible = False
  End If
End Sub

Double clique pour afficher le calendrier

A+

[crevette06220]

Problème Résolu, Merci beaucoup !!

[MattChess]

Pour éviter de propager des événements non souhaités, on peut encadrer le code à protéger par :
Application.EnableEvents = False
' Le code à protéger puis à nouveau
Application.EnableEvents = True

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit ' Dans le module associé à la feuille
 
Private Sub Calendar1_Click()
    Application.EnableEvents = False
    ActiveCell.Value = Calendar1.Value
    Calendar1.Visible = False
    Application.EnableEvents = True
End Sub

[crevette06220]

Aucun impact.

Merci pour les précisions, j'ai fais les modifications nécessaires.

Bonne soirée.

Cordialement