XL 2016 compter des cellules ayant des chiffres de couleurs differentes

sexy95

XLDnaute Nouveau
bjr a tous ... j'aimerais savoir comment compter les nombres de cellules contenant les chiffres de couleurs différentes , et qui va pouvoir faire sa mise a jour automatique lorsqu'on entrera un chiffre de dans une cellule. je tient a noter que je ne comprend au VBA et a ses différents codes. veuillez avoir l'amabilité de m'expliquer au mieux si jamais il faille qu'on y arrive la. Mercie d'avance
 

Fichiers joints

Staple1600

XLDnaute Barbatruc
Bonjour sexy95 (et Bienvenue sur le forum)

PS: Merci d'avoir suivi nos conseils ;)

Je regarde ton fichier.
 

Staple1600

XLDnaute Barbatruc
Re

Donc en reprenant un code que j'ai posté dans un autre fil
VB:
'recyclée de:
'https://www.excel-downloads.com/threads/calcul-cellule-de-couleur-excel-2007.20034263/#post-20247740
Function NBCOULEUR(Zone As Range, CommeCellule As Range)
Dim xCell As Range, Couleur, i&
i = 1
Couleur = CommeCellule.Interior.Color
For Each xCell In Zone
If xCell.Font.Color = Couleur Then
NBCOULEUR = NBCOULEUR + i
End If
Next xCell
End Function
A utiliser comme suit:
Copie cette formule en G6 (puis recopie vers le bas)
=NBCOULEUR($B$7:$B$20;F6)

Bien sur il faut d'abord copie le code VBA dans un module
(ALT+F11 puis Insertion/Module)

PS: Si difficutés, voir tuto sur le web pour copier une macro dans un module.
 
Dernière édition:

sexy95

XLDnaute Nouveau
Re

Donc en reprenant un code que j'ai posté dans un autre fil
VB:
'recyclée de:
'https://www.excel-downloads.com/threads/calcul-cellule-de-couleur-excel-2007.20034263/#post-20247740
Function NBCOULEUR(Zone As Range, CommeCellule As Range)
Dim xCell As Range, Couleur, i&
i = 1
Couleur = CommeCellule(1, 1).Interior.Color
For Each xCell In Zone
If xCell.Font.Color = Couleur Then
NBCOULEUR = NBCOULEUR + i
End If
Next xCell
End Function
A utiliser comme suit:
Copie cette formule en G6 (puis recopie vers le bas)
=NBCOULEUR($B$7:$B$20;F6)

Bien sur il faut d'abord copie le code VBA dans un module
(ALT+F11 puis Insertion/Module)

PS: Si difficutés, voir tuto sur le web pour copier une macro dans un module.
Jai copie le code VBA dans le module . quel est l'étape suivante stp?
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir à tous et à @Staple1600 :)

@sexy95 :
J'ai l'impression que les couleurs de fond de la colonne F ne sont pas celles des polices de la colonne B.
Dans ce cas, la fonction échouera, non? (renverra 0)
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re, Bonsoir mapomme

mapomme
C'est vrai, j'ai oublié de précisé que pour tester j'ai modifié les couleurs pour le fond matche la police.
Au fait, tu as reconnu ta syntaxe (que je m'étais permis d'adapter dans le fil dont le lien est dans le commentaire de NBCOULEUR) ? ;)
 

Staple1600

XLDnaute Barbatruc
Re

Oui tu cotoyas cette personne il y a 7 ans et 3 jours axactement ;)
Re : Additioner des cellules colorées en VBA

thisisonehood,

Une fonction VBA faisant la somme d'une zone contigüe si la couleur de fond des cellules est identique à la couleur de fond d'une cellule de référence.
Formule en R22:
Code:
=SommeCouleur($Q$5:$Q$20;M22)
La fonction VBA:
VB:
Function SommeCouleur(Zone As Range, CommeCellule As Range)
Dim xCell As Range, Couleur

Couleur = CommeCellule(1, 1).Interior.Color
For Each xCell In Zone
  If xCell.Interior.Color = Couleur And IsNumeric(xCell.Value) Then
    SommeCouleur = SommeCouleur + xCell.Value
  End If
Next xCell

End Function
 

patricktoulon

