Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc.
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc.
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc.
"Patou" a écrit dans le message de news:
C699D2A0.27D%Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc.
Quel rapport entre le 12 et 10/01...10/02... ?
Etc
"Patou" <pastout@orange.fr> a écrit dans le message de news:
C699D2A0.27D%pastout@orange.fr...
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc.
Quel rapport entre le 12 et 10/01...10/02... ?
Etc
"Patou" a écrit dans le message de news:
C699D2A0.27D%Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc.
Quel rapport entre le 12 et 10/01...10/02... ?
Etc
Effectivement : il faut lire le 12/01/2009 et 12/02/2009 etc
Effectivement : il faut lire le 12/01/2009 et 12/02/2009 etc
Effectivement : il faut lire le 12/01/2009 et 12/02/2009 etc
"Patou" a écrit dans le message de news:
C699D44F.281%Effectivement : il faut lire le 12/01/2009 et 12/02/2009 etc
Et si tu saisis 30, que faut-il afficher ?
30/01/2009 - 28/01/2009 - 30/03/2009..... ?
Et si tu saisis 31, que faut-il afficher ?
31/01/2009 - 28/01/2009 - 31/03/2009..... ?
Ou autre chose ?
Etc
"Patou" <pastout@orange.fr> a écrit dans le message de news:
C699D44F.281%pastout@orange.fr...
Effectivement : il faut lire le 12/01/2009 et 12/02/2009 etc
Et si tu saisis 30, que faut-il afficher ?
30/01/2009 - 28/01/2009 - 30/03/2009..... ?
Et si tu saisis 31, que faut-il afficher ?
31/01/2009 - 28/01/2009 - 31/03/2009..... ?
Ou autre chose ?
Etc
"Patou" a écrit dans le message de news:
C699D44F.281%Effectivement : il faut lire le 12/01/2009 et 12/02/2009 etc
Et si tu saisis 30, que faut-il afficher ?
30/01/2009 - 28/01/2009 - 30/03/2009..... ?
Et si tu saisis 31, que faut-il afficher ?
31/01/2009 - 28/01/2009 - 31/03/2009..... ?
Ou autre chose ?
Etc
Bonjour Patou,
Je n'ai pas tout compris...
Quelque chose qui pourrait t'aider à réaliser ce que tu désires faire :
N.B - Attention aux coupures de ligne par le
service de messagerie.
'-----------------------------------------
Sub test()
Dim Année As Long, mois As Integer
Dim MaDate As Date, A As Integer
If IsDate(Me.Textbox1) = True Then
MaDate = CDate(MaDate)
Année = Year(MaDate)
mois = Month(MaDate)
With Worksheets("Feuil1") 'nom feuille à adapter
'Boucle pour les 12 prochains mois
For A = 1 To 12
'Dans la colonne A1:A12, la date
'des 12 mois suivants à la date saisie
'dans le textbox (le jour 1 du mois
With .Range("A" & A)
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A, 1), _
"DD/MM/YYYY")
End With
With .Range("B" & A)
'Dans la colonne B1:B12, la date du
'dernier jour du mois pour les 12 mois
'suivants la date saisie dans ton textbox
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A + 1, 0), _
"DD/MM/YYYY")
End With
Next
End With
Else
MsgBox "La date saisie dans le textbox est erronée"
End If
End Sub
'-----------------------------------------
"Patou" a écrit dans le message de groupe de discussion :
C699D2A0.27D%
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30 ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick
Bonjour Patou,
Je n'ai pas tout compris...
Quelque chose qui pourrait t'aider à réaliser ce que tu désires faire :
N.B - Attention aux coupures de ligne par le
service de messagerie.
'-----------------------------------------
Sub test()
Dim Année As Long, mois As Integer
Dim MaDate As Date, A As Integer
If IsDate(Me.Textbox1) = True Then
MaDate = CDate(MaDate)
Année = Year(MaDate)
mois = Month(MaDate)
With Worksheets("Feuil1") 'nom feuille à adapter
'Boucle pour les 12 prochains mois
For A = 1 To 12
'Dans la colonne A1:A12, la date
'des 12 mois suivants à la date saisie
'dans le textbox (le jour 1 du mois
With .Range("A" & A)
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A, 1), _
"DD/MM/YYYY")
End With
With .Range("B" & A)
'Dans la colonne B1:B12, la date du
'dernier jour du mois pour les 12 mois
'suivants la date saisie dans ton textbox
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A + 1, 0), _
"DD/MM/YYYY")
End With
Next
End With
Else
MsgBox "La date saisie dans le textbox est erronée"
End If
End Sub
'-----------------------------------------
"Patou" <pastout@orange.fr> a écrit dans le message de groupe de discussion :
C699D2A0.27D%pastout@orange.fr...
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30 ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick
Bonjour Patou,
Je n'ai pas tout compris...
Quelque chose qui pourrait t'aider à réaliser ce que tu désires faire :
N.B - Attention aux coupures de ligne par le
service de messagerie.
'-----------------------------------------
Sub test()
Dim Année As Long, mois As Integer
Dim MaDate As Date, A As Integer
If IsDate(Me.Textbox1) = True Then
MaDate = CDate(MaDate)
Année = Year(MaDate)
mois = Month(MaDate)
With Worksheets("Feuil1") 'nom feuille à adapter
'Boucle pour les 12 prochains mois
For A = 1 To 12
'Dans la colonne A1:A12, la date
'des 12 mois suivants à la date saisie
'dans le textbox (le jour 1 du mois
With .Range("A" & A)
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A, 1), _
"DD/MM/YYYY")
End With
With .Range("B" & A)
'Dans la colonne B1:B12, la date du
'dernier jour du mois pour les 12 mois
'suivants la date saisie dans ton textbox
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A + 1, 0), _
"DD/MM/YYYY")
End With
Next
End With
Else
MsgBox "La date saisie dans le textbox est erronée"
End If
End Sub
'-----------------------------------------
"Patou" a écrit dans le message de groupe de discussion :
C699D2A0.27D%
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30 ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick
Merci infiniment,
En fait je souhaite un automatisme qui me permette en début d'année d'avoir
un paiement mensuel qui s'inscrit pour l'année mois par mois (dans un base
de données d'un budget) à une date? (exemple le 10 de chaque mois. Ce qui
m'est particulièrement compliqué est un paiement le 29, le 30 ou 31 car je
ne sait pas comment imposer une fin de mois ).
Merci
Patrick
Le 1/08/09 14:34, dans , « MichDenis »
a écrit :Bonjour Patou,
Je n'ai pas tout compris...
Quelque chose qui pourrait t'aider à réaliser ce que tu désires faire :
N.B - Attention aux coupures de ligne par le
service de messagerie.
'-----------------------------------------
Sub test()
Dim Année As Long, mois As Integer
Dim MaDate As Date, A As Integer
If IsDate(Me.Textbox1) = True Then
MaDate = CDate(MaDate)
Année = Year(MaDate)
mois = Month(MaDate)
With Worksheets("Feuil1") 'nom feuille à adapter
'Boucle pour les 12 prochains mois
For A = 1 To 12
'Dans la colonne A1:A12, la date
'des 12 mois suivants à la date saisie
'dans le textbox (le jour 1 du mois
With .Range("A" & A)
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A, 1), _
"DD/MM/YYYY")
End With
With .Range("B" & A)
'Dans la colonne B1:B12, la date du
'dernier jour du mois pour les 12 mois
'suivants la date saisie dans ton textbox
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A + 1, 0), _
"DD/MM/YYYY")
End With
Next
End With
Else
MsgBox "La date saisie dans le textbox est erronée"
End If
End Sub
'-----------------------------------------
"Patou" a écrit dans le message de groupe de discussion :
C699D2A0.27D%
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30 ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick
Merci infiniment,
En fait je souhaite un automatisme qui me permette en début d'année d'avoir
un paiement mensuel qui s'inscrit pour l'année mois par mois (dans un base
de données d'un budget) à une date? (exemple le 10 de chaque mois. Ce qui
m'est particulièrement compliqué est un paiement le 29, le 30 ou 31 car je
ne sait pas comment imposer une fin de mois ).
Merci
Patrick
Le 1/08/09 14:34, dans uZ47gRqEKHA.1380@TK2MSFTNGP02.phx.gbl, « MichDenis »
<michdenis@hotmail.com> a écrit :
Bonjour Patou,
Je n'ai pas tout compris...
Quelque chose qui pourrait t'aider à réaliser ce que tu désires faire :
N.B - Attention aux coupures de ligne par le
service de messagerie.
'-----------------------------------------
Sub test()
Dim Année As Long, mois As Integer
Dim MaDate As Date, A As Integer
If IsDate(Me.Textbox1) = True Then
MaDate = CDate(MaDate)
Année = Year(MaDate)
mois = Month(MaDate)
With Worksheets("Feuil1") 'nom feuille à adapter
'Boucle pour les 12 prochains mois
For A = 1 To 12
'Dans la colonne A1:A12, la date
'des 12 mois suivants à la date saisie
'dans le textbox (le jour 1 du mois
With .Range("A" & A)
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A, 1), _
"DD/MM/YYYY")
End With
With .Range("B" & A)
'Dans la colonne B1:B12, la date du
'dernier jour du mois pour les 12 mois
'suivants la date saisie dans ton textbox
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A + 1, 0), _
"DD/MM/YYYY")
End With
Next
End With
Else
MsgBox "La date saisie dans le textbox est erronée"
End If
End Sub
'-----------------------------------------
"Patou" <pastout@orange.fr> a écrit dans le message de groupe de discussion :
C699D2A0.27D%pastout@orange.fr...
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30 ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick
Merci infiniment,
En fait je souhaite un automatisme qui me permette en début d'année d'avoir
un paiement mensuel qui s'inscrit pour l'année mois par mois (dans un base
de données d'un budget) à une date? (exemple le 10 de chaque mois. Ce qui
m'est particulièrement compliqué est un paiement le 29, le 30 ou 31 car je
ne sait pas comment imposer une fin de mois ).
Merci
Patrick
Le 1/08/09 14:34, dans , « MichDenis »
a écrit :Bonjour Patou,
Je n'ai pas tout compris...
Quelque chose qui pourrait t'aider à réaliser ce que tu désires faire :
N.B - Attention aux coupures de ligne par le
service de messagerie.
'-----------------------------------------
Sub test()
Dim Année As Long, mois As Integer
Dim MaDate As Date, A As Integer
If IsDate(Me.Textbox1) = True Then
MaDate = CDate(MaDate)
Année = Year(MaDate)
mois = Month(MaDate)
With Worksheets("Feuil1") 'nom feuille à adapter
'Boucle pour les 12 prochains mois
For A = 1 To 12
'Dans la colonne A1:A12, la date
'des 12 mois suivants à la date saisie
'dans le textbox (le jour 1 du mois
With .Range("A" & A)
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A, 1), _
"DD/MM/YYYY")
End With
With .Range("B" & A)
'Dans la colonne B1:B12, la date du
'dernier jour du mois pour les 12 mois
'suivants la date saisie dans ton textbox
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A + 1, 0), _
"DD/MM/YYYY")
End With
Next
End With
Else
MsgBox "La date saisie dans le textbox est erronée"
End If
End Sub
'-----------------------------------------
"Patou" a écrit dans le message de groupe de discussion :
C699D2A0.27D%
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30 ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick
Je viens d'essayer, ça semble marcher bien,
Mais ce que je souhaiterais c'est pouvoir entrer dans un textbox un nombre
de 1 à 31 qui serait la date du jour et d'avoir les dates qui s'inscrivent
Exemple je rentre le 14 en textbox et j'ai mes 12 lignes qui s'affichent
sur
ma feuille
14/01/2009
14/02/2009 etc
J'espère avoir été suffisament clair
Merci
Patrick
Le 1/08/09 17:55, dans C69A3209.298%, « Patou »
a écrit :Merci infiniment,
En fait je souhaite un automatisme qui me permette en début d'année
d'avoir
un paiement mensuel qui s'inscrit pour l'année mois par mois (dans un
base
de données d'un budget) à une date? (exemple le 10 de chaque mois. Ce
qui
m'est particulièrement compliqué est un paiement le 29, le 30 ou 31 car
je
ne sait pas comment imposer une fin de mois ).
Merci
Patrick
Le 1/08/09 14:34, dans , «
MichDenis »
a écrit :Bonjour Patou,
Je n'ai pas tout compris...
Quelque chose qui pourrait t'aider à réaliser ce que tu désires faire :
N.B - Attention aux coupures de ligne par le
service de messagerie.
'-----------------------------------------
Sub test()
Dim Année As Long, mois As Integer
Dim MaDate As Date, A As Integer
If IsDate(Me.Textbox1) = True Then
MaDate = CDate(MaDate)
Année = Year(MaDate)
mois = Month(MaDate)
With Worksheets("Feuil1") 'nom feuille à adapter
'Boucle pour les 12 prochains mois
For A = 1 To 12
'Dans la colonne A1:A12, la date
'des 12 mois suivants à la date saisie
'dans le textbox (le jour 1 du mois
With .Range("A" & A)
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A, 1), _
"DD/MM/YYYY")
End With
With .Range("B" & A)
'Dans la colonne B1:B12, la date du
'dernier jour du mois pour les 12 mois
'suivants la date saisie dans ton textbox
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A + 1, 0), _
"DD/MM/YYYY")
End With
Next
End With
Else
MsgBox "La date saisie dans le textbox est erronée"
End If
End Sub
'-----------------------------------------
"Patou" a écrit dans le message de groupe de
discussion :
C699D2A0.27D%
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais
les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante
a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un
compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30
ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais
j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick
Je viens d'essayer, ça semble marcher bien,
Mais ce que je souhaiterais c'est pouvoir entrer dans un textbox un nombre
de 1 à 31 qui serait la date du jour et d'avoir les dates qui s'inscrivent
Exemple je rentre le 14 en textbox et j'ai mes 12 lignes qui s'affichent
sur
ma feuille
14/01/2009
14/02/2009 etc
J'espère avoir été suffisament clair
Merci
Patrick
Le 1/08/09 17:55, dans C69A3209.298%pastout@orange.fr, « Patou »
<pastout@orange.fr> a écrit :
Merci infiniment,
En fait je souhaite un automatisme qui me permette en début d'année
d'avoir
un paiement mensuel qui s'inscrit pour l'année mois par mois (dans un
base
de données d'un budget) à une date? (exemple le 10 de chaque mois. Ce
qui
m'est particulièrement compliqué est un paiement le 29, le 30 ou 31 car
je
ne sait pas comment imposer une fin de mois ).
Merci
Patrick
Le 1/08/09 14:34, dans uZ47gRqEKHA.1380@TK2MSFTNGP02.phx.gbl, «
MichDenis »
<michdenis@hotmail.com> a écrit :
Bonjour Patou,
Je n'ai pas tout compris...
Quelque chose qui pourrait t'aider à réaliser ce que tu désires faire :
N.B - Attention aux coupures de ligne par le
service de messagerie.
'-----------------------------------------
Sub test()
Dim Année As Long, mois As Integer
Dim MaDate As Date, A As Integer
If IsDate(Me.Textbox1) = True Then
MaDate = CDate(MaDate)
Année = Year(MaDate)
mois = Month(MaDate)
With Worksheets("Feuil1") 'nom feuille à adapter
'Boucle pour les 12 prochains mois
For A = 1 To 12
'Dans la colonne A1:A12, la date
'des 12 mois suivants à la date saisie
'dans le textbox (le jour 1 du mois
With .Range("A" & A)
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A, 1), _
"DD/MM/YYYY")
End With
With .Range("B" & A)
'Dans la colonne B1:B12, la date du
'dernier jour du mois pour les 12 mois
'suivants la date saisie dans ton textbox
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A + 1, 0), _
"DD/MM/YYYY")
End With
Next
End With
Else
MsgBox "La date saisie dans le textbox est erronée"
End If
End Sub
'-----------------------------------------
"Patou" <pastout@orange.fr> a écrit dans le message de groupe de
discussion :
C699D2A0.27D%pastout@orange.fr...
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais
les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante
a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un
compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30
ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais
j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick
Je viens d'essayer, ça semble marcher bien,
Mais ce que je souhaiterais c'est pouvoir entrer dans un textbox un nombre
de 1 à 31 qui serait la date du jour et d'avoir les dates qui s'inscrivent
Exemple je rentre le 14 en textbox et j'ai mes 12 lignes qui s'affichent
sur
ma feuille
14/01/2009
14/02/2009 etc
J'espère avoir été suffisament clair
Merci
Patrick
Le 1/08/09 17:55, dans C69A3209.298%, « Patou »
a écrit :Merci infiniment,
En fait je souhaite un automatisme qui me permette en début d'année
d'avoir
un paiement mensuel qui s'inscrit pour l'année mois par mois (dans un
base
de données d'un budget) à une date? (exemple le 10 de chaque mois. Ce
qui
m'est particulièrement compliqué est un paiement le 29, le 30 ou 31 car
je
ne sait pas comment imposer une fin de mois ).
Merci
Patrick
Le 1/08/09 14:34, dans , «
MichDenis »
a écrit :Bonjour Patou,
Je n'ai pas tout compris...
Quelque chose qui pourrait t'aider à réaliser ce que tu désires faire :
N.B - Attention aux coupures de ligne par le
service de messagerie.
'-----------------------------------------
Sub test()
Dim Année As Long, mois As Integer
Dim MaDate As Date, A As Integer
If IsDate(Me.Textbox1) = True Then
MaDate = CDate(MaDate)
Année = Year(MaDate)
mois = Month(MaDate)
With Worksheets("Feuil1") 'nom feuille à adapter
'Boucle pour les 12 prochains mois
For A = 1 To 12
'Dans la colonne A1:A12, la date
'des 12 mois suivants à la date saisie
'dans le textbox (le jour 1 du mois
With .Range("A" & A)
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A, 1), _
"DD/MM/YYYY")
End With
With .Range("B" & A)
'Dans la colonne B1:B12, la date du
'dernier jour du mois pour les 12 mois
'suivants la date saisie dans ton textbox
.NumberFormat = "DD/MM/YYYY"
.Value = Format(DateSerial(Année, mois + A + 1, 0), _
"DD/MM/YYYY")
End With
Next
End With
Else
MsgBox "La date saisie dans le textbox est erronée"
End If
End Sub
'-----------------------------------------
"Patou" a écrit dans le message de groupe de
discussion :
C699D2A0.27D%
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais
les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante
a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un
compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30
ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais
j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un
compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30 ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un
compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30 ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick
Bonjour à tous,
Je souhaiterais faire en Visual basic un petit module qui me donnerais les
dates mensuelles en partant d'un jour que j'aurai entré sur un TextBox.
Exemple: entrer le 12 et avoir sur ma feuille correspondante a1/01/2009
a2 10/02/2009 etc. en sachant que je sais créer une boucle avec un
compteur,
mais le problème est la modif du mois, surtout dans le cas d'un 29, 30 ou
31.
Je pense, que j'arriverais à bidouiller un truc à la flan? Mais j'aimerais
avoir quelque chose de plus "pro".
D'avance merci à vous
Patrick