sommesi

17 réponses

rdt83

01/04/2004 à 18:35

rebonjour,
j'ai eu beau faire et tout lire je n'y arrive pas a additionner des cellules
en rouge dans une plage de cellules
j'ai peu etre mal trafiquer la fonction, quelqu'un peut il me dire ou le bas
blesse :

Sub couleur()
Function SommeSiRouge(PlageDeCellules As Range)

Dim C As Range
For Each C In PlageDeCellules
If C.Interior.ColorIndex = 3 Then
If IsNumeric(C) Then
SommeSiRouge = SommeSiRouge + C.Value
End If
End If
Next
Set C = Nothing
End Function

merci rdt83@msn.com

7 réponses

1 2

garnote

01/04/2004 à 20:24

Mais la suite est plus ardue. Comment faire
pour que cette fonction se recalcule automatiquement
si on décide de mettre la fonte d'une cellule de la
plage concernée en rouge ?

Serge

"garnote" a écrit dans le message de news:
n4Zac.74196$

Salut J @ C,

Le problème provenait du fait que c'était la police
qui était rouge.

Serge

"" a écrit dans le message de news:
406c5cf9$0$16643$
tes cellules en rouge, elles sont bien rouges "en dur" ? ce n'est pas
une

couleur provenant d'un format conditionnel ?
le rouge est bien un rouge colorindex= 3
le rouge est bien la couleur du fond (pas de la police) ?

http://jacxl.free.fr

"rdt83" a écrit dans le message de news:
c4hhe6$i6i$
non
=sr(B13:B24)

"garnote" a écrit dans le message de
news:yLXac.74190$
Est-ce que la plage que tu sélectionnes est discontinue ?

michdenis

01/04/2004 à 20:43

Bonjour rdt83,

Tu peux me faire parvenir ton fichier à cette adresse :

Salutations!

"rdt83" a écrit dans le message de news:c4hiu8$jje$
si quelqu'un a un mail, je veux bien lui envoye ma feuille
pour regarder ou le bas blesse

Steph

01/04/2004 à 21:24

A essayer:
Ajoute ceci à ta macro

Application.CalculateFull

Steph

"garnote" a écrit dans le message de news:
87Zac.74201$

Mais la suite est plus ardue. Comment faire
pour que cette fonction se recalcule automatiquement
si on décide de mettre la fonte d'une cellule de la
plage concernée en rouge ?

Serge

"garnote" a écrit dans le message de news:
n4Zac.74196$
Salut J @ C,

Le problème provenait du fait que c'était la police
qui était rouge.

Serge

"" a écrit dans le message de news:
406c5cf9$0$16643$
tes cellules en rouge, elles sont bien rouges "en dur" ? ce n'est pas
une

couleur provenant d'un format conditionnel ?
le rouge est bien un rouge colorindex= 3
le rouge est bien la couleur du fond (pas de la police) ?

http://jacxl.free.fr

"rdt83" a écrit dans le message de news:
c4hhe6$i6i$
non
=sr(B13:B24)

"garnote" a écrit dans le message de
news:yLXac.74190$
Est-ce que la plage que tu sélectionnes est discontinue ?

garnote

01/04/2004 à 21:27

Ça ne fonctionne pas ;-(

Serge

"Steph" a écrit dans le message de news:
406c6c6f$0$1957$

A essayer:
Ajoute ceci à ta macro

Application.CalculateFull

Steph

"garnote" a écrit dans le message de news:
87Zac.74201$
Mais la suite est plus ardue. Comment faire
pour que cette fonction se recalcule automatiquement
si on décide de mettre la fonte d'une cellule de la
plage concernée en rouge ?

Serge

"garnote" a écrit dans le message de news:
n4Zac.74196$
Salut J @ C,

Le problème provenait du fait que c'était la police
qui était rouge.

Serge

"" a écrit dans le message de news:
406c5cf9$0$16643$
tes cellules en rouge, elles sont bien rouges "en dur" ? ce n'est
pas

une
couleur provenant d'un format conditionnel ?
le rouge est bien un rouge colorindex= 3
le rouge est bien la couleur du fond (pas de la police) ?

http://jacxl.free.fr

"rdt83" a écrit dans le message de news:
c4hhe6$i6i$
non
=sr(B13:B24)

"garnote" a écrit dans le message de
news:yLXac.74190$
Est-ce que la plage que tu sélectionnes est discontinue ?

FxM

01/04/2004 à 22:16

garnote wrote:

Ça ne fonctionne pas ;-(

Serge

Bonsoir Serge,

Si mon neurone se souvent bien (hum), la modification de format ne
déclenche pas d'évènement [donc pas de capture permettant de lancer un
recalcul]. Il va falloir trouver autre chose :o(

@+
FxM

Clément Marcotte

01/04/2004 à 23:56

Moi qui pensait que c'était Michel ;-)

"michdenis" a écrit dans le message de
news:

Bonjour rdt83,

Tu peux me faire parvenir ton fichier à cette adresse :

Salutations!

"rdt83" a écrit dans le message de
news:c4hiu8$jje$

si quelqu'un a un mail, je veux bien lui envoye ma feuille
pour regarder ou le bas blesse

michdenis

02/04/2004 à 00:07

Bonjour Clément,

C'est mon frère !!!

;-)

Salutations!

"Clément Marcotte" a écrit dans le message de
news:%
Moi qui pensait que c'était Michel ;-)

"michdenis" a écrit dans le message de
news:

Bonjour rdt83,

Tu peux me faire parvenir ton fichier à cette adresse :

Salutations!

"rdt83" a écrit dans le message de
news:c4hiu8$jje$

si quelqu'un a un mail, je veux bien lui envoye ma feuille
pour regarder ou le bas blesse

1 2

sommesi

7 réponses

Veuillez sélectionner un problème