Public Sub colorierflexgrid(msf As MSFlexGrid) Dim k As Integer Dim T As Integer For k = 1 To msf.Rows - 1 Step 2 msf.Row = k For T = 0 To msf.Cols - 1 msf.Col = T msf.CellBackColor = RGB(255, 255, 102) Next T If k + 1 > msf.Rows - 1 Then Exit For msf.Row = k + 1 For T = 0 To msf.Cols - 1 msf.Col = T msf.CellBackColor = RGB(255, 255, 255) Next T Next k End Sub
Public Sub colorierFlexgrid(msf As MSFlexGrid) Dim y As Integer Dim x As Integer For y = 1 To msf.Rows - 1 msf.Row = k For x = 0 To msf.Cols - 1 msf.Col = x if y And 1 Then msf.CellBackColor = RGB(241, 222, 131) Else msf.CellBackColor = vbWhite End If Next x Next y End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question