Bonjour à tous et toutes
Voilà de temps en temps j'utilise la ColorIndex ou RGB dans mes programmes aussi je me suis fait un petit tableau avec la correspondance Index --> RGB pour mis retrouvé plus rapidement
voici le programme à mettre dans le code de la feuille1.
'================================================
Sub test()
Dim i As Integer
Dim RVB As Variant
For i = 1 To 56
If i >= 1 And i <= 20 Then
Range("b" & i + 1).Interior.ColorIndex = i
Range("a" & i + 1).Value = i
End If
If i >= 21 And i <= 40 Then
Range("e" & i - 19).Interior.ColorIndex = i
Range("d" & i - 19).Value = i
End If
If i >= 41 And i <= 56 Then
Range("h" & i - 39).Interior.ColorIndex = i
Range("g" & i - 39).Value = i
End If
Next
For i = 1 To 9
If i = 1 Or i = 4 Or i = 7 Then
Sheets("Feuil1").Cells(1, i) = "Index"
Cells(1, i).HorizontalAlignment = xlCenter
With Cells(1, i).Font
.Bold = True
.Size = 10
End With
End If
If i = 2 Or i = 5 Or i = 8 Then
Sheets("Feuil1").Cells(1, i) = "Couleur"
Cells(1, i).HorizontalAlignment = xlCenter
With Cells(1, i).Font
.Bold = True
.Size = 10
End With
End If
If i = 3 Or i = 6 Or i = 9 Then
Sheets("Feuil1").Cells(1, i) = "R-V-B"
Cells(1, i).HorizontalAlignment = xlCenter
With Cells(1, i).Font
.Bold = True
.Size = 10
End With
End If
Next
Range("A1:I22").BorderAround (xlDouble)
Range("A1:C22").BorderAround (xlDouble)
Range("D1:F22").BorderAround (xlDouble)
Range("A1:I1").BorderAround (xlDouble)
RVB = Array("0", "51", "102", "128", "153", "192", "204", "255")
For i = 1 To 57
If i = 1 Then Range("C" & i + 1).Value = RVB(7) & "-" & RVB(7) & "-" & RVB(7)
If i = 2 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(0) & "-" & RVB(0)
If i = 3 Then Range("C" & i + 1).Value = RVB(7) & "-" & RVB(0) & "-" & RVB(0)
If i = 4 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(7) & "-" & RVB(0)
If i = 5 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(0) & "-" & RVB(7)
If i = 6 Then Range("C" & i + 1).Value = RVB(7) & "-" & RVB(7) & "-" & RVB(0)
If i = 7 Then Range("C" & i + 1).Value = RVB(7) & "-" & RVB(0) & "-" & RVB(7)
If i = 8 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(7) & "-" & RVB(7)
If i = 9 Then Range("C" & i + 1).Value = RVB(3) & "-" & RVB(0) & "-" & RVB(0)
If i = 10 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(3) & "-" & RVB(0)
If i = 11 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(0) & "-" & RVB(3)
If i = 12 Then Range("C" & i + 1).Value = RVB(3) & "-" & RVB(3) & "-" & RVB(0)
If i = 13 Then Range("C" & i + 1).Value = RVB(3) & "-" & RVB(0) & "-" & RVB(3)
If i = 14 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(3) & "-" & RVB(3)
If i = 15 Then Range("C" & i + 1).Value = RVB(5) & "-" & RVB(5) & "-" & RVB(5)
If i = 16 Then Range("C" & i + 1).Value = RVB(3) & "-" & RVB(3) & "-" & RVB(3)
If i = 17 Then Range("C" & i + 1).Value = RVB(4) & "-" & RVB(4) & "-" & RVB(7)
If i = 18 Then Range("C" & i + 1).Value = RVB(4) & "-" & RVB(1) & "-" & RVB(2)
If i = 19 Then Range("C" & i + 1).Value = RVB(7) & "-" & RVB(7) & "-" & RVB(6)
If i = 20 Then Range("C" & i + 1).Value = RVB(6) & "-" & RVB(7) & "-" & RVB(7)
If i = 21 Then Range("F" & i - 19).Value = RVB(2) & "-" & RVB(0) & "-" & RVB(2)
If i = 22 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(3) & "-" & RVB(3)
If i = 23 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(2) & "-" & RVB(6)
If i = 24 Then Range("F" & i - 19).Value = RVB(6) & "-" & RVB(6) & "-" & RVB(7)
If i = 25 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(0) & "-" & RVB(3)
If i = 26 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(0) & "-" & RVB(7)
If i = 27 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(7) & "-" & RVB(0)
If i = 28 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(7) & "-" & RVB(7)
If i = 29 Then Range("F" & i - 19).Value = RVB(3) & "-" & RVB(0) & "-" & RVB(3)
If i = 30 Then Range("F" & i - 19).Value = RVB(3) & "-" & RVB(0) & "-" & RVB(0)
If i = 31 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(3) & "-" & RVB(3)
If i = 32 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(0) & "-" & RVB(7)
If i = 33 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(6) & "-" & RVB(7)
If i = 34 Then Range("F" & i - 19).Value = RVB(6) & "-" & RVB(7) & "-" & RVB(7)
If i = 35 Then Range("F" & i - 19).Value = RVB(6) & "-" & RVB(7) & "-" & RVB(6)
If i = 36 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(7) & "-" & RVB(4)
If i = 37 Then Range("F" & i - 19).Value = RVB(4) & "-" & RVB(6) & "-" & RVB(7)
If i = 38 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(4) & "-" & RVB(6)
If i = 39 Then Range("F" & i - 19).Value = RVB(6) & "-" & RVB(4) & "-" & RVB(7)
If i = 40 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(6) & "-" & RVB(4)
If i = 41 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(2) & "-" & RVB(7)
If i = 42 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(6) & "-" & RVB(6)
If i = 43 Then Range("I" & i - 39).Value = RVB(4) & "-" & RVB(6) & "-" & RVB(0)
If i = 44 Then Range("I" & i - 39).Value = RVB(7) & "-" & RVB(6) & "-" & RVB(0)
If i = 45 Then Range("I" & i - 39).Value = RVB(7) & "-" & RVB(4) & "-" & RVB(0)
If i = 46 Then Range("I" & i - 39).Value = RVB(7) & "-" & RVB(2) & "-" & RVB(0)
If i = 47 Then Range("I" & i - 39).Value = RVB(2) & "-" & RVB(2) & "-" & RVB(4)
If i = 48 Then Range("I" & i - 39).Value = RVB(4) & "-" & RVB(4) & "-" & RVB(4)
If i = 49 Then Range("I" & i - 39).Value = RVB(0) & "-" & RVB(1) & "-" & RVB(2)
If i = 50 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(4) & "-" & RVB(2)
If i = 51 Then Range("I" & i - 39).Value = RVB(0) & "-" & RVB(1) & "-" & RVB(0)
If i = 52 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(1) & "-" & RVB(0)
If i = 53 Then Range("I" & i - 39).Value = RVB(4) & "-" & RVB(1) & "-" & RVB(0)
If i = 54 Then Range("I" & i - 39).Value = RVB(4) & "-" & RVB(1) & "-" & RVB(2)
If i = 55 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(1) & "-" & RVB(4)
If i = 56 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(1) & "-" & RVB(1)
If i = 57 Then
Range("I" & i - 39).Value = RVB(7) & "-" & RVB(5) & "-" & RVB(7)
Range("H" & i - 39).Value = "Rose"
Range("H" & i - 39).HorizontalAlignment = xlCenter
With Range("H" & i - 39).Font
.Bold = True
.Size = 10
End With
End If
Next
End Sub
'============================================================
Si ça peut rendre service à quelqu'un
Salutations à tous
Jean-Paul
Voilà de temps en temps j'utilise la ColorIndex ou RGB dans mes programmes aussi je me suis fait un petit tableau avec la correspondance Index --> RGB pour mis retrouvé plus rapidement
voici le programme à mettre dans le code de la feuille1.
'================================================
Sub test()
Dim i As Integer
Dim RVB As Variant
For i = 1 To 56
If i >= 1 And i <= 20 Then
Range("b" & i + 1).Interior.ColorIndex = i
Range("a" & i + 1).Value = i
End If
If i >= 21 And i <= 40 Then
Range("e" & i - 19).Interior.ColorIndex = i
Range("d" & i - 19).Value = i
End If
If i >= 41 And i <= 56 Then
Range("h" & i - 39).Interior.ColorIndex = i
Range("g" & i - 39).Value = i
End If
Next
For i = 1 To 9
If i = 1 Or i = 4 Or i = 7 Then
Sheets("Feuil1").Cells(1, i) = "Index"
Cells(1, i).HorizontalAlignment = xlCenter
With Cells(1, i).Font
.Bold = True
.Size = 10
End With
End If
If i = 2 Or i = 5 Or i = 8 Then
Sheets("Feuil1").Cells(1, i) = "Couleur"
Cells(1, i).HorizontalAlignment = xlCenter
With Cells(1, i).Font
.Bold = True
.Size = 10
End With
End If
If i = 3 Or i = 6 Or i = 9 Then
Sheets("Feuil1").Cells(1, i) = "R-V-B"
Cells(1, i).HorizontalAlignment = xlCenter
With Cells(1, i).Font
.Bold = True
.Size = 10
End With
End If
Next
Range("A1:I22").BorderAround (xlDouble)
Range("A1:C22").BorderAround (xlDouble)
Range("D1:F22").BorderAround (xlDouble)
Range("A1:I1").BorderAround (xlDouble)
RVB = Array("0", "51", "102", "128", "153", "192", "204", "255")
For i = 1 To 57
If i = 1 Then Range("C" & i + 1).Value = RVB(7) & "-" & RVB(7) & "-" & RVB(7)
If i = 2 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(0) & "-" & RVB(0)
If i = 3 Then Range("C" & i + 1).Value = RVB(7) & "-" & RVB(0) & "-" & RVB(0)
If i = 4 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(7) & "-" & RVB(0)
If i = 5 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(0) & "-" & RVB(7)
If i = 6 Then Range("C" & i + 1).Value = RVB(7) & "-" & RVB(7) & "-" & RVB(0)
If i = 7 Then Range("C" & i + 1).Value = RVB(7) & "-" & RVB(0) & "-" & RVB(7)
If i = 8 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(7) & "-" & RVB(7)
If i = 9 Then Range("C" & i + 1).Value = RVB(3) & "-" & RVB(0) & "-" & RVB(0)
If i = 10 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(3) & "-" & RVB(0)
If i = 11 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(0) & "-" & RVB(3)
If i = 12 Then Range("C" & i + 1).Value = RVB(3) & "-" & RVB(3) & "-" & RVB(0)
If i = 13 Then Range("C" & i + 1).Value = RVB(3) & "-" & RVB(0) & "-" & RVB(3)
If i = 14 Then Range("C" & i + 1).Value = RVB(0) & "-" & RVB(3) & "-" & RVB(3)
If i = 15 Then Range("C" & i + 1).Value = RVB(5) & "-" & RVB(5) & "-" & RVB(5)
If i = 16 Then Range("C" & i + 1).Value = RVB(3) & "-" & RVB(3) & "-" & RVB(3)
If i = 17 Then Range("C" & i + 1).Value = RVB(4) & "-" & RVB(4) & "-" & RVB(7)
If i = 18 Then Range("C" & i + 1).Value = RVB(4) & "-" & RVB(1) & "-" & RVB(2)
If i = 19 Then Range("C" & i + 1).Value = RVB(7) & "-" & RVB(7) & "-" & RVB(6)
If i = 20 Then Range("C" & i + 1).Value = RVB(6) & "-" & RVB(7) & "-" & RVB(7)
If i = 21 Then Range("F" & i - 19).Value = RVB(2) & "-" & RVB(0) & "-" & RVB(2)
If i = 22 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(3) & "-" & RVB(3)
If i = 23 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(2) & "-" & RVB(6)
If i = 24 Then Range("F" & i - 19).Value = RVB(6) & "-" & RVB(6) & "-" & RVB(7)
If i = 25 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(0) & "-" & RVB(3)
If i = 26 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(0) & "-" & RVB(7)
If i = 27 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(7) & "-" & RVB(0)
If i = 28 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(7) & "-" & RVB(7)
If i = 29 Then Range("F" & i - 19).Value = RVB(3) & "-" & RVB(0) & "-" & RVB(3)
If i = 30 Then Range("F" & i - 19).Value = RVB(3) & "-" & RVB(0) & "-" & RVB(0)
If i = 31 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(3) & "-" & RVB(3)
If i = 32 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(0) & "-" & RVB(7)
If i = 33 Then Range("F" & i - 19).Value = RVB(0) & "-" & RVB(6) & "-" & RVB(7)
If i = 34 Then Range("F" & i - 19).Value = RVB(6) & "-" & RVB(7) & "-" & RVB(7)
If i = 35 Then Range("F" & i - 19).Value = RVB(6) & "-" & RVB(7) & "-" & RVB(6)
If i = 36 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(7) & "-" & RVB(4)
If i = 37 Then Range("F" & i - 19).Value = RVB(4) & "-" & RVB(6) & "-" & RVB(7)
If i = 38 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(4) & "-" & RVB(6)
If i = 39 Then Range("F" & i - 19).Value = RVB(6) & "-" & RVB(4) & "-" & RVB(7)
If i = 40 Then Range("F" & i - 19).Value = RVB(7) & "-" & RVB(6) & "-" & RVB(4)
If i = 41 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(2) & "-" & RVB(7)
If i = 42 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(6) & "-" & RVB(6)
If i = 43 Then Range("I" & i - 39).Value = RVB(4) & "-" & RVB(6) & "-" & RVB(0)
If i = 44 Then Range("I" & i - 39).Value = RVB(7) & "-" & RVB(6) & "-" & RVB(0)
If i = 45 Then Range("I" & i - 39).Value = RVB(7) & "-" & RVB(4) & "-" & RVB(0)
If i = 46 Then Range("I" & i - 39).Value = RVB(7) & "-" & RVB(2) & "-" & RVB(0)
If i = 47 Then Range("I" & i - 39).Value = RVB(2) & "-" & RVB(2) & "-" & RVB(4)
If i = 48 Then Range("I" & i - 39).Value = RVB(4) & "-" & RVB(4) & "-" & RVB(4)
If i = 49 Then Range("I" & i - 39).Value = RVB(0) & "-" & RVB(1) & "-" & RVB(2)
If i = 50 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(4) & "-" & RVB(2)
If i = 51 Then Range("I" & i - 39).Value = RVB(0) & "-" & RVB(1) & "-" & RVB(0)
If i = 52 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(1) & "-" & RVB(0)
If i = 53 Then Range("I" & i - 39).Value = RVB(4) & "-" & RVB(1) & "-" & RVB(0)
If i = 54 Then Range("I" & i - 39).Value = RVB(4) & "-" & RVB(1) & "-" & RVB(2)
If i = 55 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(1) & "-" & RVB(4)
If i = 56 Then Range("I" & i - 39).Value = RVB(1) & "-" & RVB(1) & "-" & RVB(1)
If i = 57 Then
Range("I" & i - 39).Value = RVB(7) & "-" & RVB(5) & "-" & RVB(7)
Range("H" & i - 39).Value = "Rose"
Range("H" & i - 39).HorizontalAlignment = xlCenter
With Range("H" & i - 39).Font
.Bold = True
.Size = 10
End With
End If
Next
End Sub
'============================================================
Si ça peut rendre service à quelqu'un
Salutations à tous
Jean-Paul
