Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Calcul en fonction de la couleur ou non de Cellules

Créer une discussion

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 !

S'inscrire
L

Leskwal

XLDnaute Occasionnel
Bonjour le forum

Alors voilà:

Je suis actuellement sur la création d'un fichier Excel (Normal c'est pourquoi je suis sur ce forum 😀)

Je bute sur un problème que je n'ai su trouver sur le forum.


Je cherche à ce que des sommes soient effectuées en bout de chaque ligne de mon tableau en fonction de la présence ou non de couleur dans les cellules. 😕



Comme mon fichier actuel est assez lourd, j'ai créé un fichier exemple expliquant la situation.


Merci d'avance pour votre réponse

Cordialement

Pascal
 

Pièces jointes

Trier par date Trier par votes
Re : Calcul en fonction de la couleur ou non de Cellules

Bonjour Leskwal,
Si les cellules ne sont pas colorisées par mise en forme conditionnelle, le principe est le suivant:
Code: 
[COLOR=blue]Sub[/COLOR] NbrCouleurs()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]For[/COLOR] i = 3 [COLOR=blue]To[/COLOR] 8[COLOR=green] 'représente les lignes[/COLOR]
    [COLOR=blue]For[/COLOR] j = 2 [COLOR=blue]To[/COLOR] 11[COLOR=green] 'représente les colonnes[/COLOR]
        [COLOR=blue]If[/COLOR] Cells(i, j).Interior.ColorIndex <> xlNone [COLOR=blue]Then[/COLOR]
            Var = Var + 1
        [COLOR=blue]Else[/COLOR]
            Var2 = Var2 + 1
        [COLOR=blue]End If[/COLOR]
    [COLOR=blue]Next[/COLOR] j
    Cells(i, 12) = Var
    Cells(i, 13) = Var2
    Var = 0
    Var2 = 0
[COLOR=blue]Next[/COLOR] i
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Après il faut voir l'utilisation réelle.
Cordialement
 
Vote positif 0 Vote négatif
Re : Calcul en fonction de la couleur ou non de Cellules

Bonjour Leskwal,

Essaye de voir dans Discussions similaires en bas de cette page, ou fait une recherche avec les mots "somme couleur", ce thème a déjà été abordé de nombreuses fois
 
Vote positif 0 Vote négatif
Re : Calcul en fonction de la couleur ou non de Cellules

Re

Code: 
Sub NbrCouleurs()
Application.ScreenUpdating = False
For i = 3 To 8 'représente les lignes
    For j = 2 To 11 'représente les colonnes
        If Cells(i, j).Interior.ColorIndex <> xlNone Then
            Var = Var + 1
        Else
            Var2 = Var2 + 1
        End If
    Next j
    Cells(i, 12) = Var
    Cells(i, 13) = Var2
    Var = 0
    Var2 = 0
Next i
Application.ScreenUpdating = True
End Sub



Ce code fait le comptage des cellules colorisées.
Ce n'est pas exactement ma demande... 😀

Je souhaite non pas le comptage des cellules colorisées mais la somme du contenu des cellules colorisées ou non. 🙂

Ex :

A1 en Rouge : valeur 5 heures
B1 en Vert: valeur 4 heures
C1 en Bleu: valeur 3 heures
D1 en RIEN: valeur 2 heures
E1 en RIEN: valeur 1 heures
F1 en RIEN: valeur 7 heures
G1 en Rouge : valeur 6 heures
H1 en Rouge : valeur 3 heures

Soit pour les cellules colorisées = 5 + 4 + 3 + 6 + 3
TOTAL = 21

Pour les non colorisées = 2 + 1 + 7
TOTAL = 10


Merci d'avance

Pascal
 
Vote positif 0 Vote négatif
Re : Calcul en fonction de la couleur ou non de Cellules

Re Leskwal, Bonjour Tototiti,
Alors :
Code: 
[COLOR=blue]Sub[/COLOR] NbrCouleurs()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]For[/COLOR] i = 3 [COLOR=blue]To[/COLOR] 8[COLOR=green] 'représente les lignes[/COLOR]
    [COLOR=blue]For[/COLOR] j = 2 [COLOR=blue]To[/COLOR] 11[COLOR=green] 'représente les colonnes[/COLOR]
        [COLOR=blue]If[/COLOR] Cells(i, j).Interior.ColorIndex <> xlNone [COLOR=blue]Then[/COLOR]
            Var = Var + Cells(i, j).Value
        [COLOR=blue]Else[/COLOR]
            Var2 = Var2 + Cells(i, j).Value
        [COLOR=blue]End If[/COLOR]
    [COLOR=blue]Next[/COLOR] j
    Cells(i, 12) = Var
    Cells(i, 13) = Var2
    Var = 0
    Var2 = 0
[COLOR=blue]Next[/COLOR] i
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

B
  • Résolu(e)
Autres Changer la couleur de fond de cellules.
Réponses
4
Affichages
273
BIBIX
B
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
381
dgil37
D
G
  • Question Question
XL 2019 Somme de cellules non vides sur une période
Réponses
3
Affichages
351
job75
A
  • Question Question
XL 2016 Suppression contenu d'une plage de cellules en fonction de leur valeur
Réponses
4
Affichages
261
TooFatBoy
J
  • Résolu(e)
XL 2021 Classement données avec recherchex en cas de données de même valeur
Réponses
6
Affichages
258
jeff2318
J
H
  • Résolu(e)
XL 2016 Changer la couleur d'un histogramme sur un graphique en vba
Réponses
2
Affichages
324
hutch57
H
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
410
job75
W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
391
job75
  • Résolu(e)
XL 2021 Mise en forme conditionnelle : Couleur texte en fonction date d'une autre cellule
Réponses
6
Affichages
462
didier09
  • Question Question
XL pour MAC Mise en forme conditionnelle de cellules adjacentes en fonction du contenu d'une cellule
Réponses
8
Affichages
386
sylvanu
W
  • Résolu(e)
XL 2019 Somme d'éléments (retours à la ligne) dans un segment, ou plusieurs segments, horizon·tal·aux de cellules
Réponses
2
Affichages
216
Webperegrino
W
A
  • Question Question
XL 2021 Impression multi format
Réponses
5
Affichages
422
wDog66
W
T
  • Résolu(e)
XL 2016 Calcul de la disponibilité chaque équipements en utilisant power query ou VBA
2
Réponses
18
Affichages
966
therse
T
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
488
tuti
T
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
415
Bibinaire
B
S
  • Question Question
XL 2016 formule de calcul en fonction du choix de la liste déroulante
2
Réponses
18
Affichages
2 K
Silent
S
I
  • Résolu(e)
Microsoft 365 Calculer et classer les factures en fonction de leur importance
2 3 4
Réponses
46
Affichages
2 K
job75
  • Question Question
Microsoft 365 Fonction perso ref couleur Hexa en couleur de fond de cellule
2
Réponses
24
Affichages
2 K
Dudu2
S
  • Question Question
Microsoft 365 Protéger des cellules de la feuille en permettant d'agrandir les colonnes
Réponses
6
Affichages
306
Sissou71
S
M
  • Question Question
Autres Mettre en couleur des cellules depuis une date de début jusqu'a la date de fin
Réponses
10
Affichages
640
mcl
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…