XL 2016 Reproduire la mise en forme d'une cellule sur une autre page

[cedric45]

Bonjour a tous,
J'utilise un tableau excel avec plusieurs pages, sur la 1ere page je rentre les numéros de dossier (1/ligne) avec coordonnés et récapitulatif
en page 2 le pointage des heures passées sur chaque dossier
en page 3 les dépenses par dossier.

J'applique une couleur différente en fond de cellule pour chaque dossier (21.001, 21.002, 21.003...) et j'aimerai retrouver cette mise en forme sur les autres pages des que je rentre le numéro de dossier dans une cellule.

Avez vous une idée pour réaliser cette manipulation automatiquement ??

merci d'avance

 

[cedric45]

Bonjour,
cette nouvelle version fonctionne parfaitement.
J'ai tenté d'ajouter une exécution automatique avec la fonction
Private Sub Workbook_Open()
test_mfc_III()
End Sub
mais a l'ouverture j'ai un message d'erreur de compilation erreur de syntaxe

 

[Staple1600]

Bonjour le fil

Essaie ainsi (non testé)

Private Sub Workbook_Open()
Call test_mfc_III
End Sub

PS: les autres codes fonctionnaient aussi.
Je le sais, je les ai testé avant de les poster...

 

[cedric45]

re,
je pense que le code s’exécute malgré tout même si a l'ouverture du classeur j'ai erreur de compilation : Sub ou Function non définie.

Pour continuer dans la couleur des cellules...
Existe il un code qui pourrait reproduire la couleur de la cellule (assignée manuellement avec l'outil remplissage) en fonction de sa valeur par exemple 21.001 ?

PS : les autres codes fonctionnaient aussi

 

[Staple1600]

Re

La macro test_mfc_III doit être dans un module standard.
(Et ce module doit être dans le classeur contenant le WorkBook_Open() )

 

[cedric45]

Bonjour Staple,
Ma demande de mise en couleur des cellules est résolu grâce a toi et je te remercie.
J'ai du coup conservé le 1er code .
A l'ouverture du classeur l'erreur de syntaxe apparait mais le code fonctionne.
J'ai ajouté le code en créant un module et dans thisworkbook le code a lancer, je joint au cas ou le fichier pour m'aiguiller dans la modification a apporter
merci et bonne soirée

 

[Staple1600]

Bonjour

Etre attentif quand on fait du VBA, ca peut être utile
Relis attentivement sans attendre le message#17
Puis compare avec ce que tu as écrit dans ton classeur exemple

Private Sub Workbook_Open()
Sub Couleur_cellule()
End Sub

Tu trouves que ta syntaxe est équivalente à ma syntaxe?


Je te laisse faire la modification idoine.

 

[cedric45]

j'avais abandonné le call !!!
merci

 

[Staple1600]

Re

Précisions: j'utilise actuellement Excel 2003 qui est limitée à 3 conditions dans sa MFC.

Ce qui n'est plus le cas dans les versions ultérieures.

Dans les versions ultéreiures, on peut faire une MFC avec dégradé de couleurs.
Mais je ne peux pas tester ces possibilités actuellement.

 

[Staple1600]

j'avais abandonné le call !!!
merci

Et les deux parenthèses sont de trop aussi
La bonne syntaxe c'est

Private Sub Workbook_Open()
Call Couleur_cellule
End Sub

On peut aussi oublier le Call

Private Sub Workbook_Open()
Couleur_cellule
End Sub

Mais il me plait de le garder parfois
Cela me rappelle le Call Me de Blondie )