Colorier cellules vides sous conditions
alp31
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Colorier cellules vides sous conditions
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Comment supprimer les pages vides sur word - Guide
- Colorer des cellules excel sous condition - Guide
- Concatener deux cellules excel - Guide
4 réponses
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
Cdlmnt
Via
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
Par contre je vais devoir l'applique à 31 groupe de 3 colonne ... Il n'y a pas de moyen pour boucler plus vite ?
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