Comment Ecrire cette formule?

[la croisée des pains]

Bonjour à tous,

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

Cellule A1= Toto
Plage = A2😀14

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

merci de votre aide

lolo

 

[wilfried_42]

Re : Comment Ecrire cette formule?

bonjour

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

 

[pierrejean]

Re : Comment Ecrire cette formule?

bonjour Lolo la boulange

A tester:

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

Re : Comment Ecrire cette formule?

re,
ok je prepares pour cet aprem

merci

lolo

 

[la croisée des pains]

Re : Comment Ecrire cette formule?

re,
voici le fichier avec les colonnes

merci pour le coup de main

lolo

 

[wilfried_42]

Re : Comment Ecrire cette formule?

re:

ton fichier en retour