ECRIRE DANS MSFLEXGRID ET METTRE DE LA COULEUR
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
-
10 mars 2003 à 17:33
malo777 Messages postés 88 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 13 juin 2013 - 16 sept. 2012 à 13:07
malo777 Messages postés 88 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 13 juin 2013 - 16 sept. 2012 à 13:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6424-ecrire-dans-msflexgrid-et-mettre-de-la-couleur
https://codes-sources.commentcamarche.net/source/6424-ecrire-dans-msflexgrid-et-mettre-de-la-couleur
16 sept. 2012 à 13:07
With MSFlexGrid1
.Cols = 3 'nombre de colonne du tableau
.Rows = 100 'nombre de ligne
.ColWidth(0) = 2000 'taille de la colonne 1
.ColWidth(1) = 850 'taille de la colonne 2
.ColWidth(2) = 550 'taille de la colonne 3
.TabStop = False
.Row = 0 'choisir la ligne 0
.Col = 0 'choisir le colonne 0
.Text = "Texte à ecrire" 'écrire le texte entre guillemet dans col 0, row 0
End With
12 juin 2012 à 19:02
8 oct. 2008 à 11:10
waw tout ce que je chercher depuis 10 jours, je le trouve dans ton code!!!!! je te remerci mille et une fois!
tu sais moi aussi je découvere vb par mes propres moyens, et ca me plais.
merci encore et encore pour ton super code
29 août 2007 à 03:58
dans mon projet thanks , chokran , merci tu mérite 10/10 .
18 janv. 2007 à 14:21
si je t écris c est pour te remercier de ton information je te remercie beacoup j ai passé un temps fou a cherche vraiment t es un ange il va m aider pour mon projet de 10 point de + je te remercie jamais assez tu me sauve la mise
je te remercie de fond de coeur de ces de point dont j en ai besoin !!!!!!!!!(K)
12 oct. 2006 à 19:29
Donc c'est 10/10.
@+
31 août 2006 à 12:43
' mintPrevRow est défini au niveau du module et contient le numéro de ligne précédement sélectionné
Private Sub flexVue_Click()
Dim count As Integer
Dim Tempo As Integer
If Me.flexVue.MouseCol <> 0 Then Exit Sub
With Me.flexVue
' si une ligne déjà coloriée, on la remet avec un fond blanc
If mintPrevRow > 0 Then
Tempo = .Row
.Row = mintPrevRow
For count = 1 To .Cols - 1
.Col = count
.CellBackColor = vbWhite
Next
.Row = Tempo
End If
' on colorie la ligne sélectionnée
For count = 1 To .Cols - 1
.Col = count
.CellBackColor = vbBlue
Next
' et on sauve son numéro pour la desélectionner par après
mintPrevRow = .Row
End With
End Sub
25 juil. 2006 à 22:42
ton code m'aurait bien aidé, mais tu peints la grille AVANT.
je voudrais changer la couleur de la ligne quand j'en change.
qui aurait une astuce pour mettre en bleu la totalité de la ligne où se trouve le curseur et ,bien sur, l'effacer quand on va sur la ligne suivante??
d'avance merci beaucoup, je suis la dessus depuis un temps fou...
jym
24 juin 2004 à 15:29
Merci
19 mars 2003 à 15:00
FlexGrid.ColAlignment(X) = flexAlignCenterCenter
11 mars 2003 à 14:10
Je connaissais pas l'astuce pour aligner le contenu d'une colonne à gauche ou à droite (avec les signes < et >). Par contre, j'ai beau cherché, j'arrive pas à aligner au milieu d'une colonne. Sais-tu comment on fait?
Merci d'avance.
10 mars 2003 à 17:33