Comment Ecrire cette formule?

Re : Comment Ecrire cette formule?

re,

merci Wilfried, c'est impeccable, super génial....

je voudrais maintenant d'aprés ta formule:

sub efface()
dim cel as range
for each cel in range("B10:M14")
if cel<>range("B1") then
cel.interior.colorindex = 2
cel.font.corlorindex = 2
end if
next
end sub

cela masque le planning et le faire réaparraitre...(en le demasquant) en cliquant sur un bouton.

j'ai essayé d'integrer ton code pour les 3 cellules mais je n'y suis pas arriver.

lolo

Re : Comment Ecrire cette formule?

re:

voici ton fichier en retour

J'ai fait la macro du reaffichage complet

Re : Comment Ecrire cette formule?

re,

juste un mot génial
merci encore, plus qu' a le faire pour tous les cellules.

@+ Wildfried

lolo