" MSFlexGrid1" V.B 6
Fermé
accent19811
Messages postés
104
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
20 août 2022
-
5 janv. 2012 à 17:08
baladur13 Messages postés 44269 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 28 mars 2023 - 5 janv. 2012 à 17:40
baladur13 Messages postés 44269 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 28 mars 2023 - 5 janv. 2012 à 17:40
A voir également:
- " MSFlexGrid1" V.B 6
- Belote a 6 - Forum Loisirs / Divertissements
- Freebox etape 6 ✓ - Forum Freebox
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Nero 6 - Télécharger - Gravure
2 réponses
f894009
Messages postés
16906
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 mars 2023
1 680
5 janv. 2012 à 17:37
5 janv. 2012 à 17:37
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
baladur13
Messages postés
44269
Date d'inscription
mercredi 11 avril 2007
Statut
Modérateur
Dernière intervention
28 mars 2023
13 404
5 janv. 2012 à 17:40
5 janv. 2012 à 17:40
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