Comment Ecrire cette formule?

la croisée des pains · 2 Octobre 2007

Bonjour à tous,

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

Cellule A1= Toto
Plage = A214

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

merci de votre aide

lolo

wilfried_42 · 2 Octobre 2007

Re : Comment Ecrire cette formule?

bonjour

sub efface()
dim cel as range
for each cel in range("A214")
if cel<>range("A1") then cel.clear
next
end sub

pierrejean · 2 Octobre 2007

Re : Comment Ecrire cette formule?

bonjour Lolo la boulange

A tester:

Code:

If Range("A1") = "toto" Then
  For Each cel In Range("A2:D14")
   If cel.Value <> "toto" Then cel.Value = ""
  Next cel
End If

edit

avais pas rafraichi

Salut wilfried

la croisée des pains · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re,
bjr pierrejean et wilfried

merci cela marche....

juste un ptit problème , c'est des cellules fusionnées dans la plage ... et est-ce que on peux seulement les masquer au lieu de les effacer et les faire réaparraitre après...

lolo

pierrejean · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re

les cellules fusionnées sont une horreur pour le Vba
essaie de remplacer plutot par : Centrer sur plusieurs colonnes
ensuite pour faire disparaitre on peut mettre l'ecriture dans la même teinte que le fond , ce qui permet de retablir ensuite
avec un petit fichier exemple (sans donnes confidentielles ) ,il nous serait plus facile de t'aider

wilfried_42 · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re:

Bonjour pierrejean

n'eface pas mais masque la cellule en affectant une couleur de fonte identique à la couleur de fond

sub efface()
dim cel as range
for each cel in range("A214")
if cel<>range("A1") then
cel.interior.colorindex = 1
cel.font.corlorindex = 1
end if
next
end sub

la croisée des pains · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re,

merci à vous de l'aide

Comment fait-on pour centre sur plusieurs colonnes?

je joins le fichier

merci

lolo

wilfried_42 · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re:

ca va etre compliqué dans ton cas,

1 - tu utilises une liste de validation sur des cellules fusionées, si tu les defusionnes, la liste de validation sera sur une seule cellule

2 - Tu utilises la macro de MDF pour des MFC multiples, > à 3 conditions ou elle fonctionne sur des cellules fusionnée, mais si tu defusionnes, la macro ne fonctionnera que sur la cellule saisie

sinon
tu selectionnes la plage ou doit etre centrée la valeur
Format cellule - onglet alignement - Horizontalement ---> Centrer sur plusieur colonnes

la croisée des pains · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re,
merci wilfried,

y'a t'il un moyen si je reconstruit le tableau de pouvoir centrer sur plusieurs colonnes et colorier ses colonnes en fonction de la 1ere cellule?

centrer oui mais coloriez les 3 cellules?

merci de ta reponse

lolo

wilfried_42 · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re:

Pour cela il faut modifier la macro de didier,

et aussi equilibrer le fichier car dans certains cas tu as 3 cellules de fusionnées et dans d'autre, tu en as 2
il faudrait inserrer une colonne pour tout equilibrer à 3 cellules

quit à la masquer, une fois que c'est terminé

la croisée des pains · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re,

mettre 3 colonnes cela n'est pas un problème mais la macro de didier ne fait pas référence à "merge" qui correspond à fusionner. A moins qu'il y'a un autre terme

la je ne sais pas faire, le super boulot de didier!!!

wilfried_42 · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re:

prepare ton fichier, avec les trois colonnes et renvoie le, pour ce qui est de la macro, il y a plein de monde qui pourra la modifier

la croisée des pains · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re,
ok je prepares pour cet aprem

merci

lolo

la croisée des pains · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re,
voici le fichier avec les colonnes

merci pour le coup de main

lolo

wilfried_42 · 2 Octobre 2007

Re : Comment Ecrire cette formule?

re:

ton fichier en retour

Comment Ecrire cette formule?

la croisée des pains

XLDnaute Occasionnel

wilfried_42

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

la croisée des pains

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

wilfried_42

XLDnaute Barbatruc

la croisée des pains

XLDnaute Occasionnel

Pièces jointes

wilfried_42

XLDnaute Barbatruc

la croisée des pains

XLDnaute Occasionnel

wilfried_42

XLDnaute Barbatruc

la croisée des pains

XLDnaute Occasionnel

wilfried_42

XLDnaute Barbatruc

la croisée des pains

XLDnaute Occasionnel

la croisée des pains

XLDnaute Occasionnel

Pièces jointes

wilfried_42

XLDnaute Barbatruc

Pièces jointes

Discussions similaires