Mise en forme automatique

[Jon311]

Bonjour,

Je cherche le moyen de mettre en forme automatiquement, avec Excel 2007, un grand nombre de cellules (1530 Lignes sur 23 colonnes !!).
J'ai mis en pièce jointe un fichier exemple. Ce seras pour l'appliquer sur un fichier personnel que je ne peut pas partagé.

Pour résumer, je cherche à mettre en forme de façon "automatique" les cellules (B2:G26) de la feuille "Véhicules" suivant la mise en forme des groupes de l'onglet "Routes" (les couleurs de remplissage et de police sont au format RGB) et à "griser" les cellules vides (toujours au format RGB).

Dans cet exemple, j'ai 52 routes différentes, alors que dans mon fichier personnel sur lequel je voudrais l'appliquer, j'en ai plus de 350 !!
A effectuer sur + de 35 000 cellules, ça devient très vite rébarbatif.

J'ai cherché sur internet , mais je n'ai rien trouvé qui pourrait m'aider.
En espérant m'être fait comprendre, je demande un âme charitable pour me dépanner.

Cordialement

 

[laurent3372]

Voici une solution.

HTH
--
AP

 

[Jon311]

En 1 mot : PARFAIT
Peux-tu me détailler le code pour que je puisse l'intégrer à mon fichier ?
J'ai essayé de le faire mais je me retrouve avec :

Erreur de compilation:

Variable on définie

Et la ligne "Sub MiseEnForme()" surligné en jaune

Et merci beaucoup de ton aide

 

[laurent3372]

Envoie ton classeur

 

[Jon311]

J'ai trouvé l'erreur et je l'ai corrigée.

Du coup, ça fonctionne à merveille !!
Je passe le sujet en "Résolu"

Merci beaucoup de ton aide précieuse.

Cordialement