Microsoft 365 microsoft 365 tableur comment compter les cellules couleur

[jmpat]

Bonsoir

Comment avec excel Microsoft 365 compter le nombre de cellules de différentes couleur, je n'ai pas trouve la formule équivalente sur EXCEL
Merci pour votre aide
Cordialement
Jean Marie

 

[job75]

Bonsoir jmpat, bienvenue sur XLD,

Cette macro compte les couleurs de fond du UsedRange :

Sub Compte_Couleurs()
Dim d, c As Range, coul&, a, b, i, mes
Set d = CreateObject("Scripting.Dictionary")
For Each c In ActiveSheet.UsedRange
    If c.Interior.ColorIndex <> xlNone Then
        coul = c.Interior.Color
        d(coul) = d(coul) + 1  'comptage
    End If
Next
If d.Count Then
    a = d.keys
    b = d.items
    For i = 0 To UBound(a)
        mes = mes & vbLf & "Code " & a(i) & vbTab & "Nombre " & b(i)
    Next
End If
MsgBox IIf(d.Count, Mid(mes, 2), "Aucune couleur"), , "Couleurs"
End Sub

A+

 

[jmpat]

Bonsoir jmpat, bienvenue sur XLD,

Cette macro compte les couleurs de fond du UsedRange :

Sub Compte_Couleurs()
Dim d, c As Range, coul&, a, b, i, mes
Set d = CreateObject("Scripting.Dictionary")
For Each c In ActiveSheet.UsedRange
    If c.Interior.ColorIndex <> xlNone Then
        coul = c.Interior.Color
        d(coul) = d(coul) + 1  'comptage
    End If
Next
If d.Count Then
    a = d.keys
    b = d.items
    For i = 0 To UBound(a)
        mes = mes & vbLf & "Code " & a(i) & vbTab & "Nombre " & b(i)
    Next
End If
MsgBox IIf(d.Count, Mid(mes, 2), "Aucune couleur"), , "Couleurs"
End Sub

A+

 

[jmpat]

Bonjour étant nul en informatique pouvez me faire un topo pour rentrer cette macro dans microsoft 365 svp merci jean Marie

 

[job75]

Bonjour jmpat, le forum,

Copiez la macro du post #2 en cliquant sur le petit bouton noir en haut à droite.

Ouvrez votre fichier et touches Alt+F11 pour aller dans VBA.

Menu Insertion => Module et touches Ctrl+V pour coller la macro.

Touches Alt+F11 pour revenir sur Excel et mettez la feuille avec les couleurs au 1er plan.

Touches Alt+F8 et exécutez la macro.

A+

 

[jmpat]

Pardon pour mon ignorance informatique

Après Alt+F11, j arrive sur VBA (apparition des petits carrés noir avec des lettres ) ensuite que fais je Menu insertion OU,????= module ???

Merci

Jmpat

 

[job75]

Bonjour,

Donnez-vous un peu de mal, dans VBA il y a en haut le menu Insertion.

A+

 

[job75]

Bien sûr si sur votre clavier il y a la touche fn il faut faire fn+Alt+F11 au lieu de Alt+F11...

 

[papa26]

Bravo et Merci à job75 !!!
la macro est bonne