la syntaxe des dates dans mon programme

Ilino à dit:

c'est pour cette raison que je suis un peu perturbé et limité par le temps..Et je tien a te remercier pour ton soutient

Cliquez pour agrandir...

Ilino à dit:

CONCERANAT LA 3 REMARQUE je ne veu pas utiliser la journier de vendredi journier de déplacement elle est inutile vendredi-samedi-dimanche c'est un week end prolongé
et pour le code il affiche un message "Incompatibilité de type" apres avoir remplacer

Cliquez pour agrandir...

Private Sub BtnValider_Click()
Dim MaDate As Date
Dim a As Byte

MaDate = Me.Calendar1.Value

If Weekday(MaDate, vbSaturday) = 7 Then
    ' Explication du fonctionnement de la MsgBox
    ' En fonction des boutons que tu auras demandé dans ton message, la variable "a" prendra la valeur suivante :
    ' 1 si tu cliques sur "Ok"
    ' 2 pour "Annuler"
    ' 3 pour "Abandonner"
    ' 4 pour "Réessayer"
    ' 5 pour "Ignorer"
    ' 6 pour "Oui"
    ' 7 pour "Non"
    
    ' Liste des boutons possible :
    ' tes boutons pevent être OK (vbOkOnly ou 0)
    ' Ok et Annuler (vbOKCancel ou 1)
    ' Abandonner, Réessayer et Ignorer (vbAbortRetryIgnore ou 2)
    ' Oui, Non et Annuler (vbYesNoCancel ou 3)
    ' Oui et Non (vbYesNo ou 4)
    ' Réessayer et Annuler (vbRetryCancel ou 5)
    
    'À partir de la voici un exemple répondant à ta demande :
    
    a = MsgBox("Le jour choisi est un vendredi!?!" & vbCrLf & vbCrLf & "Vous êtes sûr de votre saisie?", 4, "A T T E N T I O N")

    If a = 7 Then
    ' Si la réponse est non, alors représenter le calendrier pour qu'il refasse la saisie
       UsF_Calendrier.Show
    ' Else " ne sert à rien car si l'utilisateur répond "oui", il ne faut rien faire de particulier, juste continuer.
    End If


End If

ObjDate.Value = Format(Me.Calendar1, "dd/mm/yyyy")
Unload Me
End Sub

Excel-lent à dit:

Re,



Je vois ça! Vu l'heure, j'aurais cru que tu n'attendrais pas ma réponse concernant ton problème de date!

Je vais me pencher sur ton problème de MsgBox.

A tout à l'heure.

Cliquez pour agrandir...

Ilino à dit:

je n’arrive pas a te suivre telemnt tu es très lent si vous permettez encore une fois qu’on arrête et on poursuivra demain parce que maintenant j’ai tous perdu mon compteur est a 0Km/h

Cliquez pour agrandir...

Private Sub TextBox4_Change()
TextBox4 = UCase(TextBox4)
End Sub

Cliquez pour agrandir...