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

Question

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

Zoul67 · Answer

Bonsoir,

Après avoir pris une aspirine, je crois avoir remarqué une anomalie...

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".
soit 30 cellules par ligne principale (1,...,10), càd 300 cellules colorées en tout.

Par ailleurs :
- 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. 
soit 8 cellules colorées max par colonne, càd 240 cellules colorées max en tout.

Par ailleurs, c'est assez difficile de faire une macro basée sur des "environ"... si tu as des précisions/corrections à apporter, n'hésite pas.

dans la vie de tous les jours dans mon travail
Funky, ce travail !

A+

S;Amer · Answer

Bonjour,

En effet j'ai du mal détailler.

- Sur une ligne principale (1,2,3...,10) il doit y avoir qu'une case de coloré "a" et "c" confondu. C'est à dire qu'au total sur chaque ligne il ne peut pas y avoir une case de coloré en "a" et en "c". C'est soit l'une soit l'autre. Ce qui fait un total de 30 cellules de colorées en bleue ou en jaune.

- Du coup j'enlève le "environ". Il doit y avoir donc 50% de cellules jaunes et 50% de cellules bleues sur chaque ligne principale (1,2,3,...,10).
ET
50% de cellules colorées en "a" et 50% de cellules colorées en "c".
(Par exemple : 8 cellules jaune en "a", 4 cellules bleue en "a", 4 cellules jaunes en "c" et 8 cellules bleue en "c").

- Le format du tableau : 
* colonne : commence en C et fini en Y.
* lignes : commence en 3 et fini en 41. Sachant que les 10 lignes principales sont 1(3,4,5), 2(7,8,9), 3(11,12,13),..., 10(39,40,41).

- Sur les colonnes c'est exacte, il y a au total 200 cellules colorées dans le tableau. Sachant qu'il doit y avoir 4 cellules jaunes et 4 cellules bleues par colonnes (pas plus pas moins)
ET
2 cellules jaunes sur l'ensemble des 10 lignes en "a" ainsi que 2 cellules jaunes sur l'ensemble des 10 lignes en "c" et 2 cellules bleue sur l'ensemble des 10 lignes en "a" ainsi que 2 cellules bleue sur l'ensemble des 10 lignes en "c".

J'espère avoir apporté toutes les précisions nécessaire mais oui comme tu dis Funky ce travail. J'essaye de faire tout ça manuellement mais ça me prend un temps fou à chaque fois.

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

2 réponses

Discussions similaires