Comment Ecrire cette formule?

la croisée des pains

XLDnaute Occasionnel
Bonjour à tous,

je voudrais savoir comment écrire cette formule en vba ou autre:

Cellule A1= Toto
Plage = A2:D14

Si dans la cellule A1 est écris toto, effacé la plage(A2:D14) sauf les cellules de celle-ci ou est écris toto.

merci de votre aide

lolo
 

la croisée des pains

XLDnaute Occasionnel
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
 

Pièces jointes

  • Planning_garde_v1.zip
    33.3 KB · Affichages: 21
  • Planning_garde_v1.zip
    33.3 KB · Affichages: 38
  • Planning_garde_v1.zip
    33.3 KB · Affichages: 21

wilfried_42

XLDnaute Barbatruc
Re : Comment Ecrire cette formule?

re:

voici ton fichier en retour

J'ai fait la macro du reaffichage complet
 

Pièces jointes

  • Planning_garde_v1.zip
    34 KB · Affichages: 26
  • Planning_garde_v1.zip
    34 KB · Affichages: 27
  • Planning_garde_v1.zip
    34 KB · Affichages: 25

Discussions similaires

Réponses
4
Affichages
196
Réponses
9
Affichages
190

Statistiques des forums

Discussions
312 330
Messages
2 087 347
Membres
103 525
dernier inscrit
gbaipc