Microsoft 365 microsoft 365 tableur comment compter les cellules couleur

job75

XLDnaute Barbatruc

• 9 Mars 2023

• #2

Bonsoir jmpat, bienvenue sur XLD,

Cette macro compte les couleurs de fond du UsedRange :

VB:

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+

 

Vote positif 0 Vote négatif

J

jmpat

XLDnaute Nouveau

• 10 Mars 2023

• #3

job75 à dit:

Bonsoir jmpat, bienvenue sur XLD,

Cette macro compte les couleurs de fond du UsedRange :

VB:

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+

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

J

jmpat

XLDnaute Nouveau

• 10 Mars 2023

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Mars 2023

• #5

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+

 

Vote positif 0 Vote négatif

J

jmpat

XLDnaute Nouveau

• 12 Mars 2023

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Mars 2023

• #7

Bonjour,

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Mars 2023

• #8

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

 

Vote positif 0 Vote négatif

P

papa26

XLDnaute Nouveau

Supporter XLD

• 9 Janvier 2024

• #9

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

 

Vote positif 0 Vote négatif