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
Tu copies ce code dans un module standard : Function sr(PlageDeCellules As Range) Dim C As Range For Each C In PlageDeCellules If C.Interior.ColorIndex = 3 Then If IsNumeric(C) Then sr = sr + C.Value End If End If Next Set C = Nothing End Function
Tu retournes sur ta feuille et tu écris : =sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" a écrit dans le message de news: c4hgck$564$
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
Changer de fil ?
Tu copies ce code dans un module standard :
Function sr(PlageDeCellules As Range)
Dim C As Range
For Each C In PlageDeCellules
If C.Interior.ColorIndex = 3 Then
If IsNumeric(C) Then
sr = sr + C.Value
End If
End If
Next
Set C = Nothing
End Function
Tu retournes sur ta feuille et tu écris :
=sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" <rdt83@msn.com> a écrit dans le message de news:
c4hgck$564$1@news-reader3.wanadoo.fr...
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
Tu copies ce code dans un module standard : Function sr(PlageDeCellules As Range) Dim C As Range For Each C In PlageDeCellules If C.Interior.ColorIndex = 3 Then If IsNumeric(C) Then sr = sr + C.Value End If End If Next Set C = Nothing End Function
Tu retournes sur ta feuille et tu écris : =sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" a écrit dans le message de news: c4hgck$564$
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
c'est bien ce que j'ai fait mais rien de rien
"garnote" a écrit dans le message de news:JFXac.74186$
Changer de fil ?
Tu copies ce code dans un module standard : Function sr(PlageDeCellules As Range) Dim C As Range For Each C In PlageDeCellules If C.Interior.ColorIndex = 3 Then If IsNumeric(C) Then sr = sr + C.Value End If End If Next Set C = Nothing End Function
Tu retournes sur ta feuille et tu écris : =sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" a écrit dans le message de news: c4hgck$564$
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
c'est bien ce que j'ai fait mais rien de rien
"garnote" <rien@absent.net> a écrit dans le message de
news:JFXac.74186$aC1.3800@charlie.risq.qc.ca...
Changer de fil ?
Tu copies ce code dans un module standard :
Function sr(PlageDeCellules As Range)
Dim C As Range
For Each C In PlageDeCellules
If C.Interior.ColorIndex = 3 Then
If IsNumeric(C) Then
sr = sr + C.Value
End If
End If
Next
Set C = Nothing
End Function
Tu retournes sur ta feuille et tu écris :
=sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" <rdt83@msn.com> a écrit dans le message de news:
c4hgck$564$1@news-reader3.wanadoo.fr...
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
"garnote" a écrit dans le message de news:JFXac.74186$
Changer de fil ?
Tu copies ce code dans un module standard : Function sr(PlageDeCellules As Range) Dim C As Range For Each C In PlageDeCellules If C.Interior.ColorIndex = 3 Then If IsNumeric(C) Then sr = sr + C.Value End If End If Next Set C = Nothing End Function
Tu retournes sur ta feuille et tu écris : =sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" a écrit dans le message de news: c4hgck$564$
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
garnote
Est-ce que la plage que tu sélectionnes est discontinue ?
Serge
"rdt83" a écrit dans le message de news: c4hh5s$cqf$
c'est bien ce que j'ai fait mais rien de rien
"garnote" a écrit dans le message de news:JFXac.74186$
Changer de fil ?
Tu copies ce code dans un module standard : Function sr(PlageDeCellules As Range) Dim C As Range For Each C In PlageDeCellules If C.Interior.ColorIndex = 3 Then If IsNumeric(C) Then sr = sr + C.Value End If End If Next Set C = Nothing End Function
Tu retournes sur ta feuille et tu écris : =sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" a écrit dans le message de news: c4hgck$564$
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
Est-ce que la plage que tu sélectionnes est discontinue ?
Serge
"rdt83" <rdt83@msn.com> a écrit dans le message de news:
c4hh5s$cqf$1@news-reader5.wanadoo.fr...
c'est bien ce que j'ai fait mais rien de rien
"garnote" <rien@absent.net> a écrit dans le message de
news:JFXac.74186$aC1.3800@charlie.risq.qc.ca...
Changer de fil ?
Tu copies ce code dans un module standard :
Function sr(PlageDeCellules As Range)
Dim C As Range
For Each C In PlageDeCellules
If C.Interior.ColorIndex = 3 Then
If IsNumeric(C) Then
sr = sr + C.Value
End If
End If
Next
Set C = Nothing
End Function
Tu retournes sur ta feuille et tu écris :
=sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" <rdt83@msn.com> a écrit dans le message de news:
c4hgck$564$1@news-reader3.wanadoo.fr...
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
Est-ce que la plage que tu sélectionnes est discontinue ?
Serge
"rdt83" a écrit dans le message de news: c4hh5s$cqf$
c'est bien ce que j'ai fait mais rien de rien
"garnote" a écrit dans le message de news:JFXac.74186$
Changer de fil ?
Tu copies ce code dans un module standard : Function sr(PlageDeCellules As Range) Dim C As Range For Each C In PlageDeCellules If C.Interior.ColorIndex = 3 Then If IsNumeric(C) Then sr = sr + C.Value End If End If Next Set C = Nothing End Function
Tu retournes sur ta feuille et tu écris : =sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" a écrit dans le message de news: c4hgck$564$
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
Misange
regarde ma réponse dans ton autre fil (grr) Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 01/04/2004 18:49:
c'est bien ce que j'ai fait mais rien de rien
"garnote" a écrit dans le message de news:JFXac.74186$
Changer de fil ?
Tu copies ce code dans un module standard : Function sr(PlageDeCellules As Range) Dim C As Range For Each C In PlageDeCellules If C.Interior.ColorIndex = 3 Then If IsNumeric(C) Then sr = sr + C.Value End If End If Next Set C = Nothing End Function
Tu retournes sur ta feuille et tu écris : =sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" a écrit dans le message de news: c4hgck$564$
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
regarde ma réponse dans ton autre fil (grr)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
le 01/04/2004 18:49:
c'est bien ce que j'ai fait mais rien de rien
"garnote" <rien@absent.net> a écrit dans le message de
news:JFXac.74186$aC1.3800@charlie.risq.qc.ca...
Changer de fil ?
Tu copies ce code dans un module standard :
Function sr(PlageDeCellules As Range)
Dim C As Range
For Each C In PlageDeCellules
If C.Interior.ColorIndex = 3 Then
If IsNumeric(C) Then
sr = sr + C.Value
End If
End If
Next
Set C = Nothing
End Function
Tu retournes sur ta feuille et tu écris :
=sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" <rdt83@msn.com> a écrit dans le message de news:
c4hgck$564$1@news-reader3.wanadoo.fr...
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
regarde ma réponse dans ton autre fil (grr) Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 01/04/2004 18:49:
c'est bien ce que j'ai fait mais rien de rien
"garnote" a écrit dans le message de news:JFXac.74186$
Changer de fil ?
Tu copies ce code dans un module standard : Function sr(PlageDeCellules As Range) Dim C As Range For Each C In PlageDeCellules If C.Interior.ColorIndex = 3 Then If IsNumeric(C) Then sr = sr + C.Value End If End If Next Set C = Nothing End Function
Tu retournes sur ta feuille et tu écris : =sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" a écrit dans le message de news: c4hgck$564$
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
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 ?
non
=sr(B13:B24)
"garnote" <rien@absent.net> a écrit dans le message de
news:yLXac.74190$aC1.38272@charlie.risq.qc.ca...
Est-ce que la plage que tu sélectionnes est discontinue ?
"garnote" a écrit dans le message de news:yLXac.74190$
Est-ce que la plage que tu sélectionnes est discontinue ?
rdt83
j'ai bien tout lu sur le site, il est tres bien fait et j'ai appris plein de choses, mais impossible de faire ce que je veux
"Misange" a écrit dans le message de news:
regarde ma réponse dans ton autre fil (grr) Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 01/04/2004 18:49:
c'est bien ce que j'ai fait mais rien de rien
"garnote" a écrit dans le message de news:JFXac.74186$
Changer de fil ?
Tu copies ce code dans un module standard : Function sr(PlageDeCellules As Range) Dim C As Range For Each C In PlageDeCellules If C.Interior.ColorIndex = 3 Then If IsNumeric(C) Then sr = sr + C.Value End If End If Next Set C = Nothing End Function
Tu retournes sur ta feuille et tu écris : =sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" a écrit dans le message de news: c4hgck$564$
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
j'ai bien tout lu sur le site, il est tres bien fait et j'ai appris plein de
choses, mais impossible de faire ce que je veux
"Misange" <misange@devinezou.net> a écrit dans le message de
news:eDSdomAGEHA.4008@TK2MSFTNGP10.phx.gbl...
regarde ma réponse dans ton autre fil (grr)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
le 01/04/2004 18:49:
c'est bien ce que j'ai fait mais rien de rien
"garnote" <rien@absent.net> a écrit dans le message de
news:JFXac.74186$aC1.3800@charlie.risq.qc.ca...
Changer de fil ?
Tu copies ce code dans un module standard :
Function sr(PlageDeCellules As Range)
Dim C As Range
For Each C In PlageDeCellules
If C.Interior.ColorIndex = 3 Then
If IsNumeric(C) Then
sr = sr + C.Value
End If
End If
Next
Set C = Nothing
End Function
Tu retournes sur ta feuille et tu écris :
=sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" <rdt83@msn.com> a écrit dans le message de news:
c4hgck$564$1@news-reader3.wanadoo.fr...
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
j'ai bien tout lu sur le site, il est tres bien fait et j'ai appris plein de choses, mais impossible de faire ce que je veux
"Misange" a écrit dans le message de news:
regarde ma réponse dans ton autre fil (grr) Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 01/04/2004 18:49:
c'est bien ce que j'ai fait mais rien de rien
"garnote" a écrit dans le message de news:JFXac.74186$
Changer de fil ?
Tu copies ce code dans un module standard : Function sr(PlageDeCellules As Range) Dim C As Range For Each C In PlageDeCellules If C.Interior.ColorIndex = 3 Then If IsNumeric(C) Then sr = sr + C.Value End If End If Next Set C = Nothing End Function
Tu retournes sur ta feuille et tu écris : =sr(sélectionne ta plage) et valide par «Entrée».
Serge
"rdt83" a écrit dans le message de news: c4hgck$564$
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
si quelqu'un a un mail, je veux bien lui envoye ma feuille pour regarder ou le bas blesse
si quelqu'un a un mail, je veux bien lui envoye ma feuille
pour regarder ou le bas blesse
rdt83@msn.com
Je viens de te faire parvenir un message dans ta bal.
Serge
"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
j
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 ?
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) ?
J@C
http://jacxl.free.fr
"rdt83" <rdt83@msn.com> a écrit dans le message de news:
c4hhe6$i6i$1@news-reader1.wanadoo.fr...
non
=sr(B13:B24)
"garnote" <rien@absent.net> a écrit dans le message de
news:yLXac.74190$aC1.38272@charlie.risq.qc.ca...
Est-ce que la plage que tu sélectionnes est discontinue ?
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
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 ?
Salut J @ C,
Le problème provenait du fait que c'était la police
qui était rouge.
Serge
"j@c" <adresse_bidon@bidon.fr> a écrit dans le message de news:
406c5cf9$0$16643$636a15ce@news.free.fr...
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) ?
J@C
http://jacxl.free.fr
"rdt83" <rdt83@msn.com> a écrit dans le message de news:
c4hhe6$i6i$1@news-reader1.wanadoo.fr...
non
=sr(B13:B24)
"garnote" <rien@absent.net> a écrit dans le message de
news:yLXac.74190$aC1.38272@charlie.risq.qc.ca...
Est-ce que la plage que tu sélectionnes est discontinue ?
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 ?