Mise en forme d'un plan

[Nesnaj59]

Bonjour,

Je réfléchis à la mise en forme d'un plan ( couleur de remplissage d'une cellule) à partir d'informations extraites sur une autre feuille. Je suis persuadé qu'il existe une solution plus ou moins simple par VBA mais je n'ai pas encore le niveau...

Toutes les informations sont disponibles dans le fichier joint.

Merci beaucoup à la communauté si vous pouvez m'aider.

Cordialement.

Sylvain

 

[Compte Supprimé 979]

Re : Mise en forme d'un plan

Bonsoir Nesnaj59,

Voici ton fichier modifié avec le code qui devrais aller 😉

A+

 

[Nesnaj59]

Re : Mise en forme d'un plan

Merci infiniment, je ne m'attendais pas à une réponse aussi rapide!

 

[Nesnaj59]

Re : Mise en forme d'un plan

Il faut donc renommer chaque cellule du plan représentant un emplacement avec son adresse complète? Comment renommer l'ensemble de chaque cellule en affichant seulement le numéro de l'emplacement ( Tout comme en cellules A3, A4 et A5). J'ai renommé ces 3 cellules en modifiant la police de chaque bloc de caractère dans la barre de formule, ( les caractères que je ne veux pas afficher dans un soucis de lisibilité du plan ont une police blanche pour se rendre invisible). Existe-il un moyen d'effectuer cette opération plus rapidement? Note: le véritable plan comporte plus de 2000 emplacements!

Merci encore.

 

[Hippolite]

Re : Mise en forme d'un plan

Bonjour,
J'ai apporté quelques modifications.
L'ajout des allées en première ligne est nécessaire à la macro.

 

[Nesnaj59]

Re : Mise en forme d'un plan

Bonjour,

Je touche au but grâce à vos contributions. Le tri effectué sur la feuille 2 permet de choisir et d'attribuer manuellement des couleurs à chaque emplacement. J'ai donc encore une petite question afin de pouvoir adapter ce code à d'autres fichiers: Comment chercher une couleur issue d'une mise en forme conditionnelle? Cet élément: Interior.ColorIndex ne reconnait pas à priori la couleur d'une mise en forme conditionnelle.

 

[Hippolite]

Re : Mise en forme d'un plan

Re,
Je connais FormatConditions pour modifier une MFC ou ajouter une condition,
mais je ne sais pas récupérer le format d'une MFC.
Désolé.

 

[Nesnaj59]

Re : Mise en forme d'un plan

Ce n'est pas grave, le code que j'ai me permet déjà de faire beaucoup de choses et je t'en remercie!

 

[Pierrot93]

Re : Mise en forme d'un plan

Bonjour Nesnaj, Hyppolite

pour récupérer l'index de couleur de la 1ère MFC de la cellule A1 :

MsgBox Range("A1").FormatConditions(1).Interior.ColorIndex

bonne journée
@+

 

[Nesnaj59]

Re : Mise en forme d'un plan

Bonsoir,

Merci Pierrot! Je continue à travailler mon fichier, je ne suis pas à l'aise en VB mais j'apprends vite grâce à vos contributions.
Merci à tous.