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