Microsoft 365 Somme sur la couleur d'une cellule

[jack23]

Bonsoir à tous,
je souhaiterais faire la somme d'une ligne contenant des couleurs, en sachant que jaune et vert vaut 1 et violet vaut 2.
Est-ce que quelqu'un aurait l’amabilité de m'aider, je suis débutant sur Excel.
Je joint un semblant de tableau pour vous orienter.
D'avance merci de votre collaboration.
Cordialement. JD

 

[sylvanu]

Bonsoir Jack,
Avec du VBA?
Parce que sans ...

 

[Jean-Eric]

Bonjour,
Une proposition (à étudier) avec nombres de 1 à 3 et des mises en forme conditionnelles.
Cdlt.

Jean-Eric

 

[JBARBE]

Bonsoir à tous,
Peut-être ceci en cliquant sur le bouton GO !
Bonne nuit !

 

[jack23]

Bonjour à tous, un grand merci pour votre implication, je vais étudier les deux solutions que vous avez eu l'amabilité de me proposer, avec ça je vais pouvoir avancer dans mon tableau, je ne manquerai pas de vous tenir au courant de mon avancement.
Encore merci et à bientôt. JD

 

[JBARBE]

Re,
Voici la signification de mes lignes de codes ( trés simples )

Option Explicit

Sub couleurs()
Dim i As Long, j As Long ' déclaration des variables
Application.ScreenUpdating = False ' écran figé
Range("CM8:CO12") = "" ' Cellules supprimées
Range("CM8:CO12").Interior.ColorIndex = xlNone ' Cellules supprimées couleurs
For i = 8 To 12 ' boucle i pour les lignes de 8 à 12
For j = 2 To 90 ' boucle j pour les colonnes de 2 à 90
  If Cells(i, j).Interior.ColorIndex = 43 Then ' si la cellule (ligne / colonne ) est verte alors
   Cells(i, 91) = Cells(i, 91) + 1 ' ajout du nombre en cellule ( ligne / colonne 91 )+1
   Cells(i, 91).Interior.ColorIndex = 43 ' coloriage de la cellule concernée en vert
  ElseIf Cells(i, j).Interior.ColorIndex = 46 Then ' si la cellule (ligne / colonne ) est orange alors
   Cells(i, 92) = Cells(i, 92) + 1 ' ajout du nombre en cellule ( ligne / colonne 92 )+1
   Cells(i, 92).Interior.ColorIndex = 46 ' coloriage de la cellule concernée en orange
   ElseIf Cells(i, j).Interior.ColorIndex = 47 Then ' si la cellule (ligne / colonne ) est violet alors
   Cells(i, 93) = Cells(i, 93) + 2 ' ajout du nombre en cellule ( ligne / colonne 93 )+2
   Cells(i, 93).Interior.ColorIndex = 47 ' coloriage de la cellule concernée en violet
  End If ' fin si
Next j ' fin boucle j
Next i ' fin boucle i
Application.ScreenUpdating = True ' fin écran figé
End Sub

Bonne journée !