Colorier cellules vides sous conditions Fermé

Question

Bonjour,

J'aimerai savoir comment faire pour colorier toutes les cellules vides sur trois colonne mais uniquement celles qui sont sous un "1" et ou il n'y a pas d'autre "1" sur la même ligne. Je vous joins un fichier pour mieux comprendre et merci pour votre aide ! 

https://www.cjoint.com/c/HLChMK8CmRg

via55 · Answer

Bonjour

Difficile par MFC, en tout cas je n'ai pas trouvé
Possible par macro
Copier la macro ci-dessous et la coller dans un module de l'éditeur VBA(ALT+F11 pour ouvrir éditeur - Insertion - Module) puis la lancer depuis l'onglet Développeur - Macros du ruban
Sub couleur()

For t = 13 To 15
a = 2
For n = 2 To 26
If Cells(n - 1, t) = 1 Then a = 1
If Application.WorksheetFunction.Count(Range("M" & n & ":" & "O" & n)) = 1 Then a = 2
 Cells(n, t).Select
If a = 1 Then Selection.Interior.Color = 65535 Else Selection.Interior.Pattern = xlNone
Next
Next

For t = 16 To 18
a = 2
For n = 2 To 26
If Cells(n - 1, t) = 1 Then a = 1
If Application.WorksheetFunction.Count(Range("P" & n & ":" & "R" & n)) = 1 Then a = 2
 Cells(n, t).Select
If a = 1 Then Selection.Interior.Color = 65535 Else Selection.Interior.Pattern = xlNone
Next
Next

For t = 19 To 21
a = 2
For n = 2 To 26
If Cells(n - 1, t) = 1 Then a = 1
If Application.WorksheetFunction.Count(Range("S" & n & ":" & "U" & n)) = 1 Then a = 2
 Cells(n, t).Select
If a = 1 Then Selection.Interior.Color = 65535 Else Selection.Interior.Pattern = xlNone
Next
Next
End Sub 
Cdlmnt
Via

alp31 · Answer

Bonjour, merci beaucoup cela fonctionne bien plus qu'a l'adapter !

alp31 · Answer

Par contre je vais devoir l'applique à 31 groupe de 3 colonne ... Il n'y a pas de moyen pour boucler plus vite ?

via55 · Answer

Remplace 13 dans la macro par la 1ere colonne de la plage à traiter et 19 par la première colonne du dernier groupe de 3
Sub couleur()

For t = 13 To 19 Step 3
For g = 0 To 2
a = 2
For n = 2 To 26
If Cells(n - 1, t + g) = 1 Then a = 1
If Application.WorksheetFunction.Count(Range(Cells(n, t), Cells(n, t + 2))) = 1 Then a = 2
 Cells(n, t + g).Select
If a = 1 Then Selection.Interior.Color = 65535 Else Selection.Interior.Pattern = xlNone
Next
Next
Next
End Sub

Colorier cellules vides sous conditions

4 réponses

Discussions similaires