Bonsoir
J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux
Savez-vous ce que je dois changer ?
Merci beaucoup
Michel
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
x = x + 1
If Weekday(i, 2) > 5 Then x = x - 1
Next
ActiveCell = x
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
Daniel
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Bonsoir, Michel
Quelle sorte d'erreur as-tu ?
Cordialement.
Daniel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message de
news: ulO4rOQGFHA.2932@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux
Savez-vous ce que je dois changer ?
Merci beaucoup
Michel
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
x = x + 1
If Weekday(i, 2) > 5 Then x = x - 1
Next
ActiveCell = x
End Sub
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Corona
Bonsoir Michel, Ceci n'est pas mieux ?
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) If Weekday(i, 2) < 6 Then X = X + 1 Next ActiveCell = X End Sub
Philippe
"Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Bonsoir Michel,
Ceci n'est pas mieux ?
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
If Weekday(i, 2) < 6 Then X = X + 1
Next
ActiveCell = X
End Sub
Philippe
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message de
news: ulO4rOQGFHA.2932@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux
Savez-vous ce que je dois changer ?
Merci beaucoup
Michel
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
x = x + 1
If Weekday(i, 2) > 5 Then x = x - 1
Next
ActiveCell = x
End Sub
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) If Weekday(i, 2) < 6 Then X = X + 1 Next ActiveCell = X End Sub
Philippe
"Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Michel.Girard
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Merci Daniel pour ta prestitude ;-)
lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 !
alors que je devrais avoir 1
Michel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ugoRqhQGFHA.1456@TK2MSFTNGP09.phx.gbl...
Bonsoir, Michel
Quelle sorte d'erreur as-tu ?
Cordialement.
Daniel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: ulO4rOQGFHA.2932@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres
faux
Savez-vous ce que je dois changer ?
Merci beaucoup
Michel
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
x = x + 1
If Weekday(i, 2) > 5 Then x = x - 1
Next
ActiveCell = x
End Sub
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Corona
Bonsoir Michel, Commence à la date + 1 Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) If Weekday(i, 2) < 6 Then X = X + 1 Next ActiveCell = X End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Bonsoir Michel,
Commence à la date + 1
Philippe
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) + 1 To CDate(TextBox2)
If Weekday(i, 2) < 6 Then X = X + 1
Next
ActiveCell = X
End Sub
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message de
news: uo3kaoQGFHA.3472@TK2MSFTNGP09.phx.gbl...
Merci Daniel pour ta prestitude ;-)
lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 !
alors que je devrais avoir 1
Michel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ugoRqhQGFHA.1456@TK2MSFTNGP09.phx.gbl...
Bonsoir, Michel
Quelle sorte d'erreur as-tu ?
Cordialement.
Daniel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: ulO4rOQGFHA.2932@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres
faux
Savez-vous ce que je dois changer ?
Merci beaucoup
Michel
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
x = x + 1
If Weekday(i, 2) > 5 Then x = x - 1
Next
ActiveCell = x
End Sub
Bonsoir Michel, Commence à la date + 1 Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) If Weekday(i, 2) < 6 Then X = X + 1 Next ActiveCell = X End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Michel.Girard
Bonsoir et merci Corona Désolé, cela ne fonctionne pas lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Corona" <Philippe Tulliez> a écrit dans le message de news: uL%
Bonsoir Michel, Ceci n'est pas mieux ?
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) If Weekday(i, 2) < 6 Then X = X + 1 Next ActiveCell = X End Sub
Philippe
"Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Bonsoir et merci Corona
Désolé, cela ne fonctionne pas
lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 !
alors que je devrais avoir 1
Michel
"Corona" <Philippe Tulliez> a écrit dans le message de news:
uL%23FgmQGFHA.2676@TK2MSFTNGP12.phx.gbl...
Bonsoir Michel,
Ceci n'est pas mieux ?
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
If Weekday(i, 2) < 6 Then X = X + 1
Next
ActiveCell = X
End Sub
Philippe
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: ulO4rOQGFHA.2932@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres
faux
Savez-vous ce que je dois changer ?
Merci beaucoup
Michel
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
x = x + 1
If Weekday(i, 2) > 5 Then x = x - 1
Next
ActiveCell = x
End Sub
Bonsoir et merci Corona Désolé, cela ne fonctionne pas lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Corona" <Philippe Tulliez> a écrit dans le message de news: uL%
Bonsoir Michel, Ceci n'est pas mieux ?
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) If Weekday(i, 2) < 6 Then X = X + 1 Next ActiveCell = X End Sub
Philippe
"Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Corona
Bonsoir Michel, Un peu plus court Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) x = x + Abs(Weekday(i, 2) < 6) Next ActiveCell = x End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Bonsoir Michel,
Un peu plus court
Philippe
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) + 1 To CDate(TextBox2)
x = x + Abs(Weekday(i, 2) < 6)
Next
ActiveCell = x
End Sub
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message de
news: uo3kaoQGFHA.3472@TK2MSFTNGP09.phx.gbl...
Merci Daniel pour ta prestitude ;-)
lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 !
alors que je devrais avoir 1
Michel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ugoRqhQGFHA.1456@TK2MSFTNGP09.phx.gbl...
Bonsoir, Michel
Quelle sorte d'erreur as-tu ?
Cordialement.
Daniel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: ulO4rOQGFHA.2932@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres
faux
Savez-vous ce que je dois changer ?
Merci beaucoup
Michel
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
x = x + 1
If Weekday(i, 2) > 5 Then x = x - 1
Next
ActiveCell = x
End Sub
Bonsoir Michel, Un peu plus court Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) x = x + Abs(Weekday(i, 2) < 6) Next ActiveCell = x End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Michel.Girard
Merci beaucoup Philippe c'est parfait Bonne soirée Michel
"Corona" <Philippe Tulliez> a écrit dans le message de news: %23%
Bonsoir Michel, Commence à la date + 1 Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) If Weekday(i, 2) < 6 Then X = X + 1 Next ActiveCell = X End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Merci beaucoup Philippe
c'est parfait
Bonne soirée
Michel
"Corona" <Philippe Tulliez> a écrit dans le message de news:
%23%236YHtQGFHA.3612@TK2MSFTNGP09.phx.gbl...
Bonsoir Michel,
Commence à la date + 1
Philippe
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) + 1 To CDate(TextBox2)
If Weekday(i, 2) < 6 Then X = X + 1
Next
ActiveCell = X
End Sub
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: uo3kaoQGFHA.3472@TK2MSFTNGP09.phx.gbl...
Merci Daniel pour ta prestitude ;-)
lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 !
alors que je devrais avoir 1
Michel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ugoRqhQGFHA.1456@TK2MSFTNGP09.phx.gbl...
Bonsoir, Michel
Quelle sorte d'erreur as-tu ?
Cordialement.
Daniel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: ulO4rOQGFHA.2932@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres
faux
Savez-vous ce que je dois changer ?
Merci beaucoup
Michel
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
x = x + 1
If Weekday(i, 2) > 5 Then x = x - 1
Next
ActiveCell = x
End Sub
Merci beaucoup Philippe c'est parfait Bonne soirée Michel
"Corona" <Philippe Tulliez> a écrit dans le message de news: %23%
Bonsoir Michel, Commence à la date + 1 Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) If Weekday(i, 2) < 6 Then X = X + 1 Next ActiveCell = X End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Michel.Girard
Merci encore à toi ! mais pourquoi la fonction ABS ?
"Corona" <Philippe Tulliez> a écrit dans le message de news: %
Bonsoir Michel, Un peu plus court Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) x = x + Abs(Weekday(i, 2) < 6) Next ActiveCell = x End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Merci encore à toi !
mais pourquoi la fonction ABS ?
"Corona" <Philippe Tulliez> a écrit dans le message de news:
%23w17IyQGFHA.3368@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
Un peu plus court
Philippe
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) + 1 To CDate(TextBox2)
x = x + Abs(Weekday(i, 2) < 6)
Next
ActiveCell = x
End Sub
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: uo3kaoQGFHA.3472@TK2MSFTNGP09.phx.gbl...
Merci Daniel pour ta prestitude ;-)
lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 !
alors que je devrais avoir 1
Michel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ugoRqhQGFHA.1456@TK2MSFTNGP09.phx.gbl...
Bonsoir, Michel
Quelle sorte d'erreur as-tu ?
Cordialement.
Daniel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: ulO4rOQGFHA.2932@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres
faux
Savez-vous ce que je dois changer ?
Merci beaucoup
Michel
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
x = x + 1
If Weekday(i, 2) > 5 Then x = x - 1
Next
ActiveCell = x
End Sub
Merci encore à toi ! mais pourquoi la fonction ABS ?
"Corona" <Philippe Tulliez> a écrit dans le message de news: %
Bonsoir Michel, Un peu plus court Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) x = x + Abs(Weekday(i, 2) < 6) Next ActiveCell = x End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Corona
Bonsoir Michel, ABS parce-que 'Weekday(i, 2) < 6' renvoie vrai ou faux (-1 ou 0) que ABS transforme en 0 ou 1 Philippe "Michel.Girard" a écrit dans le message de news: u$
Merci encore à toi ! mais pourquoi la fonction ABS ?
"Corona" <Philippe Tulliez> a écrit dans le message de news: %
Bonsoir Michel, Un peu plus court Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) x = x + Abs(Weekday(i, 2) < 6) Next ActiveCell = x End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Bonsoir Michel,
ABS parce-que 'Weekday(i, 2) < 6' renvoie vrai ou faux (-1 ou 0) que ABS
transforme en 0 ou 1
Philippe
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message de
news: u$wzD5QGFHA.3728@TK2MSFTNGP14.phx.gbl...
Merci encore à toi !
mais pourquoi la fonction ABS ?
"Corona" <Philippe Tulliez> a écrit dans le message de news:
%23w17IyQGFHA.3368@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
Un peu plus court
Philippe
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) + 1 To CDate(TextBox2)
x = x + Abs(Weekday(i, 2) < 6)
Next
ActiveCell = x
End Sub
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: uo3kaoQGFHA.3472@TK2MSFTNGP09.phx.gbl...
Merci Daniel pour ta prestitude ;-)
lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 !
alors que je devrais avoir 1
Michel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ugoRqhQGFHA.1456@TK2MSFTNGP09.phx.gbl...
Bonsoir, Michel
Quelle sorte d'erreur as-tu ?
Cordialement.
Daniel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le
message de news: ulO4rOQGFHA.2932@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres
faux
Savez-vous ce que je dois changer ?
Merci beaucoup
Michel
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
x = x + 1
If Weekday(i, 2) > 5 Then x = x - 1
Next
ActiveCell = x
End Sub
Bonsoir Michel, ABS parce-que 'Weekday(i, 2) < 6' renvoie vrai ou faux (-1 ou 0) que ABS transforme en 0 ou 1 Philippe "Michel.Girard" a écrit dans le message de news: u$
Merci encore à toi ! mais pourquoi la fonction ABS ?
"Corona" <Philippe Tulliez> a écrit dans le message de news: %
Bonsoir Michel, Un peu plus court Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) x = x + Abs(Weekday(i, 2) < 6) Next ActiveCell = x End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Michel.Girard
Merci Philippe Michel
"Corona" <Philippe Tulliez> a écrit dans le message de news:
Bonsoir Michel, ABS parce-que 'Weekday(i, 2) < 6' renvoie vrai ou faux (-1 ou 0) que ABS transforme en 0 ou 1 Philippe "Michel.Girard" a écrit dans le message de news: u$
Merci encore à toi ! mais pourquoi la fonction ABS ?
"Corona" <Philippe Tulliez> a écrit dans le message de news: %
Bonsoir Michel, Un peu plus court Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) x = x + Abs(Weekday(i, 2) < 6) Next ActiveCell = x End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
Merci Philippe
Michel
"Corona" <Philippe Tulliez> a écrit dans le message de news:
uqNt3SSGFHA.2568@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
ABS parce-que 'Weekday(i, 2) < 6' renvoie vrai ou faux (-1 ou 0) que
ABS transforme en 0 ou 1
Philippe
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: u$wzD5QGFHA.3728@TK2MSFTNGP14.phx.gbl...
Merci encore à toi !
mais pourquoi la fonction ABS ?
"Corona" <Philippe Tulliez> a écrit dans le message de news:
%23w17IyQGFHA.3368@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
Un peu plus court
Philippe
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) + 1 To CDate(TextBox2)
x = x + Abs(Weekday(i, 2) < 6)
Next
ActiveCell = x
End Sub
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: uo3kaoQGFHA.3472@TK2MSFTNGP09.phx.gbl...
Merci Daniel pour ta prestitude ;-)
lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 !
alors que je devrais avoir 1
Michel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ugoRqhQGFHA.1456@TK2MSFTNGP09.phx.gbl...
Bonsoir, Michel
Quelle sorte d'erreur as-tu ?
Cordialement.
Daniel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le
message de news: ulO4rOQGFHA.2932@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres
faux
Savez-vous ce que je dois changer ?
Merci beaucoup
Michel
Private Sub CommandButton1_Click()
For i = CDate(TextBox1) To CDate(TextBox2)
x = x + 1
If Weekday(i, 2) > 5 Then x = x - 1
Next
ActiveCell = x
End Sub
"Corona" <Philippe Tulliez> a écrit dans le message de news:
Bonsoir Michel, ABS parce-que 'Weekday(i, 2) < 6' renvoie vrai ou faux (-1 ou 0) que ABS transforme en 0 ou 1 Philippe "Michel.Girard" a écrit dans le message de news: u$
Merci encore à toi ! mais pourquoi la fonction ABS ?
"Corona" <Philippe Tulliez> a écrit dans le message de news: %
Bonsoir Michel, Un peu plus court Philippe Private Sub CommandButton1_Click() For i = CDate(TextBox1) + 1 To CDate(TextBox2) x = x + Abs(Weekday(i, 2) < 6) Next ActiveCell = x End Sub
"Michel.Girard" a écrit dans le message de news:
Merci Daniel pour ta prestitude ;-) lorsque je tape 03/01/05 et 04/01/05, cela me donne 2 ! alors que je devrais avoir 1 Michel
"Daniel" a écrit dans le message de news:
Bonsoir, Michel Quelle sorte d'erreur as-tu ? Cordialement. Daniel "Michel.Girard" a écrit dans le message de news:
Bonsoir J'essaie d'adapter cette procédure, mais elle me renvoie des chiffres faux Savez-vous ce que je dois changer ? Merci beaucoup Michel
Private Sub CommandButton1_Click() For i = CDate(TextBox1) To CDate(TextBox2) x = x + 1 If Weekday(i, 2) > 5 Then x = x - 1 Next ActiveCell = x End Sub
