Discussion :

[Jonathan Raucy]

Bonjour,
Je suis en train de faire un planning d'intervention. Ainsi pour chaque intervention je rempli une cellule avec une couleur qui correspond à une personne et je voudrais faire la somme de chacune des cases de la même couleur en temps réel. J'ai chercher sur le vaste fourm qu'est devellopez.com mais je n'ai pas réussi à le trouver... Alors pouvez vous me donner un coup de main.
Cordialement,
Jonathan RAUCY

[Abed_H]

Bonjour
une fonction personalisé de JB qui compte les cellules ayant la même couleur de fond.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function CompteCouleurFond(champ As Range, couleurfond)
    Application.Volatile
    Dim c, temp
    temp = 0
       For Each c In champ
          If c.Interior.ColorIndex = couleurfond Then
             temp = temp + 1
         End If
      Next c
    CompteCouleurFond = temp
End Function

Dans une cellule tu insert la fonction de cette manière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CompteCouleurFond(C1:C10;6) 'ici c'est la couleur jaune

Abed_H

[Jonathan Raucy]

Tout d'abord merci pour t'à réponse si rapide. Mais cette fonction à un problème c'est que cela ne marche en temps réel c'est à dire que lorsque je rajoute une couleur dans une cellule il ne ce réactualise pas.
Cordialement,
Jonathan

[marc56]

A mon avis, ce serait plus facile si dans chaque cellule tu rentres le code de la personne au lieu d'utiliser la couleur comme critère. Ceci ne t'empêche pas d'y mettre une couleur.

[Jonathan Raucy]

Je le fais déjà mais c'est trop long donc c'est pour ça que cherche une solution. Alors je cherche mais en vain... Alors si vous connaissez une solution à mon problème qui que vous soyez sautez sur vos clavier et aider moi!!!!!!!!!!!!!!
Cordialement,
Jonathan RAUCY

[marc56]

Combien de personnes à gérer? Voici un exemple avec 4 personnes.

[Jonathan Raucy]

Bonjour MARC,
Je connais le systeme mais je dois éparpiller 3 équipes sur 85 types d'interventions... Alors avec ca je comtabilise leurs temps total d'intervention par jour, mois et par trimestre.

[marc56]

Ton problème dépasse mes compétences. Je suis désolé.

[Jonathan Raucy]

Bonjour
Je conclu donc que personne n'à trouvé de solution? Tant pis Je vais associer les couleurs au chiffres et je ferais un nb.si.
Merci de votre aide à tous.
Cordialement,
Jonathan

[Jonathan Raucy]

Par contre je reste ouvert à d'éventuelles solutions.

[wilfried_42]

Bonjour à tous

Le probleme est que lorsque tu colories une cellule ca ne déclenche pas le calcul automatique de la feuille

Par contre si tu utilises le pinceau, (provoquant aussi la duplication des mise en formes conditionnelle), cela provoque le recalcule de la feuille donc la fonction de abed_H fonctionne mais t'oblige à utiliser le pinceau pour peindre et non la palette

[Jonathan Raucy]

Oui je le sait et c'est ca le problme alors si quelqu'un trouve une solution qui me la face parvenir.
jonathan

[cafeine]

j'ai tenté une solution qui marche a peu près ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim prevCell As Range
Dim prevColor As Integer
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
' uniquement avant que les variables prevCell et prevColor ne soient initialisées
On Error Resume Next
 
    If prevColor <> prevCell.Interior.ColorIndex Then
        Application.Calculation = xlCalculationManual
        Sh.Calculate
        Application.Calculation = xlCalculationAutomatic
 
    End If
    Set prevCell = Target
    prevColor = Target.Interior.ColorIndex
 
End Sub

[Jonathan Raucy]

Comment faut il que je l'utilise?

[wilfried_42]

re:

Cafeine que je salue en passant, n'etant pas la, je me permets de repondre à sa place

C'est un pansement ingenieux, qui s'appuie sur l'interruption de selection de cellule pour creer une interruption de changement de couleur dans la cellule selectionnée

Si ca t'interresse, pour finaliser la gestion de cette interruption, il y a encore un peu de travail

Tu mets la macro de Cafeine dans le module Workbook et la fonction de abed_h dans un module

Si ca te plait, dit le et ton probeleme pourra etre finalisé
( tu n'as pas suffisemment de solution )

Bonne journée

[Jonathan Raucy]

Petit probleme il me met une erreur de compil : variable non définie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
' uniquement avant que les variables prevCell et prevColor ne soient initialisées
On Error Resume Next
    
    If prevColor <> prevCell.Interior.ColorIndex Then
        Application.Calculation = xlCalculationManual
        Sh.Calculate
        Application.Calculation = xlCalculationAutomatic
        
    End If
    Set prevCell = Target
    prevColor = Target.Interior.ColorIndex
 
End Sub

C'est dommage je croyais avoir trouvé une solution.

[wilfried_42]

re:


n'aurais tu pas oublié 2 lignes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim prevCell As Range
Dim prevColor As Integer

Au debut du module Workbook ?

Ces lignes sont dans le code de caféine

[Jonathan Raucy]

Merci pour tout c'est exactement ce qu'il me fallais!!!!
Wilfried_42, Abed et Cafeine vous etes des champions.

[wilfried_42]

re:

Merci, mais je n'ai rien fait, C'est Abed et Cafeine qui ont tout fait