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
Clément Marcotte
Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette() Dim datelimite As Date datelimite = #10/11/2003# If DateSerial(Year(datelimite), Month(datelimite), Day(datelimite)) _ - DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then MsgBox "Votre classeur est à la veille de péter au frette" End If End Sub
"Crel" a écrit dans le message de news:
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une date
choisi afin de prévenir un utilisateur. Merci beaucoup. Patrick
Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette()
Dim datelimite As Date
datelimite = #10/11/2003#
If DateSerial(Year(datelimite), Month(datelimite), Day(datelimite)) _
- DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then
MsgBox "Votre classeur est à la veille de péter au frette"
End If
End Sub
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le message de
news:O1tnskGhDHA.4024@TK2MSFTNGP11.phx.gbl...
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une
date
choisi afin de prévenir un utilisateur.
Merci beaucoup.
Patrick
Sub cavapeteraufrette() Dim datelimite As Date datelimite = #10/11/2003# If DateSerial(Year(datelimite), Month(datelimite), Day(datelimite)) _ - DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then MsgBox "Votre classeur est à la veille de péter au frette" End If End Sub
"Crel" a écrit dans le message de news:
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une date
choisi afin de prévenir un utilisateur. Merci beaucoup. Patrick
Crel
Merci beaucoup Clèment. Patrick.
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette() Dim datelimite As Date datelimite = #10/11/2003# If DateSerial(Year(datelimite), Month(datelimite), Day(datelimite)) _ - DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then MsgBox "Votre classeur est à la veille de péter au frette" End If End Sub
"Crel" a écrit dans le message de news:
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une date
choisi afin de prévenir un utilisateur. Merci beaucoup. Patrick
Merci beaucoup Clèment.
Patrick.
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: e3nxBDIhDHA.484@TK2MSFTNGP12.phx.gbl...
Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette()
Dim datelimite As Date
datelimite = #10/11/2003#
If DateSerial(Year(datelimite), Month(datelimite), Day(datelimite)) _
- DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then
MsgBox "Votre classeur est à la veille de péter au frette"
End If
End Sub
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le message de
news:O1tnskGhDHA.4024@TK2MSFTNGP11.phx.gbl...
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une
date
choisi afin de prévenir un utilisateur.
Merci beaucoup.
Patrick
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette() Dim datelimite As Date datelimite = #10/11/2003# If DateSerial(Year(datelimite), Month(datelimite), Day(datelimite)) _ - DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then MsgBox "Votre classeur est à la veille de péter au frette" End If End Sub
"Crel" a écrit dans le message de news:
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une date
choisi afin de prévenir un utilisateur. Merci beaucoup. Patrick
notche
bonjour Clement,
pourquoi ne pas simplifier le code concernant la difference de date ? exemple :
Sub çaVaProuterEtçaVaPasSentirLaRose() Dim limite As Date
limite = "5/10/2003" ' ou limite = Feuilx.range("xx")... If limite - Date < 15 Then MsgBox (" Ton classeur est à " & limite - Date & " jours de te prouter au visage !") End If End Sub
-----Message d'origine----- Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette() Dim datelimite As Date datelimite = #10/11/2003# If DateSerial(Year(datelimite), Month(datelimite), Day (datelimite)) _
- DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then
MsgBox "Votre classeur est à la veille de péter au frette" End If End Sub
"Crel" a écrit dans le message de
news:
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une
date
choisi afin de prévenir un utilisateur. Merci beaucoup. Patrick
.
bonjour Clement,
pourquoi ne pas simplifier le code concernant la
difference de date ?
exemple :
Sub çaVaProuterEtçaVaPasSentirLaRose()
Dim limite As Date
limite = "5/10/2003" ' ou limite = Feuilx.range("xx")...
If limite - Date < 15 Then
MsgBox (" Ton classeur est à " & limite - Date & " jours
de te prouter au visage !")
End If
End Sub
-----Message d'origine-----
Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette()
Dim datelimite As Date
datelimite = #10/11/2003#
If DateSerial(Year(datelimite), Month(datelimite), Day
(datelimite)) _
- DateSerial(Year(Date), Month(Date), Day(Date)) <= 15
Then
MsgBox "Votre classeur est à la veille de péter au frette"
End If
End Sub
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le
message de
news:O1tnskGhDHA.4024@TK2MSFTNGP11.phx.gbl...
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15
jours avant une
date
choisi afin de prévenir un utilisateur.
Merci beaucoup.
Patrick
pourquoi ne pas simplifier le code concernant la difference de date ? exemple :
Sub çaVaProuterEtçaVaPasSentirLaRose() Dim limite As Date
limite = "5/10/2003" ' ou limite = Feuilx.range("xx")... If limite - Date < 15 Then MsgBox (" Ton classeur est à " & limite - Date & " jours de te prouter au visage !") End If End Sub
-----Message d'origine----- Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette() Dim datelimite As Date datelimite = #10/11/2003# If DateSerial(Year(datelimite), Month(datelimite), Day (datelimite)) _
- DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then
MsgBox "Votre classeur est à la veille de péter au frette" End If End Sub
"Crel" a écrit dans le message de
news:
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une
date
choisi afin de prévenir un utilisateur. Merci beaucoup. Patrick
.
Crel
Effectivement, c'est plus léger. Merci beaucoup Notche. Patrick.
"notche" a écrit dans le message de news: 200701c384fb$12e52250$ bonjour Clement,
pourquoi ne pas simplifier le code concernant la difference de date ? exemple :
Sub çaVaProuterEtçaVaPasSentirLaRose() Dim limite As Date
limite = "5/10/2003" ' ou limite = Feuilx.range("xx")... If limite - Date < 15 Then MsgBox (" Ton classeur est à " & limite - Date & " jours de te prouter au visage !") End If End Sub
-----Message d'origine----- Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette() Dim datelimite As Date datelimite = #10/11/2003# If DateSerial(Year(datelimite), Month(datelimite), Day (datelimite)) _
- DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then
MsgBox "Votre classeur est à la veille de péter au frette" End If End Sub
"Crel" a écrit dans le message de
news:
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une
date
choisi afin de prévenir un utilisateur. Merci beaucoup. Patrick
.
Effectivement, c'est plus léger.
Merci beaucoup Notche.
Patrick.
"notche" <NoSpamr-br@NoSpamwanadoo.fr> a écrit dans le message de news:
200701c384fb$12e52250$a101280a@phx.gbl...
bonjour Clement,
pourquoi ne pas simplifier le code concernant la
difference de date ?
exemple :
Sub çaVaProuterEtçaVaPasSentirLaRose()
Dim limite As Date
limite = "5/10/2003" ' ou limite = Feuilx.range("xx")...
If limite - Date < 15 Then
MsgBox (" Ton classeur est à " & limite - Date & " jours
de te prouter au visage !")
End If
End Sub
-----Message d'origine-----
Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette()
Dim datelimite As Date
datelimite = #10/11/2003#
If DateSerial(Year(datelimite), Month(datelimite), Day
(datelimite)) _
- DateSerial(Year(Date), Month(Date), Day(Date)) <= 15
Then
MsgBox "Votre classeur est à la veille de péter au frette"
End If
End Sub
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le
message de
news:O1tnskGhDHA.4024@TK2MSFTNGP11.phx.gbl...
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15
jours avant une
date
choisi afin de prévenir un utilisateur.
Merci beaucoup.
Patrick
Effectivement, c'est plus léger. Merci beaucoup Notche. Patrick.
"notche" a écrit dans le message de news: 200701c384fb$12e52250$ bonjour Clement,
pourquoi ne pas simplifier le code concernant la difference de date ? exemple :
Sub çaVaProuterEtçaVaPasSentirLaRose() Dim limite As Date
limite = "5/10/2003" ' ou limite = Feuilx.range("xx")... If limite - Date < 15 Then MsgBox (" Ton classeur est à " & limite - Date & " jours de te prouter au visage !") End If End Sub
-----Message d'origine----- Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette() Dim datelimite As Date datelimite = #10/11/2003# If DateSerial(Year(datelimite), Month(datelimite), Day (datelimite)) _
- DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then
MsgBox "Votre classeur est à la veille de péter au frette" End If End Sub
"Crel" a écrit dans le message de
news:
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une
date
choisi afin de prévenir un utilisateur. Merci beaucoup. Patrick
.
Clément Marcotte
Bonjour,
C'était, disons, un surcroît de prudence. En fait, j'ai utilité Date() uniquement parce que mes paramètres régionaux sont JJJJ-mm-aa. Même si en principe VBA converti toute date au format américain mm/jj/aaaa, ou quelque chose d'approchant, je voulais être relativement sur que l'itervalle de temps puisse être compté seulement en jours.
DateSerial() retourne le numéro qui correspond à la date dans VBA, et le résultat est en principe correct, peu impôrte les paramètres régionaux.
"notche" a écrit dans le message de news:200701c384fb$12e52250$ bonjour Clement,
pourquoi ne pas simplifier le code concernant la difference de date ? exemple :
Sub çaVaProuterEtçaVaPasSentirLaRose() Dim limite As Date
limite = "5/10/2003" ' ou limite = Feuilx.range("xx")... If limite - Date < 15 Then MsgBox (" Ton classeur est à " & limite - Date & " jours de te prouter au visage !") End If End Sub
-----Message d'origine----- Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette() Dim datelimite As Date datelimite = #10/11/2003# If DateSerial(Year(datelimite), Month(datelimite), Day (datelimite)) _
- DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then
MsgBox "Votre classeur est à la veille de péter au frette" End If End Sub
"Crel" a écrit dans le message de
news:
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une
date
choisi afin de prévenir un utilisateur. Merci beaucoup. Patrick
.
Bonjour,
C'était, disons, un surcroît de prudence. En fait, j'ai utilité Date()
uniquement parce que mes paramètres régionaux sont JJJJ-mm-aa. Même si
en principe VBA converti toute date au format américain mm/jj/aaaa, ou
quelque chose d'approchant, je voulais être relativement sur que
l'itervalle de temps puisse être compté seulement en jours.
DateSerial() retourne le numéro qui correspond à la date dans VBA, et
le résultat est en principe correct, peu impôrte les paramètres
régionaux.
"notche" <NoSpamr-br@NoSpamwanadoo.fr> a écrit dans le message de
news:200701c384fb$12e52250$a101280a@phx.gbl...
bonjour Clement,
pourquoi ne pas simplifier le code concernant la
difference de date ?
exemple :
Sub çaVaProuterEtçaVaPasSentirLaRose()
Dim limite As Date
limite = "5/10/2003" ' ou limite = Feuilx.range("xx")...
If limite - Date < 15 Then
MsgBox (" Ton classeur est à " & limite - Date & " jours
de te prouter au visage !")
End If
End Sub
-----Message d'origine-----
Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette()
Dim datelimite As Date
datelimite = #10/11/2003#
If DateSerial(Year(datelimite), Month(datelimite), Day
(datelimite)) _
- DateSerial(Year(Date), Month(Date), Day(Date)) <= 15
Then
MsgBox "Votre classeur est à la veille de péter au frette"
End If
End Sub
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le
message de
news:O1tnskGhDHA.4024@TK2MSFTNGP11.phx.gbl...
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15
jours avant une
date
choisi afin de prévenir un utilisateur.
Merci beaucoup.
Patrick
C'était, disons, un surcroît de prudence. En fait, j'ai utilité Date() uniquement parce que mes paramètres régionaux sont JJJJ-mm-aa. Même si en principe VBA converti toute date au format américain mm/jj/aaaa, ou quelque chose d'approchant, je voulais être relativement sur que l'itervalle de temps puisse être compté seulement en jours.
DateSerial() retourne le numéro qui correspond à la date dans VBA, et le résultat est en principe correct, peu impôrte les paramètres régionaux.
"notche" a écrit dans le message de news:200701c384fb$12e52250$ bonjour Clement,
pourquoi ne pas simplifier le code concernant la difference de date ? exemple :
Sub çaVaProuterEtçaVaPasSentirLaRose() Dim limite As Date
limite = "5/10/2003" ' ou limite = Feuilx.range("xx")... If limite - Date < 15 Then MsgBox (" Ton classeur est à " & limite - Date & " jours de te prouter au visage !") End If End Sub
-----Message d'origine----- Bonjour,
Essaie quelque chose comme cela:
Sub cavapeteraufrette() Dim datelimite As Date datelimite = #10/11/2003# If DateSerial(Year(datelimite), Month(datelimite), Day (datelimite)) _
- DateSerial(Year(Date), Month(Date), Day(Date)) <= 15 Then
MsgBox "Votre classeur est à la veille de péter au frette" End If End Sub
"Crel" a écrit dans le message de
news:
Bonjour à toutes et tous
je désire céer un userform, qui lance un msgbox 15 jours avant une
date
choisi afin de prévenir un utilisateur. Merci beaucoup. Patrick
