Microsoft 365 Compter cellule de couleur.

[Anto35200]

Bonjour au forum,

Malgré les recherches sur internet, je ne trouve pas comment je peux faire pour compter le nombre de cellule de la couleur verte de mon fichier.
Je vous transmet en fichier joint le cas.

Je vous remercie à tous.

 

[Nicolas JACQUIN]

Bonjour,

Sub CompterCellulesEnvert()
Dim PlageTest As Range, iCell As Range
Set PlageTest = Range("A2:C24")
For Each iCell In PlageTest
    If iCell.Interior.color = RGB(146, 208, 80) Then
        CompterCellules = CompterCellules + 1
    End If
Next iCell
MsgBox "Il y a " & CompterCellules & " cellules vert."
[G28].Value = CompterCellules
End Sub

ou

Private Sub Worksheet_Change(ByVal Target As Range)
Dim PlageTest As Range, iCell As Range
Set PlageTest = Range("A2:C24")
For Each iCell In PlageTest
    If iCell.Interior.Color = RGB(146, 208, 80) Then
        CompterCellules = CompterCellules + 1
    End If
Next iCell
MsgBox "Il y a " & CompterCellules & " cellules vert."
[G28].Value = CompterCellules
End Sub

Bonne soirée.
Nicolas

 

[Anto35200]

Bonjour,
Je pensais qu'il y aurait une solution sans macros.
Pour mon cas, ç'est compliqué de créer à chaque fois une macro sur ce fichier car celui-ci a un nom variable. Ce fichier est une extraction quotidienne à partir d'un logiciel.

Je pensais donc, s'il est possible d'exécuter ce fichier à partir d'un autre fichier ?

Je voudrai lancer une macro à partir d’un fichier appelé TRAVAIL .

Macro 1 :
L’ordre des tâches de la 1er macro sera la suivante :

• Ouvrir le fichier « EXTRACTION du 21/05/2024 » (le nom du fichier variable selon la date du jour).
• Copier la feuille Devises dans le même fichier qui sera Devises(2)
• Copier de la plage A1 à la colonne I jusqu’à la dernière cellule vide
• Faire un tri personnaliser du tableau

Trier par « Montant Total Monnaie de Paiement »

Trier sur Valeur de cellule

Ordre Du plus grand au plus petit.

Macro 2 :
La 2ème macro sera de compter le nombre de cellules de couleur vertes.

Il y a un début de macros qui permet seulement d'ouvrir le fichier.

En vous remercaint de votre aide.

 

[Nicolas JACQUIN]

Bonjour,
A la volé, sans avoir testé

Sub CompterCellulesEnvert()
Dim PlageTest As Range, iCell As Range
With ActiveWorkbook
Set PlageTest = Range("A2:C24")
For Each iCell In PlageTest
    If iCell.Interior.color = RGB(146, 208, 80) Then
        CompterCellules = CompterCellules + 1
    End If
Next iCell
MsgBox "Il y a " & CompterCellules & " cellules vert."
[G28].Value = CompterCellules
Wnd With
End Sub

si tu mets dans n'importe quel classeur ouvert au même moment, ça devrait fonctionner avec tous les fichiers actifs (ActiveWorkbook)
A+
Nicolas

 

[Anto35200]

Bonjour Nicolas,
Je ne comprends pas ta macro.

 

[laurent950]

Bonsoir

avec cette fonction : CountColoredCells(Plage; la couleur de cette cellule va servire a trouver les couleur de cellules a trouver dans la plage)

=CountColoredCells(A2:D24;E28)

Function CountColoredCells(rng As Range, color As Range) As Long
    Dim cell As Range
    Dim count As Long
    count = 0
    For Each cell In rng
        If cell.Interior.color = color.Interior.color Then
            count = count + 1
        End If
    Next cell
    CountColoredCells = count
End Function

 

[Anto35200]

Bonjour,
A la volé, sans avoir testé

Sub CompterCellulesEnvert()
Dim PlageTest As Range, iCell As Range
With ActiveWorkbook
Set PlageTest = Range("A2:C24")
For Each iCell In PlageTest
    If iCell.Interior.color = RGB(146, 208, 80) Then
        CompterCellules = CompterCellules + 1
    End If
Next iCell
MsgBox "Il y a " & CompterCellules & " cellules vert."
[G28].Value = CompterCellules
Wnd With
End Sub

si tu mets dans n'importe quel classeur ouvert au même moment, ça devrait fonctionner avec tous les fichiers actifs (ActiveWorkbook)
A+
Nicolas

Bonjour Nicolas, la solution ne fonctionne pas. J'ai 2 classeurs d'ouvert.
Le 1er fichier exécute la macro pour compte le nombre de cellules dans le 2è fichier.

 

[Nicolas JACQUIN]

Bonjour, je sais pas du coup, ça fonctionne sur le classeur actif, mais après je sèche désolé

 

[Anto35200]

Merci quand même.

 

[Phil69970]

Re

@Anto35200

Il me semble que ta demande du post #17 est très très loin de ta demande initial

Et que nous avons été plusieurs à te donner une solution.

Je te conseille d'ouvrir un nouveau fil avec TA NOUVELLE QUESTION

De plus quand je lis la charte je lis ceci

Bonne lecture

 

[Anto35200]

Merci j'en prend note.

 

[Phil69970]

Re

@Anto35200

Je te propose ce fichier

1) j'ai commenté tout le code

2) La demande ne correspond pas au fichier fournit !!!

Copier la feuille Devises dans le même fichier qui sera Devises(2)

Conséquence ==> J'ai fait la macro en fonction du fichier fournit et pas en fonction du post # 17

3) Une seule macro fait tout avec le résultat demandé directement

4) J'ai fait des essais ET tu vas rire mais cela fonctionne (!!!!
==> Cela fonctionne avec le fichier fournit au post # 17 ==> Extraction du 21.05.2024.xlsx

Merci de ton retour

 

[laurent950]

Bonjour @Nicolas JACQUIN

C'est pourtant pas très difficile a deviné

Bonjour, je sais pas du coup, ça fonctionne sur le classeur actif, mais après je sèche désolé

 

[Nicolas JACQUIN]

Bonjour @Nicolas JACQUIN

C'est pourtant pas très difficile a deviné

Je me doute, j'étais proche mais j'ai eu un bug sur les chaques fichiers (la boucle que j'arrive pas)

 

[Anto35200]

Re

@Anto35200

Je te propose ce fichier

1) j'ai commenté tout le code

2) La demande ne correspond pas au fichier fournit !!!

Regarde la pièce jointe 1198712

Conséquence ==> J'ai fait la macro en fonction du fichier fournit et pas en fonction du post # 17

3) Une seule macro fait tout avec le résultat demandé directement

4) J'ai fait des essais ET tu vas rire mais cela fonctionne (!!!!
==> Cela fonctionne avec le fichier fournit au post # 17 ==> Extraction du 21.05.2024.xlsx

Merci de ton retour

Merci beaucoup

Phil69970 !