Bonjour Philippe,
Une des 2 méthodes devraient fonctionner :
'---------------------------------
Function TotalPUBf(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" a écrit dans le message
de news:cad218$kkj$
Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)
mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
une
deuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
si
je fais machine arrière le fait d'en vider une me laisse le résultat 1 et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonjour Philippe,
Une des 2 méthodes devraient fonctionner :
'---------------------------------
Function TotalPUBf(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" <Philippe.Meresse@wanadoo.fr> a écrit dans le message
de news:cad218$kkj$1@news-reader4.wanadoo.fr...
Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)
mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
une
deuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
si
je fais machine arrière le fait d'en vider une me laisse le résultat 1 et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonjour Philippe,
Une des 2 méthodes devraient fonctionner :
'---------------------------------
Function TotalPUBf(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" a écrit dans le message
de news:cad218$kkj$
Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)
mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
une
deuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
si
je fais machine arrière le fait d'en vider une me laisse le résultat 1 et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonjour Philippe,
Une des 2 méthodes devraient fonctionner :
'---------------------------------
Function TotalPUBf(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" a écrit dans le message
de news:cad218$kkj$
Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)
mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
une
deuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
si
je fais machine arrière le fait d'en vider une me laisse le résultat 1 et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonjour Philippe,
Une des 2 méthodes devraient fonctionner :
'---------------------------------
Function TotalPUBf(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" <Philippe.Meresse@wanadoo.fr> a écrit dans le message
de news:cad218$kkj$1@news-reader4.wanadoo.fr...
Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)
mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
une
deuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
si
je fais machine arrière le fait d'en vider une me laisse le résultat 1 et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonjour Philippe,
Une des 2 méthodes devraient fonctionner :
'---------------------------------
Function TotalPUBf(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" a écrit dans le message
de news:cad218$kkj$
Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)
mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
une
deuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
si
je fais machine arrière le fait d'en vider une me laisse le résultat 1 et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)
mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
une
deuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
si
je fais machine arrière le fait d'en vider une me laisse le résultat 1 et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)
mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
une
deuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
si
je fais machine arrière le fait d'en vider une me laisse le résultat 1 et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)
mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
une
deuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
si
je fais machine arrière le fait d'en vider une me laisse le résultat 1 et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonjour Philippe Meresse.
Voici une réponse donnée par Laurent
Re: recalcul
Date: 2000-11-06 08:24:47 PST
Le fait de modifier le format d'une cellule ne déclenche aucun événement
Calculate (ni même Change). Le mieux que tu puisses faire, c'est ajouter
'Application.Volatile' au début de la fonction et revalider la formule.
Son résultat sera mis à jour à chaque nouvelle saisie ou en appuyant sur
F9 (à condition que le mode de calcul soit automatique).
Fin de la citation.
Tu peux aussi utiliser un événement On Time.
Sous toutes réserves.
"Philippe Meresse" wrote in message
news:cad218$kkj$Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
unedeuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
sije fais machine arrière le fait d'en vider une me laisse le résultat 1
et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonjour Philippe Meresse.
Voici une réponse donnée par Laurent
Re: recalcul
Date: 2000-11-06 08:24:47 PST
Le fait de modifier le format d'une cellule ne déclenche aucun événement
Calculate (ni même Change). Le mieux que tu puisses faire, c'est ajouter
'Application.Volatile' au début de la fonction et revalider la formule.
Son résultat sera mis à jour à chaque nouvelle saisie ou en appuyant sur
F9 (à condition que le mode de calcul soit automatique).
Fin de la citation.
Tu peux aussi utiliser un événement On Time.
Sous toutes réserves.
"Philippe Meresse" <Philippe.Meresse@wanadoo.fr> wrote in message
news:cad218$kkj$1@news-reader4.wanadoo.fr...
Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)
mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
une
deuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
si
je fais machine arrière le fait d'en vider une me laisse le résultat 1
et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonjour Philippe Meresse.
Voici une réponse donnée par Laurent
Re: recalcul
Date: 2000-11-06 08:24:47 PST
Le fait de modifier le format d'une cellule ne déclenche aucun événement
Calculate (ni même Change). Le mieux que tu puisses faire, c'est ajouter
'Application.Volatile' au début de la fonction et revalider la formule.
Son résultat sera mis à jour à chaque nouvelle saisie ou en appuyant sur
F9 (à condition que le mode de calcul soit automatique).
Fin de la citation.
Tu peux aussi utiliser un événement On Time.
Sous toutes réserves.
"Philippe Meresse" wrote in message
news:cad218$kkj$Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
unedeuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
sije fais machine arrière le fait d'en vider une me laisse le résultat 1
et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonjour Philippe,
Désolé, il y avait une légère erreur de transcription...
Si cela ne fonctionne pas, peux-tu me dire sur quelle version d'excel tu
travailles ? Ces fonctions ont été testé sur
excel 2002. Et le résultat attendu est bon !
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" a écrit dans le message
de news:cad5nj$kc7$
Bonsoir Denis et merci pour l'aide,
malheureusement cela ne marche pas mieux et à le même résultat.
Dommage!
@+
Phil
"Denis Michon" a écrit dans le message de
news:xaoyc.20410$Bonjour Philippe,
Une des 2 méthodes devraient fonctionner :
'---------------------------------
Function TotalPUBf(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" a écrit dans le message
de news:cad218$kkj$Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
unedeuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
sije fais machine arrière le fait d'en vider une me laisse le résultat 1
et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonjour Philippe,
Désolé, il y avait une légère erreur de transcription...
Si cela ne fonctionne pas, peux-tu me dire sur quelle version d'excel tu
travailles ? Ces fonctions ont été testé sur
excel 2002. Et le résultat attendu est bon !
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" <Philippe.Meresse@wanadoo.fr> a écrit dans le message
de news:cad5nj$kc7$1@news-reader1.wanadoo.fr...
Bonsoir Denis et merci pour l'aide,
malheureusement cela ne marche pas mieux et à le même résultat.
Dommage!
@+
Phil
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:xaoyc.20410$ri2.14787@charlie.risq.qc.ca...
Bonjour Philippe,
Une des 2 méthodes devraient fonctionner :
'---------------------------------
Function TotalPUBf(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" <Philippe.Meresse@wanadoo.fr> a écrit dans le message
de news:cad218$kkj$1@news-reader4.wanadoo.fr...
Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)
mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
une
deuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
si
je fais machine arrière le fait d'en vider une me laisse le résultat 1
et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Bonjour Philippe,
Désolé, il y avait une légère erreur de transcription...
Si cela ne fonctionne pas, peux-tu me dire sur quelle version d'excel tu
travailles ? Ces fonctions ont été testé sur
excel 2002. Et le résultat attendu est bon !
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" a écrit dans le message
de news:cad5nj$kc7$
Bonsoir Denis et merci pour l'aide,
malheureusement cela ne marche pas mieux et à le même résultat.
Dommage!
@+
Phil
"Denis Michon" a écrit dans le message de
news:xaoyc.20410$Bonjour Philippe,
Une des 2 méthodes devraient fonctionner :
'---------------------------------
Function TotalPUBf(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
'---------------------------------
Function TotalPUB(plg As Range)
Application.Volatile
Dim x As Double, y As Double
For Each cel In plg
Select Case cel.Interior.ColorIndex
Case 3
x = x + 1 / 2
Case 4
y = y + 1 / 2
End Select
Next
TotalPUB = x + y
End Function
'---------------------------------
Salutations!
"Philippe Meresse" a écrit dans le message
de news:cad218$kkj$Bonsoir à toutes et tous,
J'utilise la fonction perso ci après en A5 pour une plage de A1:A3
(exemple)mais il y a un bug étrange. En effet si une seule cellule est coloriée
(couleur 4 ou 3 ) je n'ai pas le total 0.5 je suis obligé dans colorier
unedeuxième pour avoir 0.5 et une troisième pour le résultat 1. Par contre
sije fais machine arrière le fait d'en vider une me laisse le résultat 1
et
deux en moins me donne bien là 0.5.!!!!!!!
Je ne comprends rien de rien.
Merci pour l'aide fournie
Philippe Meresse
Function TotalPUB(plg As Range)
For Each cel In plg
If cel.Interior.ColorIndex = 4 Then x = x + 1 / 2
If cel.Interior.ColorIndex = 3 Then y = y + 1 / 2
Next cel
TotalPUB = x + y
End Function
Un conseil (dont tu fais ce que tu veux)
Sélection des cellules (ex : A1:A10) dans lesquelles tu dois saisir "RC"
ou
"RTT" ou "Blabla" --> Données > validation >
option > autoriser > liste > Source : RC;RTT;Blabla
Ensuite :
Format > Mise en forme conditionnelle >
Condition1 > la formule est ="RC" > motif > OK
Condition2 > la formule est ="RTT" > motif > OK
Condition3 > la formule est ="Blabla" > motif > OK
Pour les calculs (en lieu et place de ta fonction perso qui posera
toujours des
problèmes) ça pourrait faire :
=SOMMEPROD((A1:A10={"RC""RTT"})*0.5)
AV
Un conseil (dont tu fais ce que tu veux)
Sélection des cellules (ex : A1:A10) dans lesquelles tu dois saisir "RC"
ou
"RTT" ou "Blabla" --> Données > validation >
option > autoriser > liste > Source : RC;RTT;Blabla
Ensuite :
Format > Mise en forme conditionnelle >
Condition1 > la formule est ="RC" > motif > OK
Condition2 > la formule est ="RTT" > motif > OK
Condition3 > la formule est ="Blabla" > motif > OK
Pour les calculs (en lieu et place de ta fonction perso qui posera
toujours des
problèmes) ça pourrait faire :
=SOMMEPROD((A1:A10={"RC""RTT"})*0.5)
AV
Un conseil (dont tu fais ce que tu veux)
Sélection des cellules (ex : A1:A10) dans lesquelles tu dois saisir "RC"
ou
"RTT" ou "Blabla" --> Données > validation >
option > autoriser > liste > Source : RC;RTT;Blabla
Ensuite :
Format > Mise en forme conditionnelle >
Condition1 > la formule est ="RC" > motif > OK
Condition2 > la formule est ="RTT" > motif > OK
Condition3 > la formule est ="Blabla" > motif > OK
Pour les calculs (en lieu et place de ta fonction perso qui posera
toujours des
problèmes) ça pourrait faire :
=SOMMEPROD((A1:A10={"RC""RTT"})*0.5)
AV
Malheureusement je pense que nous sommes limité à 3 conditions et j'en aurai
un peu plus.
Malheureusement je pense que nous sommes limité à 3 conditions et j'en aurai
un peu plus.
Malheureusement je pense que nous sommes limité à 3 conditions et j'en aurai
un peu plus.
