Application d'une macro sur plusieurs feuilles
Bonjour,
Avant tout, je sais qu'il y a différent post sur ce sujet mais malgré toutes les solutions qui y sont proposées je ne trouve pas la solution de mon problème.
J'aimerai appliquer ma macro à toutes mes feuilles (Nombre de semaines d'une année). Mes feuilles se nomment de façon suivante : Sem 01 - Sem 02 - ... - Sem 53.
Voici la macro :
Private Sub Worksheet_Change(ByVal Target As Range)
Chaine = Target.Value
With Target.Interior
If InStr(Chaine, "AUBERT.F") Then .ColorIndex = 3
If InStr(Chaine, "COUILLEBAULT.C") Then .ColorIndex = 3
If InStr(Chaine, "HELARD.C") Then .ColorIndex = 3
If InStr(Chaine, "POULAIN.G") Then .ColorIndex = 3
If InStr(Chaine, "VASSEUR.D") Then .ColorIndex = 3
If InStr(Chaine, "GIRARD.J") Then .ColorIndex = 3
If InStr(Chaine, "AUBERT.C") Then .ColorIndex = 44
If InStr(Chaine, "BLENET.L") Then .ColorIndex = 44
If InStr(Chaine, "BOLON.A") Then .ColorIndex = 44
If InStr(Chaine, "DELCOURT.D") Then .ColorIndex = 44
If InStr(Chaine, "GAUTHIER.M") Then .ColorIndex = 44
If InStr(Chaine, "GUILLON") Then .ColorIndex = 44
If InStr(Chaine, "JOULAIN.E") Then .ColorIndex = 44
If InStr(Chaine, "MORLHON.J") Then .ColorIndex = 44
If InStr(Chaine, "PINHEIRO.P") Then .ColorIndex = 44
If InStr(Chaine, "SAMAOU") Then .ColorIndex = 44
If InStr(Chaine, "TOUCHELET.T") Then .ColorIndex = 44
If InStr(Chaine, "VALOGNES.V") Then .ColorIndex = 44
If InStr(Chaine, "LEVEQUE.Y") Then .ColorIndex = 4
If InStr(Chaine, "BOULAY.J") Then .ColorIndex = 4
If InStr(Chaine, "COTTIER.M") Then .ColorIndex = 4
If InStr(Chaine, "COUILLEBAULT.M") Then .ColorIndex = 4
If InStr(Chaine, "DANIEL.H") Then .ColorIndex = 4
If InStr(Chaine, "JUTTIN.L") Then .ColorIndex = 4
If InStr(Chaine, "JUTTIN.N") Then .ColorIndex = 4
If InStr(Chaine, "POKUNTKE.P") Then .ColorIndex = 4
If InStr(Chaine, "REMER.N") Then .ColorIndex = 4
If InStr(Chaine, "SIMMONET.D") Then .ColorIndex = 4
If InStr(Chaine, "THISSELIN.Y") Then .ColorIndex = 4
If InStr(Chaine, "VIDULICH.M") Then .ColorIndex = 4
If InStr(Chaine, "GAVITELLI") Then .ColorIndex = 4
End With
End Sub
En vous remerciant d'avance.
Bonjour,
Il y a deux sujets distincts :
1. Avoir ta macro évènementielle applicable à toutes tes feuilles
Tu as une possibilité dans le module ThisWorbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)2. Améliorer ta macro ... car tu n'as pas choisi la solution la plus facile ....
Bonjour James007,
Merci de ta réponse mais malheureusement je ne comprend rien aux macros. Celle que j'utilise, je l'ai trouvé sur le web.
Je dois placer dans ThisWorkbook le code que tu me donnes et le tour est joué ?
Bonjour,
Il faut que je prenne un moment pour tout ré-écrire en le simplifiant ...
Bonjour James007,
Désolé de ne pas avoir répondu plus rapidement. Si vous trouvez le temps pour m'aider cela serait très aimable et m'éviterai de perdre du temps sur cette macro !
Merci d'avance.
Bonjour,
Pourrais-tu m'expliquer un peu plus clairement tes contraintes ... ?
J'ai compris que tu as une série de noms partiels qui doivent changer de couleur dans toutes tes feuilles ...
1. Les Noms sont-ils déjà saisis ... ou seront-ils saisis au fur et à mesure ...?
2. Ces Noms sont-ils localisés dans une colonne précise ou peuvent-ils être n'importe où dans toutes les feuilles ...?
Sans voir ton fichier, c'est assez difficile d'imaginer ton objectif final ...
Bonjour James007,
Je dois crée un planning annuel pour mon entreprise avec le personnel.
J'ai 53 feuilles qui correspondent aux 53 semaines de l'année. Sur chaque feuille j'ai 1 semaine de 5 jours soit 5 tableaux.
Grâce aux menus déroulant (donc j'ai une liste de tout mon personnel sur une feuille), je peux affecter du personnel là où nous avons besoin. Ce que j'ai fais c'est que j'ai différencié le poste de chaque personne grâce au code couleur. Mes cellules avec mon personnel sont toujours dans les mêmes colonnes.
Cependant il n'est pas très fiable puisqu'il ne fonctionne pas à chaque fois. Parfois, j'ai un message : "Erreur 13 - Incompatibilité de type".
En espérant avoir été assez clair. C'est toujours difficile d'expliquer ce genre de soucis à l'écrit. Si vous avez besoin de plus ample détail n'hésitez pas !
Merci encore.
Bonjour,
Merci beaucoup pour ces explications qui ont le double mérite d'être claires et de mieux baliser la solution ...
Nul besoin de macro ...
Par contre, pour ne pas refaire inutilement les choses, existe-t-il déjà une liste complète des noms (avec ou sans les couleurs à appliquer...)
Il existe une liste complète des noms sur une feuille à par.
OK ...
A titre de fichier Test ... sans macro, avec MFC, à adapter au véritable fichier de travail ...
Milles MERCI James007 ! Tu m'enlèves une grosse épine du pied !
Merci d'avoir consacré de ton temps pour résoudre mon problème. Merci beaucoup !
Merci pour tes remerciements ...!!! C'est très sympa de ta part ...!!!