compter le nombre de cellules coloriées d'un tableau

  • Initiateur de la discussion Initiateur de la discussion chameau45
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

chameau45

Guest
Bonjour à tous,

Je suis novice en vba, et je bloque sur une petite macro :
Je voudrais afficher dans la cellule c5 le nombre de cellule coloriée en jaune de la ligne 5
en c6 le nombre de cellule coloriée en jaune de la ligne 6 et ainsi de suite pour tout le tableau.
En piéce jointe un échantillon de mon tableau (l'original comporte plusieures centaines de lignes et je dois pouvoir en rajouter de nouvelles sans bien sur affecter la macro)

quelqu'un aurait il une solution svp merci beaucoup de votre aide .
 

Pièces jointes

Re : compter le nombre de cellules coloriées d'un tableau

Bonjour chameau45,

Je ne peux ouvrir les .xlsx, aussi je ne vois pas ton fichier. Néanmoins, essaie cette macro qui devrait répondre à ton besoin, je pense:

Code:
Sub test()
Dim c As Range, Compte As Integer, t&, u&
Set c = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell)
For t = 5 To c.Row
    Compte = 0
    For u = 1 To c.Column
        If Cells(t, u).Interior.ColorIndex = 6 Then Compte = Compte + 1
    Next u
    Cells(t, 3) = Compte
Next t
End Sub

[EDIT] Lu papou, j't'avais pas vu dsl
 
Dernière édition:
Re : compter le nombre de cellules coloriées d'un tableau

Bonsoir softamama,
Merci pour ta réponse, je suis impressionné par la vitesse des réponses c'est vraiment cool. J'ai testé la sub elle marche très bien et je n'ai plus de soucis pour insérer mes lignes.
Encore merci
 
Re : compter le nombre de cellules coloriées d'un tableau

Bonjour Chameau,
pour l'insertion de lignes oui, mais il faudrait peut-être que tu apprennes à travailler sans cellules fusionnées car elles te réserveront a termes des surprises
a+
papou 😱
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour