Bonsoir
Dans une de ses dernières allocutions, Monsieur le Président a dit qu'il
vallait mieux fermer sa g... que dire des bêtises.
Traduit en VBA, cela veut dire qu'il vaut mieux ne rien déclarer (même pas
sa flamme ni sa flemme) que de mal déclarer ses var.
Question: Comment puis-je attribuer à une var la valeur issue du calcul
NBJOURSOUVRES où le début de période (1er du mois) serait issu d'un Bordel
(in pute-box), ainsi que la date de fin de période ( fin de mois)?
Un grand merci
PS Tout cela en GRAND BRETON !!!!!! svp -))
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.
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. Comme ça ?
Sub test() Dim Mois Do While Not IsNumeric(Mois) Or (Mois > 12 Or Mois < 1) Mois = InputBox("Entrez le mois (de l'année en cours)") Mois = CInt(Mois) Loop Var = Evaluate("NB.JOURS.OUVRES(DATE(YEAR(TODAY())," _ & Mois & ",1),DATE(YEAR(TODAY())," & Mois & "+1,0))") End Sub
Cordialement. Daniel "Jacquouille" a écrit dans le message de news: %235$
Bonsoir Dans une de ses dernières allocutions, Monsieur le Président a dit qu'il vallait mieux fermer sa g... que dire des bêtises. Traduit en VBA, cela veut dire qu'il vaut mieux ne rien déclarer (même pas sa flamme ni sa flemme) que de mal déclarer ses var. Question: Comment puis-je attribuer à une var la valeur issue du calcul NBJOURSOUVRES où le début de période (1er du mois) serait issu d'un Bordel (in pute-box), ainsi que la date de fin de période ( fin de mois)? Un grand merci PS Tout cela en GRAND BRETON !!!!!! svp -)) -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm Jacquouille.
Bonsoir.
Comme ça ?
Sub test()
Dim Mois
Do While Not IsNumeric(Mois) Or (Mois > 12 Or Mois < 1)
Mois = InputBox("Entrez le mois (de l'année en cours)")
Mois = CInt(Mois)
Loop
Var = Evaluate("NB.JOURS.OUVRES(DATE(YEAR(TODAY())," _
& Mois & ",1),DATE(YEAR(TODAY())," & Mois & "+1,0))")
End Sub
Cordialement.
Daniel
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: %235$WkdP0FHA.3180@TK2MSFTNGP14.phx.gbl...
Bonsoir
Dans une de ses dernières allocutions, Monsieur le Président a dit qu'il
vallait mieux fermer sa g... que dire des bêtises.
Traduit en VBA, cela veut dire qu'il vaut mieux ne rien déclarer (même pas
sa flamme ni sa flemme) que de mal déclarer ses var.
Question: Comment puis-je attribuer à une var la valeur issue du calcul
NBJOURSOUVRES où le début de période (1er du mois) serait issu d'un Bordel
(in pute-box), ainsi que la date de fin de période ( fin de mois)?
Un grand merci
PS Tout cela en GRAND BRETON !!!!!! svp -))
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.
Sub test() Dim Mois Do While Not IsNumeric(Mois) Or (Mois > 12 Or Mois < 1) Mois = InputBox("Entrez le mois (de l'année en cours)") Mois = CInt(Mois) Loop Var = Evaluate("NB.JOURS.OUVRES(DATE(YEAR(TODAY())," _ & Mois & ",1),DATE(YEAR(TODAY())," & Mois & "+1,0))") End Sub
Cordialement. Daniel "Jacquouille" a écrit dans le message de news: %235$
Bonsoir Dans une de ses dernières allocutions, Monsieur le Président a dit qu'il vallait mieux fermer sa g... que dire des bêtises. Traduit en VBA, cela veut dire qu'il vaut mieux ne rien déclarer (même pas sa flamme ni sa flemme) que de mal déclarer ses var. Question: Comment puis-je attribuer à une var la valeur issue du calcul NBJOURSOUVRES où le début de période (1er du mois) serait issu d'un Bordel (in pute-box), ainsi que la date de fin de période ( fin de mois)? Un grand merci PS Tout cela en GRAND BRETON !!!!!! svp -)) -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm Jacquouille.
Jacquouille
Bonsoir Un tout grand merci Jessaierai d'arranger pour un mois de l'année 2006... Encore merci et bonne fin de soirée Jacques - Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm Jacquouille.
"Daniel" a écrit dans le message de news:
Bonsoir. Comme ça ?
Sub test() Dim Mois Do While Not IsNumeric(Mois) Or (Mois > 12 Or Mois < 1) Mois = InputBox("Entrez le mois (de l'année en cours)") Mois = CInt(Mois) Loop Var = Evaluate("NB.JOURS.OUVRES(DATE(YEAR(TODAY())," _ & Mois & ",1),DATE(YEAR(TODAY())," & Mois & "+1,0))") End Sub
Cordialement. Daniel "Jacquouille" a écrit dans le message de news: %235$
Bonsoir Dans une de ses dernières allocutions, Monsieur le Président a dit qu'il vallait mieux fermer sa g... que dire des bêtises. Traduit en VBA, cela veut dire qu'il vaut mieux ne rien déclarer (même pas sa flamme ni sa flemme) que de mal déclarer ses var. Question: Comment puis-je attribuer à une var la valeur issue du calcul NBJOURSOUVRES où le début de période (1er du mois) serait issu d'un Bordel (in pute-box), ainsi que la date de fin de période ( fin de mois)? Un grand merci PS Tout cela en GRAND BRETON !!!!!! svp -)) -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm Jacquouille.
Bonsoir
Un tout grand merci
Jessaierai d'arranger pour un mois de l'année 2006...
Encore merci et bonne fin de soirée
Jacques
-
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eT5aEOQ0FHA.2792@tk2msftngp13.phx.gbl...
Bonsoir.
Comme ça ?
Sub test()
Dim Mois
Do While Not IsNumeric(Mois) Or (Mois > 12 Or Mois < 1)
Mois = InputBox("Entrez le mois (de l'année en cours)")
Mois = CInt(Mois)
Loop
Var = Evaluate("NB.JOURS.OUVRES(DATE(YEAR(TODAY())," _
& Mois & ",1),DATE(YEAR(TODAY())," & Mois & "+1,0))")
End Sub
Cordialement.
Daniel
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: %235$WkdP0FHA.3180@TK2MSFTNGP14.phx.gbl...
Bonsoir
Dans une de ses dernières allocutions, Monsieur le Président a dit qu'il
vallait mieux fermer sa g... que dire des bêtises.
Traduit en VBA, cela veut dire qu'il vaut mieux ne rien déclarer (même
pas sa flamme ni sa flemme) que de mal déclarer ses var.
Question: Comment puis-je attribuer à une var la valeur issue du calcul
NBJOURSOUVRES où le début de période (1er du mois) serait issu d'un
Bordel (in pute-box), ainsi que la date de fin de période ( fin de mois)?
Un grand merci
PS Tout cela en GRAND BRETON !!!!!! svp -))
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.
Bonsoir Un tout grand merci Jessaierai d'arranger pour un mois de l'année 2006... Encore merci et bonne fin de soirée Jacques - Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm Jacquouille.
"Daniel" a écrit dans le message de news:
Bonsoir. Comme ça ?
Sub test() Dim Mois Do While Not IsNumeric(Mois) Or (Mois > 12 Or Mois < 1) Mois = InputBox("Entrez le mois (de l'année en cours)") Mois = CInt(Mois) Loop Var = Evaluate("NB.JOURS.OUVRES(DATE(YEAR(TODAY())," _ & Mois & ",1),DATE(YEAR(TODAY())," & Mois & "+1,0))") End Sub
Cordialement. Daniel "Jacquouille" a écrit dans le message de news: %235$
Bonsoir Dans une de ses dernières allocutions, Monsieur le Président a dit qu'il vallait mieux fermer sa g... que dire des bêtises. Traduit en VBA, cela veut dire qu'il vaut mieux ne rien déclarer (même pas sa flamme ni sa flemme) que de mal déclarer ses var. Question: Comment puis-je attribuer à une var la valeur issue du calcul NBJOURSOUVRES où le début de période (1er du mois) serait issu d'un Bordel (in pute-box), ainsi que la date de fin de période ( fin de mois)? Un grand merci PS Tout cela en GRAND BRETON !!!!!! svp -)) -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm Jacquouille.
