Insertion calendrier, macro

Bonjour la communauté,

Help!!!

J'ai inserer dans une feuille un calendrier que lorsque que j'appuie sur une case ( ici C24) s'ouvre un calendrier, et que quand je choisit une date dessus elle me l'affiche dans une autre case ici(en D24)... jusqu'ici tout va bien ...

... mais problème, je n'arrive pas a faire fermé le calendrier après avoir cliquer sur une autre case, de plus une erreur s'affiche

je souhaiterai en faire un deuxieme par exemple: " reservation du ( la premier calendrier) au ( deuxiemme calendrier), mais je ne trouve plus le deuxiemme calendrier

je vous mais le code , et mon fichier . (les case en rouge sont là ou je voudrais activer les calendriers) les cases après la où je souhaite afficher les dates.

Je vous remercie beaucoup

Code:

Option Explicit

Private Sub Calendar1_Click()

Range("D24").Value = Calendar1.Value

End Sub

'

Private Sub Calendar1_LostFocus()

Calendar1.Visible = False

Private Sub Calendar2_Click()

Range("F24").Value = Calendar2.Value

End Sub

'

Private Sub Calendar2_LostFocus()

Calendar2.Visible = False

End Sub

'

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Intersection As Range, Plage As Range

Set Plage = Range("E24")

Set Intersection = Application.Intersect(Target, Plage)

If Not (Intersection Is Nothing) Then

Calendar1.Visible = True

End If

End Sub

'

ps: il manque un End Sub a la fin de ceci :

Private Sub Calendar1_LostFocus()

Calendar1.Visible = False

End Sub

Le truc c'est que mon calendrier s'ouvre sur E24 et me change la date a D24 j'aimerai un calendrier en C24 pour D24 et un sur E24 pour F24.

en vous remrciant encore

Bonjour ub-utoo,

Remplace tout ton code par celui-ci :

Option Explicit

Private Sub Calendar1_Click()
    Range("D24").Value = Calendar1.Value
End Sub

Private Sub Calendar1_LostFocus()
    Calendar1.Visible = False
End Sub

Private Sub Calendar2_Click()
    Range("F24").Value = Calendar2.Value
End Sub

Private Sub Calendar2_LostFocus()
    Calendar2.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [C24]) Is Nothing Then
        Calendar1.Visible = True
    End If
    If Not Intersect(Target, [E24]) Is Nothing Then
        Calendar2.Visible = True
    End If
End Sub

salut vba-new,

je te remercie beaucoup de ton aide, je chercherai comment y mettre des boutons a la place des colorations rouge

merci encore.

Pour faire un bouton personnalisable, tu peux créer une zone de texte puis y affecter une macro.

Rechercher des sujets similaires à "insertion calendrier macro"