" MSFlexGrid1" V.B 6
Fermé
accent19811
Messages postés
149
Statut
Membre
-
baladur13 Messages postés 50258 Date d'inscription Statut Modérateur Dernière intervention -
baladur13 Messages postés 50258 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Affiche une date + NUM + Prix sur " MSFlexGrid1" V.B6
Mais à condition..:
-Date doit répéter 5 fois
-Chaque fois plus 30 jours.
Voir exemple suivant..:
Num: Date: Prix:
01---- 15/01/2012----500.00
02---- 15/02/2012----500.00
03---- 15/03/2012----500.00
04---- 15/04/2012----500.00
05---- 15/05/2012----500.00
Affiche une date + NUM + Prix sur " MSFlexGrid1" V.B6
Mais à condition..:
-Date doit répéter 5 fois
-Chaque fois plus 30 jours.
Voir exemple suivant..:
Num: Date: Prix:
01---- 15/01/2012----500.00
02---- 15/02/2012----500.00
03---- 15/03/2012----500.00
04---- 15/04/2012----500.00
05---- 15/05/2012----500.00
A voir également:
- " MSFlexGrid1" V.B 6
- Nero 6 - Télécharger - Gravure
- Gta 6 trailer 2 - Guide
- Paris multiple 2/6 explication ✓ - Forum Loisirs / Divertissements
- 6 ampere = watt - Forum Logiciels
- Livre catégorie 6 signification ✓ - Forum Loisirs / Divertissements
2 réponses
RE
Private Sub Form_Load()
Dim Date_Maintenant, Date_Mois_Suivant, i
'MSFlexGrig a 2 colonnes et 6 ligne (Titre + 5 mois)
Me.MSFlexGrid1.Clear
Me.MSFlexGrid1.Cols = 4
MSFlexGrid1.Rows = 6
Date_Maintenant = Now
Date_Mois_Suivant = Date_Maintenant
' Ecriture du titre Colonne1
With MSFlexGrid1
.TextMatrix(0, 1) = "Num"
.TextMatrix(0, 2) = "Date"
.TextMatrix(0, 3) = "Prix"
'Ecriture Date Aujourd'hui Colonne1
.TextMatrix(1, 1) = "01"
.TextMatrix(1, 2) = Format(Date_Mois_Suivant, "DD/MM/YYYY")
.TextMatrix(1, 3) = "500.00"
'ecriture quatre mois suivants
For i = 2 To 5
.TextMatrix(i, 1) = Format(i, "00")
Date_Mois_Suivant = Format(DateAdd("m", 1, Date_Mois_Suivant), "dd/mm/yyyy")
.TextMatrix(i, 2) = Format(Date_Mois_Suivant, "DD/MM/YYYY")
.TextMatrix(i, 3) = "500.00"
Next i
End With
End Sub
Bonne suite
Private Sub Form_Load()
Dim Date_Maintenant, Date_Mois_Suivant, i
'MSFlexGrig a 2 colonnes et 6 ligne (Titre + 5 mois)
Me.MSFlexGrid1.Clear
Me.MSFlexGrid1.Cols = 4
MSFlexGrid1.Rows = 6
Date_Maintenant = Now
Date_Mois_Suivant = Date_Maintenant
' Ecriture du titre Colonne1
With MSFlexGrid1
.TextMatrix(0, 1) = "Num"
.TextMatrix(0, 2) = "Date"
.TextMatrix(0, 3) = "Prix"
'Ecriture Date Aujourd'hui Colonne1
.TextMatrix(1, 1) = "01"
.TextMatrix(1, 2) = Format(Date_Mois_Suivant, "DD/MM/YYYY")
.TextMatrix(1, 3) = "500.00"
'ecriture quatre mois suivants
For i = 2 To 5
.TextMatrix(i, 1) = Format(i, "00")
Date_Mois_Suivant = Format(DateAdd("m", 1, Date_Mois_Suivant), "dd/mm/yyyy")
.TextMatrix(i, 2) = Format(Date_Mois_Suivant, "DD/MM/YYYY")
.TextMatrix(i, 3) = "500.00"
Next i
End With
End Sub
Bonne suite
Bonjour
La suite ici :https://forums.commentcamarche.net/forum/affich-24103405-affiche-une-date-sur-msflexgrid1-v-b-6#p24104452
________ ___. .__
\______ \ ____ __ _\_ |__ | | ____ ____
| | \ / _ \| | \ __ \| | / _ \ / \
| ' ( <_> ) | / \_\ \ |_( <_> ) | \
/_______ /\____/|____/|___ /____/\____/|___| /
\/ \/ \/
La suite ici :https://forums.commentcamarche.net/forum/affich-24103405-affiche-une-date-sur-msflexgrid1-v-b-6#p24104452
