Voici un exemple de calendrier sur cellule. Je ne place que la macro qui lance le calendrier sur clic de cellule
Private Sub Worksheet_selectionChange(ByVal Target As Range)
'Déclaration de variable
Dim UnJour As Date
'Si je clique sur les cellules B3, ou C5 ou E7 --> à modifier suivant son choix
If Not Application.Intersect(Target, Range("$B$3,$C$5,$E$7")) Is Nothing Then
'Déactive les événements
Application.EnableEvents = False
'Evite la macro de tourner en rond
Cancel = True
'Lance l'USF Calendrier
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Target = Format(UnJour, "mm/dd/yyyy")
Else
Target = ""
End If
Selection.Offset(0, 0).Select
Application.EnableEvents = True
End If
End Sub
Bonjour mimi ,
j 'ai essayé de transposer le code vba sur un autre fichier j ai suivi la première procédure du fichier que tu m’a envoyé mais celui ci ne répond pas positivement .
je te joint les codes erreurs.
peut tu me dire pourquoi ?
en te remerciant par avance de ton aide sur le sujet
Bonjour mimi ,
j’ ai bien fais comme tu ma dit j’ai donc changé le formcal comme tu l’avais fait sur le fichier calendrier mais un autre problème survient je te joint les captures d’écran je pense qui il doit y avoir un problème au niveau des mois encore merci de ton temps et ton aide si précieuse a ce sujet
C’est un programme perso qui date, et je n’ai donc pas déclaré les variables
donc sur l’userform et sur le Module
tout en haut des macros
place la ligne “Option Explicit” en commentaire, ou tu le supprimes
et teste
Cette ligne, affiche une erreur si les variables utilisées ne sont pas déclarées en Nombre, texte, date, objet, etc)
Avec l’expérience, je la supprime pour gagner en ligne de moins à taper, mais en débutant, il est préférable de les déclarer, ce qui donne où se trouve les erreurs de compilation
Bonjour mimi,
j ai bien fait comme tu m’a dit je l’ai enlevée et remis toujours le même problème je te joint les captures d 'écran je suis un peu perdu
je te remercie encore du temps que tu accorde a mon problème
Cordialement
julian
oui il y a une confidentialité au projet je veux bien en privé si cela te dérange pas mais je vois pas comment faire pour envoyer le message en privé j 'aimerai que tu puisse me dire la ou j 'ai pu pécher.