EXCEL - somme automatique sur chgt de couleur Fermé

Question

Bonjour,

Je suis à la recherche d'un expert pour une problématique sous excel. En effet, j'ai un tableau qui contient toujours les mêmes valeurs. Dans ce tableau, la valeur prise en compte dans chaque cellule est manuelle et symbolisée par un changement de couleur. Par exemple, si j'ai un cellule contenant une valeur qui n'a pas encore été utilisé, la couleur sera jaune et une fois utilisée, la personne en charge de ce fichier la passera à la couleur verte. Je voudrais que ce changement de couleur soit vienne compléter la somme automatique gérée en fin de colonne..j'éspère avoir été clair dans mes explications.

Merci 

laurent

supernico · Answer

par exemple, compter le nombre de cellules vertes ?

hosny · Answer

je veux taider mais vraiment jai pas compris si tu peux etre plus clair

supernico · Answer

regarde ici :

https://apprendreexcel.com/

néné · Answer

bJR

Voici une fonction VBA personnalisée qui fait la somme de valeur qui sont dans des cellules blanches


Function SOMMECOULEUR(PLAGE As Range) As Double
Application.Volatile
Dim Cellule As Range
Dim TOTALPARTIEL As Double
TOTALPARTIEL = 0
For Each Cellule In PLAGE.Cells
If Cellule.Interior.ColorIndex = 2 Then '2 égal blanc
TOTALPARTIEL = TOTALPARTIEL + Cellule.Value
End If
Next Cellule
SOMMECOULEUR = TOTALPARTIEL
End Function

michel_m · Answer

Bonjour à tous,

pour rendre dynamique la plage B2:F17 en utilisant la proposition de Néné (je compte le rouge plus facile à voir!!!) par macro événementielle

a copier coller dans le module feuille (clic droit sur l'onglet de la feuille et "visualiser le code"

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:F17")) Is Nothing Then: Exit Sub
Dim Cellule As Range
Dim TOTALPARTIEL As Double
TOTALPARTIEL = 0
For Each Cellule In Range("B2:F17").Cells
If Cellule.Interior.ColorIndex = 3 Then '2 égal blanc
TOTALPARTIEL = TOTALPARTIEL + Cellule.Value
End If
Next Cellule
Range("H2") = TOTALPARTIEL
End Sub

en espèrant que...

michel_m · Answer

re,

sur une cellule avec une valeur, passe la couleur en rouge

laurent77 · Answer

J'ai trouvé une fonction qui fonctionne très bien mais pas de manière dynamique....

-------------------------------
Function SumByColor(PlageEntree As Range, CouleurPlage As Range) As Double
Dim Cell As Range, TempSum As Double, ColorIndex As Integer
      ColorIndex = CouleurPlage.Cells(1, 1).Interior.ColorIndex
      TempSum = 0
      On Error Resume Next
      For Each Cell In PlageEntree.Cells
            If Cell.Formula < > "" Then
                  If Cell.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + _
                    Cell.Value
            End If
      Next Cell
      On Error GoTo 0
      Set Cell = Nothing
      SumByColor = TempSum
End Function
----------------------------------------

Si quelqu'un à une solution !

merci

néné · Answer

Bjr

met ceux ci en événementionnel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

DIMITRI618 · Answer

Bonjour,
Je n'ai pas très bien compris ton problème, mais essaie format-Mise en forme conditionnelle, sur les cellules que tu veux. Tu peux faire en sorte qu'Excel modifie la couleur de certaines cellules automatiquement suivant les critères que tu as définis.
Bonne chance,
@ +

néné · Answer

bjr


Clic droit l'onglet de la page ou ce trouve tes valeurs puis "Visualiiser le code"

copie ce code en dessous General




Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Calculate 
End Sub 


puis ferme la fenetre