XLDnaute Accro
re
bonjour a tous
j'aimerais savoir comment compter les nombres de cellules contenant les chiffres de couleurs différentes
en ce qui me concerne la question est un peu flou
plusieurs chiffres de couleur dans une même cellule ou cellule différente???

pour reprendre la fonction de stapple
VB:
Function NBCOULEUR(Zone As Range, CommeCellule As Range)
Dim xCell As Range, Couleur, i&
i = 1
Couleur = CommeCellule(1, 1).Interior.Color
For Each xCell In Zone
If xCell.Font.Color <> vbblack Then
NBCOULEUR = NBCOULEUR + i
End If
Next xCell
End Function
une cellule entièrement avec un texte de couleur donnera la couleur
une cellule avec certain partie du texte avec plusieur couleurs donnera NULL

conclusion tout ce qui est différent de noir sera pris en compte
 

sexy95

XLDnaute Nouveau
re
bonjour a tous

en ce qui me concerne la question est un peu flou
plusieurs chiffres de couleur dans une même cellule ou cellule différente???

pour reprendre la fonction de stapple
VB:
Function NBCOULEUR(Zone As Range, CommeCellule As Range)
Dim xCell As Range, Couleur, i&
i = 1
Couleur = CommeCellule(1, 1).Interior.Color
For Each xCell In Zone
If xCell.Font.Color <> vbblack Then
NBCOULEUR = NBCOULEUR + i
End If
Next xCell
End Function
une cellule entièrement avec un texte de couleur donnera la couleur
une cellule avec certain partie du texte avec plusieur couleurs donnera NULL

conclusion tout ce qui est différent de noir sera pris en compte
bjr @patricktoulon . ce sont les cellules différentes
 

sexy95

XLDnaute Nouveau
bon je voudrait m'attaquer a un autre point. je voudrais travailler sur un projet plutôt bizarre:cool::cool:, j'aimerais rendre le contenu d'un fichier Excel parlant. genre je voudrait automatise une feuille Excel de tel sorte que l'operateur ne casse plus la tète. proposez moi des idées svp. vous allez m'excuser pour la nuisance mais je viens de découvrir la puissance d'Excel grâce a vous et donc je veux voir jusqu'ou ca peut aller.
 

Fichiers joints

sexy95

XLDnaute Nouveau
Re

Donc en reprenant un code que j'ai posté dans un autre fil
VB:
'recyclée de:
'https://www.excel-downloads.com/threads/calcul-cellule-de-couleur-excel-2007.20034263/#post-20247740
Function NBCOULEUR(Zone As Range, CommeCellule As Range)
Dim xCell As Range, Couleur, i&
i = 1
Couleur = CommeCellule.Interior.Color
For Each xCell In Zone
If xCell.Font.Color = Couleur Then
NBCOULEUR = NBCOULEUR + i
End If
Next xCell
End Function
A utiliser comme suit:
Copie cette formule en G6 (puis recopie vers le bas)
=NBCOULEUR($B$7:$B$20;F6)

Bien sur il faut d'abord copie le code VBA dans un module
(ALT+F11 puis Insertion/Module)

PS: Si difficutés, voir tuto sur le web pour copier une macro dans un module.
@Staple1600 jai essaye de tirer la colonne B jusqu'à la 25ieme ligne( qui sont des cellules vides) , mais a ma grande surprise ca sest melanger au resultat des chiffres en noir. cest quoi la raison?
 

patricktoulon

XLDnaute Accro
bonjour

la vous m'avez perdu

dis moi un peu
ton but c'est bien de compter les cellules qui ont un font de la même couleur que le interior de "commecellule"
par ce que si c'est pas ca alors il y a une méprise
VB:
'Couleur = CommeCellule.Interior.Color
Couleur = CommeCellule.font.Color
For Each xCell In Zone
If xCell.Font.Color = Couleur Then
 

sexy95

XLDnaute Nouveau
effectivement , le but cest de compter les cellules ayant les polices de couleurs différentes. et le tableau contenant les fonds de couleurs est ce que jappelerai une legende qui indique les types de couleurs que jai utilise dans mon travail(surtout a la colonne B). le code que tu mas donne marche en partie, mais le hick est que ca nincrete pas automatiquement lorsquon va vouloir introduire une nouvelle valeur ou changer de couleur des chiffres ( en cas derreur par exemple) .
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas