Bonsoir.
Je désire savoir pourquoi cette proc ne fonctionne pas,
théoriquement, je devrais avoir dans le textbox3 le résultat du calcul entre
2 textbox(dates sans jours W.E)
Merci beaucoup
Michel
Private Sub OptionButton2_Click()
If OptionButton2 = True And TextBox11 <> "" Then
For i = CDate(TextBox10) + 1 To CDate(TextBox11)
x = x + Abs(WeekDay(i, 2) < 6)
Next
If x = 0 Then TextBox3 = "0 jour"
Else
TextBox3 = x & " jour(s)"
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel.Girard
Désolé... Je viens enfin de trouver C'est le End if qui était mal placé Merci à tous Michel
"Michel.Girard" a écrit dans le message de news: O9b$
Bonsoir. Je désire savoir pourquoi cette proc ne fonctionne pas, théoriquement, je devrais avoir dans le textbox3 le résultat du calcul entre 2 textbox(dates sans jours W.E) Merci beaucoup Michel
Private Sub OptionButton2_Click() If OptionButton2 = True And TextBox11 <> "" Then For i = CDate(TextBox10) + 1 To CDate(TextBox11) x = x + Abs(WeekDay(i, 2) < 6) Next If x = 0 Then TextBox3 = "0 jour" Else TextBox3 = x & " jour(s)" End If End Sub
Désolé...
Je viens enfin de trouver
C'est le End if qui était mal placé
Merci à tous
Michel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message de
news: O9b$tYdGFHA.628@TK2MSFTNGP10.phx.gbl...
Bonsoir.
Je désire savoir pourquoi cette proc ne fonctionne pas,
théoriquement, je devrais avoir dans le textbox3 le résultat du calcul
entre 2 textbox(dates sans jours W.E)
Merci beaucoup
Michel
Private Sub OptionButton2_Click()
If OptionButton2 = True And TextBox11 <> "" Then
For i = CDate(TextBox10) + 1 To CDate(TextBox11)
x = x + Abs(WeekDay(i, 2) < 6)
Next
If x = 0 Then TextBox3 = "0 jour"
Else
TextBox3 = x & " jour(s)"
End If
End Sub
Désolé... Je viens enfin de trouver C'est le End if qui était mal placé Merci à tous Michel
"Michel.Girard" a écrit dans le message de news: O9b$
Bonsoir. Je désire savoir pourquoi cette proc ne fonctionne pas, théoriquement, je devrais avoir dans le textbox3 le résultat du calcul entre 2 textbox(dates sans jours W.E) Merci beaucoup Michel
Private Sub OptionButton2_Click() If OptionButton2 = True And TextBox11 <> "" Then For i = CDate(TextBox10) + 1 To CDate(TextBox11) x = x + Abs(WeekDay(i, 2) < 6) Next If x = 0 Then TextBox3 = "0 jour" Else TextBox3 = x & " jour(s)" End If End Sub
