XL 2021 création planning avec nouveau calendrier

[Bruce68]

Bonjour à tous
J'ai modifié mon planning existant avec un nouveau calendrier (ald DTPicker) et maintenant ma macro ne fonctionne plus.
Je dois recopier les heures et les motifs de R.d.V dans 6 colonnes différentes( 3 pour le Matin et 3 pour l'après midi).
Fichier ci joint
Je vous remercie pour toute votre aide

 

[Rheeem]

Essaie ce code pour le bouton d'enregistrement

Private Sub CommandButton1_Click()
Dim pos As Long, NewHorr As Long
Dim Heur As Long
Dim j As Long

If rdv = "" Then
   MsgBox "vous n'avez pas Renseigné le Motif du R.d.V."
   rdv.SetFocus
   Exit Sub
ElseIf Not IsNumeric(horaire) Then
   MsgBox "vous n'avez pas Renseigné l'horaire."
   horaire.SetFocus
   Exit Sub
End If
 
Heur = CLng(horaire)
j = IIf(Heur < 12, 1, 8)
'x = IIf(j = 1, "Le Matin", "L'Apres-Midi")
On Error Resume Next
 pos = Application.Match(CLng(CDate(JourJ)), Sheets("Calendrier").Range("A4:A369"), 0)
On Error GoTo 0
If pos = 0 Then
   MsgBox "Date invalide " & JourJ
   Exit Sub
End If
 
  With Sheets("Calendrier").Range("A4:A369").Cells(pos, 1)
    If .Offset(0, j) = "" Then
        NewHorr = j
    ElseIf .Offset(0, j + 2) = "" Then
        NewHorr = j + 2
    ElseIf .Offset(0, j + 4) = "" Then
        NewHorr = j + 4
    Else
       MsgBox " Les  3  Rendez-Vous pour: " & "     " & "sont pris pour la journéé du : " & ""
       Exit Sub
    End If
    .Offset(0, NewHorr) = horaire        ' utilisation de la variable dep
    .Offset(0, NewHorr + 1) = rdv
    .Select
  End With
End Sub

 

[Dand87]

Bonjour à tous
J'ai modifié mon planning existant avec un nouveau calendrier (ald DTPicker) et maintenant ma macro ne fonctionne plus.
Je dois recopier les heures et les motifs de R.d.V dans 6 colonnes différentes( 3 pour le Matin et 3 pour l'après midi).
Fichier ci joint
Je vous remercie pour toute votre aide

Bonjour, pour mon info, quand vous dites que le "ald DTPicker" ne fonctionne plus, parlez-vous de ce Add-Ins dans Excel:

 

[Bruce68]

Bonsoir Dan87
Oui c"est bien de celui là que parle, Meme en mettent le fichier: MSCOMct2 dans Windows Impossible de le faire fonctionner (Excel 2024) sur excel2019 aucun problème.
C:\windows\syswow64\regsvr32 /u mscomct2.ocx
Revenons à mon fichier:
Quelques erreurs dans combox3 et rdv non renseigné alors qu'il est renseigné
ci joint le fichier avec la nouvelle macro de rheemm
Merci rheemm pour la nouvelle macro.
Merci pour toute votre aide

 

[Rheeem]

Bonjour,
Il y a des erreurs de syntaxe donc tes modifications rdv > "" en plus l' ajout d'une variable locale "jourj" qui masque le champ de la date du formulaire .

Dans cette nouvelle version le bouton de validation va clignoter pour indiquer que l'enregistrement a eu lieu, cela pour éviter de revalider pour s’assurer de l’opération

 

[Bruce68]

Bonjour Rheemm
Dans le fichier Planning-orig1J'ai une erreur dans horaire: vous n'avez pas renseigné horaire alors que celle ci contient un horaire.
je ne comprend pas l'erreur.
Je vous remercie pour toute votre aide

 

[Rheeem]

L'horaire renseigne l'heure du rdv et doit être entré sous ces formats: soit uniquement l 'heure pour faciliter la saisie ex 10 ou 15.. soit en format temps complète 10:00 ou 14:30 ..

 

[fanch55]

Une contribution

 

[Bruce68]

bonsoir fanch55
Excellent ce planning, la seule chose qui me chagrine c'est l'effacement des heures, minutes et du RdV et fermeture de l'userform après l'enregistrement. Merci pour l'aide

 

[Bruce68]

Bonsoir à tous
Voici mon nouveau calendrier qui fonctionne comme je voulais.
J'ai rajouté 12 labels: 6 pour le matin et 6 pour l'après midi, les 6 sont divisés en 2: 1 pour l'heure et l'autre pour le motif.
Normalement je dois renseigner le jour et clicquer su OK pour voir si il existe un rendez vous à l a date, mais cela ne fonctionne pas.
Je vous remercie de votre aide.
Fichier ci-joint

 

[fanch55]

bonsoir fanch55
Excellent ce planning, la seule chose qui me chagrine c'est l'effacement des heures, minutes et du RdV et fermeture de l'userform après l'enregistrement. Merci pour l'aide

Tout est lié au déchargement de l'Usf.
C'est à vous de décider du déchargement ou non .
Le fichier ci-joint ne décharge pas l"Usf .

Mince, j'ai oublié de cliquer sur "Répondre" ce matin

 

[ChTi160]

Bonjour le Fil
je me pose la question : as tu besoin d'une si grande amplitude horaire ?
Heure de 00:00 à 23:00 heure et les Minutes de 0 à 59 minutes ,
Bonne journée
Jean marie

 

[Bruce68]

Bonjour le Fil
je me pose la question : as tu besoin d'une si grande amplitude horaire ?
Heure de 00:00 à 23:00 heure et les Minutes de 0 à 59 minutes ,
Bonne journée
Jean marie

Bonjour à tous
Ce que cherche c 'est à faire fonctionner mes labels sur le fichier de mon avant dernier fil.
Je vous remercie de votre aide

 

[ChTi160]

Merci de cette réponse !
Bonne continuation
Jean marie

 

[fanch55]

Bonjour à tous
Ce que cherche c 'est à faire fonctionner mes labels sur le fichier de mon avant dernier fil.
Je vous remercie de votre aide

Classeur corrigé selon ce que j'en ai supposé