1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 :
Faible intRow comme nombre entier Faible intCol comme nombre entier Faible strColumn2 comme corde Faible strColumn3 comme corde Pour l'intRow = 0 à MSFlexGrid1.Rows - 1 '/ensemble la rangée MSFlexGrid1.Row = intRow '/contrôle si la rangée est 6 ? S'intRow = 6 puis '/contenu colonne 2 de capture MSFlexGrid1.Col = 2 strColumn2 = MSFlexGrid1.Text '/contenu colonne 3 de capture MSFlexGrid1.Col = 3 strColumn3 = MSFlexGrid1.Text Si strColumn2 = « 10 » et strColumn3 = « 10 » puis '/boucle par chaque colonne et changent le backcolor Pour l'intCol = 0 à MSFlexGrid1.Cols - 1 MSFlexGrid1.Col = intCol MSFlexGrid1.CellBackColor = 'vbGray/ou toute couleur Après Finir si Finir si Après