Boucles For Next pour 35 colonnes

Le 07/10/2014 à 13:05

Bonjour , le forum,

Je reviens vers vous pour une solution de boucle à exécuter 35 fois.

J'utilise un code qui totalise un nombre de cellules colorées dans un tableau ( 6 couleurs différentes)

Ces couleurs sont réparties sur un tableau de 35 colonnes et une plage de 30 jours.

Après avoir trouvé ces couleurs, j'effectue une nouvelle recherche pour connaître le nombre de couleur par colonnes.

Mon problème, c'est de passer à la 2ème colonne après le résultat de la 1ère.

Je joints, un fichier exemple raccourci, mais assez explicite.

Merci à tous ceux qui pourront m'aider encore une fois

Amicalement

Pierrot

Mes deux codes utilisés

Sub NombredeCellules_De_Couleurs_1()
                                                  ''Comptabilise le nombre total de cellules de couleur avec des totaux séparés
    Dim Cellule As Range
    ' Zone B5:G27
    Range("D20").Select
     ActiveCell.Range("A1:F1").Select
    Selection.ClearContents

    For Each Cellule In Range("B4:M15")

        Select Case Cellule.Interior.ColorIndex
         '  Case Is = 46: Range("B38") = Range("B38") + 1  'Orange
           Case Is = 33: Range("D20") = Range("D20") + 1 'bleu
            Case Is = 3: Range("E20") = Range("E20") + 1 'rouge
           Case Is = 14: Range("F20") = Range("F20") + 1 'vert
         '   Case Is = 6: Range("F38") = Range("F38") + 1 'jaune
        '  Case Is = 22: Range("G38") = Range("G38") + 1 ' Magenta
       End Select
    Next
   ' Call Suite_Macros
    End Sub
 Sub NombredeCellules_De_Couleurs_B()'   C'est ici qu'il faut une boucle
      Sheets("Janvier").Select
    Range("B2:F2").Select
    Selection.ClearContents
    Range("C2").Select                    ' 1er patient 2ème ligne - Même principe que la macto précédante
    Sheets("Feuil1").Select               'mais recherche sur la 1ère colonne

    Dim Cellule As Range
        For Each Cellule In Range("B4:B15")
            Select Case Cellule.Interior.ColorIndex
           '    Case Is = 46: Sheets("Janvier").Range("C2") = Sheets("Janvier").Range("C2") + 1 'Orange
               Case Is = 33: Sheets("Janvier").Range("B2") = Sheets("Janvier").Range("B2") + 1 'Bleu
               Case Is = 3: Sheets("Janvier").Range("C2") = Sheets("Janvier").Range("C2") + 1 'Rouge
               Case Is = 14: Sheets("Janvier").Range("D2") = Sheets("Janvier").Range("D2") + 1 'Vert
           '    Case Is = 6: Sheets("Janvier").Range("G2") = Sheets("Janvier").Range("G2") + 1 'Jaune
           '    Case Is = 22: Sheets("Janvier").Range("H2") = Sheets("Janvier").Range("H2") + 1 'Magenta
            End Select
             Range("A1").Select
       Next
    End Sub

6classeur1-test-noms-cp03-1.xlsm (26.05 Ko)

Le 07/10/2014 à 14:22

Bonjour

Une possibilité

7cappe-pierre-compte-couleurs-v001.xlsm (27.38 Ko)

Le 07/10/2014 à 15:07

Bonjour, Banzai64

heureux d'avoir de tes nouvelles,

ta formule fonctionne bien, mais maintenant, puis-je adapter cette formule à tout mon tableau, 35 colonnes et une quarantaine de lignes

et ajouter 3 couleurs supplémentaires. et de plus recommencer pour les 11 autres mois de l'année

Ces couleurs représentent six infirmière qui soignent environs 35 patients.

Mon but est de totaliser les couleurs par mois et par patients. comme dans le petit tableau exemple