Objet requis introuvable?

[anthoYS]

Bonjour,

Je fait face à un problème, le suivant ;

En double clic, normalement, le calendrier avec choix apparait, maintenant, plus rien.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing And IsEmpty(Target) Then
Cells(Target.Row, 4) = Date
Cells(Target.Row, 1).Interior.ColorIndex = 4
Cells(Target.Row, 4).Interior.ColorIndex = 4
Cells(Target.Row, 5).Interior.ColorIndex = 4
Cells(Target.Row, 6).Interior.ColorIndex = 4
End If
If Not Application.Intersect(Target, Range("E:E")) Is Nothing And IsEmpty(Target) Then
[COLOR=blue][B]

[/COLOR]

Calendrier.Show

End If
Cancel = True
End Sub[/CODE]Merci d'avance

😕

 

[Compte Supprimé 979]

Re : Objet requis introuvable?

Salut anthoYS

Aurais-tu changé de version Office ?

En général c'est lié à cela 😉

A+

 

[Staple1600]

Re : Objet requis introuvable?

Bonjour à tous


Si tu essayes cette macro, il se passe quoi ?

Sub Test()
Calendrier.Show
End Sub

 

[anthoYS]

Re : Objet requis introuvable?

re,

Oui (je suis sous 2010, je pensait que ça ne changerai rien... c'est mal de la part de Microsoft, l'adaptation devrait se faire, que des problemes et bugs!), merci pour vos réponses.

J'ai tenté mais rien ne se passe.

A+

 

[Staple1600]

Re : Objet requis introuvable?

Bonsoir


Ton classeur contient bien un userform nommé Calendrier ?