Ecart de cellules verte

Question

J'aimerai svp si possible de calculer les écarts selon la couleur verte des cellules ou des cellules en caractères gras 1 écart du jour en M2 2 écart maxi en N2 3 total des cellules vertes en O2 ci-joint tableau Merci d'avance pour votre savoir Patrice...

Amadéus · Answer

Peux tu expliquer avec 2 ou 3 exemples comment tu définis l'écart du jour, notamment sur la ligne 4? Cordialement...

Amadéus · Answer

Je vois bien, mais la vraie question est de m'expliquer pourquoi j'ai cette réponse pour chaque ligne. L'Ecart du jour par rapport à quoi? Comment le calcule t-on? Cordialement...

Harissa23 · Answer

Il est clair que ce n'est pas clair. Qui défini la couleur verte ? c'est une condition ou autre ? Bref j'ai une début de solution, en vba : Selon le nombre de cellule verte par colonne sur chaque lignes, le résultat s'affiche sur la colonne O Sub NbVerte() derlig = Range("A65536").End(xlUp).Row For jours = 2 To derlig Nb = 0 For colonne = 2 To 11 If Cells(jours, colonne).Interior.ColorIndex = 43 Then Nb = Nb + 1 End If Next colonne Cells(jours, 15) = Nb Nb = 0 Next jours End Sub Voir le fichier joint. Cdt Harissa...

frangy · Answer

Une proposition (en espérant que j'aie bien deviné ce que tu entends par "écart du jour"). A+...

Harissa23 · Answer

Oui en effet j'ai pensé à décaler la colonne en 2 mais j'ai pas pensé à décaler en 12...

Pour l'écart maxi c'est simple, c'est le nombre de cellule en blanc.

Il faut donc modifier la macro à ce niveau "Interior.ColorIndex = 43" et mettre le résultat en 14 [Cells(jours, 15) = Nb]

voir le cour Excel-pratique : https://www.excel-pratique.com/fr/vba/couleurs.php

Pour l'écart du jour, je ne comprends pas comment il est calculé...c'est peut être le réveil qui veut cela...allez hop à la douche et au taf.

Cdt

Harissa

frangy · Answer

Pour que le programme détermine l'emplacement de la dernière colonne à prendre en compte, tu peux modifier le code comme cela

Sub Calculer()
Dim DerLig As Integer, Nb_Vert As Integer, Nb_Ecart As Integer, Nb_Ecart_Maxi As Integer, DerCol As Integer
Dim Test As Boolean
    DerLig = Range("A65536").End(xlUp).Row
    For jours = 2 To DerLig
        Nb_Ecart = 0
        Nb_Ecart_Maxi = 0
        Nb_Vert = 0
        Test = True
        DerCol = Cells(1, Columns.Count).End(xlToLeft).Column - 3
        For colonne = DerCol To 2 Step -1
            If Cells(jours, colonne).Interior.ColorIndex = xlNone Then
                If Test = True Then Nb_Ecart = Nb_Ecart + 1
                Nb_Ecart_Maxi = Nb_Ecart_Maxi + 1
            Else
                Test = False
            End If
            If Cells(jours, colonne).Interior.ColorIndex = 43 Then
                Nb_Vert = Nb_Vert + 1
            End If
        Next colonne
        Cells(jours, DerCol + 1) = Nb_Ecart
        Cells(jours, DerCol + 2) = Nb_Ecart_Maxi
        Cells(jours, DerCol + 3) = Nb_Vert
    Next jours
End Sub

A+

frangy · Answer

Pfiou !

Sub Calculer()
Dim DerLig As Integer, DerCol As Integer
Dim Nb_Vert As Integer, Nb_Ecart As Integer, Nb_Ecart_Maxi As Integer
Dim Test As Boolean
    DerLig = Range("A65536").End(xlUp).Row
    For jours = 2 To DerLig
        Test = True
        Nb_Ecart = 0
        Nb_Vert = 0
        Nb_Ecart_I = 0
        Nb_Ecart_Maxi = 0
        DerCol = Cells(1, Columns.Count).End(xlToLeft).Column - 3
        For colonne = DerCol To 2 Step -1
            If Cells(jours, colonne).Interior.ColorIndex = xlNone Then
                Nb_Ecart_I = Nb_Ecart_I + 1
                If Nb_Ecart_I > Nb_Ecart_Maxi Then Nb_Ecart_Maxi = Nb_Ecart_I
                If Test = True Then Nb_Ecart = Nb_Ecart + 1
            Else
                Test = False
                Nb_Ecart_I = 0
            End If
            If Cells(jours, colonne).Interior.ColorIndex = 43 Then
                Nb_Vert = Nb_Vert + 1
            End If
        Next colonne
        Cells(jours, DerCol + 1) = Nb_Ecart
        Cells(jours, DerCol + 2) = Nb_Ecart_Maxi
        Cells(jours, DerCol + 3) = Nb_Vert
    Next jours
End Sub

A+

frangy · Answer

J'ai supprimé la colonne vide qui était en BS car elle risque de fausser le résultat pour la détermination des écarts.

De plus, dans ton fichier, la couleur à prendre en compte est le blanc (colorindex = 2) alors que précédemment, c'était sans couleur (xlNone)

J'ai donc modifié l'instruction suivante :

If Cells(jours, colonne).Interior.ColorIndex = 2 Then

Je remarque également qu'il y a des lignes partiellement renseignées.

A priori, les cellules non renseignées de ces lignes n'ont pas de couleur (xlNone). Elles ne devraient pas poser problème mais ....

A+

4essai-ecart.xlsm (69.39 Ko)

frangy · Answer

En espérant qu'il n’y aura plus de mais ... L'insertion d'une nouvelle colonne entre BR et BS et importation des résultats par un copier coller ne doit pas poser problème. A+...