[VBA] Colorer des Cellules Excel suivant plusieurs conditions...

Bonjour,

Ne connaissant pas grand chose dans le domaine du codage, j'ai du mal a réaliser une idée qui m'aiderait beaucoup dans la vie de tous les jours dans mon travail.

J'ai un tableau Excel d'environ 30 colonnes (A, B, C, ..., AD) et 10 lignes (1, 2, 3, ..., 10) principal représentant une personne. A l'intérieur de chacune de ces lignes il y 3 autres lignes (a, b et c) donc 10 fois a,b et c (j'espère être assez claire dans mon explication...). Il faudrait qu'en cliquant sur un bouton ou en activant la macro, certaines cellules de ce tableau se colorient en jaune ou en bleu de façon automatique mais suivant certaines conditions. Voici ces conditions :

- Les cellules pouvant être coloré ne sont que les cellules A1a, A1c, B1a, B1c, C1a, C1c, ..., AD1a, AD1c & A2a, A2c, B2a, B2c, ... AD2a, AD2c & ... & A10a, A10c, B10a, B10c, ... AD10a, AD10c.

- Une cellule qui serait déjà colorée dans le tableau avant de lancer la macro ne peut pas être re-colorée. Elle serait comme inactive, verrouillée, qu'on ne prendrait plus en compte.

- Sur chaque colonne (A, B, C, ..., AD), il ne peut pas y avoir plus de 4 cellules jaune et pas plus de 4 cellules bleues.

- Sur chaque colonne (A, B, C, ..., AD), il ne peut pas y avoir plus de 2 cellules "a" bleue (A1a, A2a, ..., A10a pour la colonne A par exemple), pas plus de 2 cellules "a" jaune (A1a, A2a, ..., A10a pour la colonne A par exemple), pas plus de 2 cellules "c" bleue (A1c, A2c, ..., A10c pour la colonne A par exemple) et pas plus de 2 cellules "c" jaune (A1c, A2c, ..., A10c pour la colonne A par exemple).

- Sur chaque ligne (1, 2, ..., 10) il doit y avoir environ 50% de cellules colorées (jaune ou bleue peu importe) en "a" et environ 50% de cellules colorées (jaune ou bleue peu importe) en "c".

- Sur chaque ligne (1, 2, ..., 10) il doit y avoir environ 50% de cellules jaune et 50% de cellules bleues ("a" et "c" confondu).

C'est pas si simple que ça et encore moins à expliquer. J'ai hâte de lire vos réponses.

Voici le début de mon codage

Sub Hello()
MsgBox "Lancer le 50-50"

Dim J As Long
Dim I As Integer

Randomize
For J = 3 To 45
For I = 3 To 25
Cells(J, I).Interior.Color = RGB(83, 142, 255)
Next I
Next J

Range( _
"B6:Y6,B10:Y10,B14:Y14,B18:Y18,B22:Y22,B26:Y26,B30:Y30,B34:Y34,B38:Y38,B42:Y42" _
).Select
Range("B42").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With

Range( _
"C4:Y4,C8:Y8,C12:Y12,C16:Y16,C20:Y20,C24:Y24,F28:Y28,C28:E28,C32:Y32,C36:Y36,C40:Y40,C44:Y44" _
).Select
Range("C44").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

End Sub