Effacer les cellules d'une feuille en fonction d'une couleur

[natbru]

Bonjour le forum,

Je cherche à l'aide d'une macro à effacer toutes les cellules de couleur jaune.

La macro dans le classeur ci-joint fonctionne plutôt bien mais il reste une zone que je ne parviens pas à effacer et je ne comprend absolument pas pourquoi.

Dans le fichier joint, cette zone est entourée en rouge.

Merci pour votre aide toujours aussi précieuse.

Natacha.

 

[DIGGERJACK]

Re : Effacer les cellules d'une feuille en fonction d'une couleur

Bonjour à tous
Tes colonnes g et h sont fusionnées dans ton tableau
Retires cette fusion et tout fonctionnera

Bonne journée

Diggerjack

 

[DIGGERJACK]

Re : Effacer les cellules d'une feuille en fonction d'une couleur

RE

Si tu veux conserver cette mise en page
tu dois centrer ton texte sur plusieurs colonnes
Dès qu'on fait appel à la VBA il faut bannnir la fusion de cellules

Bonne journée
Diggerjack

 

[natbru]

Re : Effacer les cellules d'une feuille en fonction d'une couleur

Bonjour DIGGERJACK,

Merci beaucoup pour ta réponse rapide. Ca marche impec en effet.

A bientot sur le forum.

Natacha

 

[wilfried_42]

Re : Effacer les cellules d'une feuille en fonction d'une couleur

bonjour natbru

J'ai defusionné les cellules et ca marche


Edit, bonjour jack, je suis trop lent lol, reponse, Re reponse

 

[pierrejean]

Re : Effacer les cellules d'une feuille en fonction d'une couleur

bonjour natbru

ton probleme vient des cellules fusionnées (que le Vba n'aime absolument pas)

vois une solution ci-joint en modifiant : format > alignement > centré sur plusieurs colonnes

ps:

on resume next a n'utiliser que lorsque l'on sait quelle ligne fera defaut (et avec un on error Goti 0 des que possible

oups avais pas rafraichi
salut DIGGERJACK

 

[natbru]

Re : Effacer les cellules d'une feuille en fonction d'une couleur

Re,

visiblement on s'est croisé, peux tu me dire comment faut il faire pour centrer sur plusieurs colonnes sans fusionner. Pour cet exemple ce n'est pas trés important mais ca peut servir.

Merci.

 

[natbru]

Re : Effacer les cellules d'une feuille en fonction d'une couleur

Ok merci à vous tous pour vos réponses.

A bientôt.

 

[DIGGERJACK]

Re : Effacer les cellules d'une feuille en fonction d'une couleur

Re à tous et toutes

Avec tous ces messages dans tous les sens voici un exemple au cas où

Pour centrer sur plusieurs colonnes
Taper diggerjack (ou autre chose !!!) en H5
Sélectionner H5, G5, I5
Format /cellule /alignement /horizontal /centrer sur plusieurs colonnes
et voilà

Bonne soirée à tous et toutes

Diggerjack

 

[philmar]

Re : Effacer les cellules d'une feuille en fonction d'une couleur

Bonjour,
je suis nouveau venu et je cherche une macro pour effacer sur une feuille spécifique le contenu des cellules de couleur jaune..je précise que les cellules jaunes sont déverouillées, mais que la feuille est protégée par mot de passe..hic..
Si c'est possible un grand merci
Philippe

 

[KImi9664]

Re : Effacer les cellules d'une feuille en fonction d'une couleur

J'ai le même problème que philmar, ma feuille est protégé et du coup la macro se bloque.
Est-ce possible de rajouter qqch dans le code pour empecher cela?

 

[jeanpierre]

Re : Effacer les cellules d'une feuille en fonction d'une couleur

Bonjour KImi9664, le fil,

Au lancement de ta macro, au début, juste après le Sub......, tu mets :

ActiveSheet.Unprotect ("ton mot de passe s'il y en a un")

et avant le End Sub :

ActiveSheet.Protect ("ton mot de passe s'il y en a un")

Bonne journée.

Jean-Pierre