bonsoir à toutes et tous,
Dans mon planning annuel, les feuilles mois se créent automatiquement mais
je souhaiterais griser les colonnes des samedi et dimanche et celles des
jours Fériés.
Pour ce faire j'ai pensé à une macro par l'enregistreur mais je n'y arrive
pas alors j'explique dans la macro ci-après.
Merci de votre aide éventuelle
Philippe
Sub Griser_WK_et_Jour_fériés()
'
' Macro enregistrée le 21/12/2004 par Philippe
'
' Touche de raccourci du clavier: Ctrl+g
'
Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin",
"Juillet", "Août", _
"Septembre", "Octobre", "Novembre", "Décembre")).Select
Sheets("Janvier").Activate
Range("D5:AH5").Select
'Dans cette selection si il trouve des cases contenant S ou D, je veux
qu'il grise les Cases situées en dessous de chaque lettres trouvées
'à partir de la ligne D7 jusqu'à D65
Range("D6:AH6").Select
'Dans cette selection si il trouve des cases contenant 1 chiffre ecrit
en jaune je veux qu'il grise les Cases situées en dessous de chaque
'Chiffres trouvés à partir de la ligne D7 à D65
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Sitting Hoax \(BM\)
Bonsoir, va donc voir sur le site de Frédéric Sigonneau, il y a une foule de calendriers divers à télécharger http://frederic.sigonneau.free.fr/Calendriers.htm ça m'étonnerait qu'il n'y en ait pas un là dedans qui te convienne. Amicalement Sitting Hoax "Philippe Meresse" a écrit dans le message de news:41c87b91$0$10394$
bonsoir à toutes et tous, Dans mon planning annuel, les feuilles mois se créent automatiquement mais je souhaiterais griser les colonnes des samedi et dimanche et celles des jours Fériés. Pour ce faire j'ai pensé à une macro par l'enregistreur mais je n'y arrive pas alors j'explique dans la macro ci-après. Merci de votre aide éventuelle Philippe
Sub Griser_WK_et_Jour_fériés() ' ' Macro enregistrée le 21/12/2004 par Philippe ' ' Touche de raccourci du clavier: Ctrl+g ' Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _ "Septembre", "Octobre", "Novembre", "Décembre")).Select Sheets("Janvier").Activate
Range("D5:AH5").Select
'Dans cette selection si il trouve des cases contenant S ou D, je veux qu'il grise les Cases situées en dessous de chaque lettres trouvées 'à partir de la ligne D7 jusqu'à D65
Range("D6:AH6").Select
'Dans cette selection si il trouve des cases contenant 1 chiffre ecrit en jaune je veux qu'il grise les Cases situées en dessous de chaque 'Chiffres trouvés à partir de la ligne D7 à D65
End Sub
Bonsoir,
va donc voir sur le site de Frédéric Sigonneau,
il y a une foule de calendriers divers à télécharger
http://frederic.sigonneau.free.fr/Calendriers.htm
ça m'étonnerait qu'il n'y en ait pas un là dedans qui te convienne.
Amicalement
Sitting Hoax
"Philippe Meresse" <Philippe.Meresse@wanadoo.fr> a écrit dans le message de
news:41c87b91$0$10394$8fcfb975@news.wanadoo.fr...
bonsoir à toutes et tous,
Dans mon planning annuel, les feuilles mois se créent automatiquement mais
je souhaiterais griser les colonnes des samedi et dimanche et celles des
jours Fériés.
Pour ce faire j'ai pensé à une macro par l'enregistreur mais je n'y arrive
pas alors j'explique dans la macro ci-après.
Merci de votre aide éventuelle
Philippe
Sub Griser_WK_et_Jour_fériés()
'
' Macro enregistrée le 21/12/2004 par Philippe
'
' Touche de raccourci du clavier: Ctrl+g
'
Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin",
"Juillet", "Août", _
"Septembre", "Octobre", "Novembre", "Décembre")).Select
Sheets("Janvier").Activate
Range("D5:AH5").Select
'Dans cette selection si il trouve des cases contenant S ou D, je veux
qu'il grise les Cases situées en dessous de chaque lettres trouvées
'à partir de la ligne D7 jusqu'à D65
Range("D6:AH6").Select
'Dans cette selection si il trouve des cases contenant 1 chiffre ecrit
en jaune je veux qu'il grise les Cases situées en dessous de chaque
'Chiffres trouvés à partir de la ligne D7 à D65
Bonsoir, va donc voir sur le site de Frédéric Sigonneau, il y a une foule de calendriers divers à télécharger http://frederic.sigonneau.free.fr/Calendriers.htm ça m'étonnerait qu'il n'y en ait pas un là dedans qui te convienne. Amicalement Sitting Hoax "Philippe Meresse" a écrit dans le message de news:41c87b91$0$10394$
bonsoir à toutes et tous, Dans mon planning annuel, les feuilles mois se créent automatiquement mais je souhaiterais griser les colonnes des samedi et dimanche et celles des jours Fériés. Pour ce faire j'ai pensé à une macro par l'enregistreur mais je n'y arrive pas alors j'explique dans la macro ci-après. Merci de votre aide éventuelle Philippe
Sub Griser_WK_et_Jour_fériés() ' ' Macro enregistrée le 21/12/2004 par Philippe ' ' Touche de raccourci du clavier: Ctrl+g ' Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _ "Septembre", "Octobre", "Novembre", "Décembre")).Select Sheets("Janvier").Activate
Range("D5:AH5").Select
'Dans cette selection si il trouve des cases contenant S ou D, je veux qu'il grise les Cases situées en dessous de chaque lettres trouvées 'à partir de la ligne D7 jusqu'à D65
Range("D6:AH6").Select
'Dans cette selection si il trouve des cases contenant 1 chiffre ecrit en jaune je veux qu'il grise les Cases situées en dessous de chaque 'Chiffres trouvés à partir de la ligne D7 à D65
End Sub
Philippe Meresse
Je te remercie Sitting Hoax , je connaissais un peu ce site mais je préfère travailler avec mon classeur que je connais bien mais je voulais juste un peu l'améliorer. @+ Philippe
"Sitting Hoax (BM)" a écrit dans le message de news:
Bonsoir, va donc voir sur le site de Frédéric Sigonneau, il y a une foule de calendriers divers à télécharger http://frederic.sigonneau.free.fr/Calendriers.htm ça m'étonnerait qu'il n'y en ait pas un là dedans qui te convienne. Amicalement Sitting Hoax "Philippe Meresse" a écrit dans le message de news:41c87b91$0$10394$
bonsoir à toutes et tous, Dans mon planning annuel, les feuilles mois se créent automatiquement mais je souhaiterais griser les colonnes des samedi et dimanche et celles des jours Fériés. Pour ce faire j'ai pensé à une macro par l'enregistreur mais je n'y arrive pas alors j'explique dans la macro ci-après. Merci de votre aide éventuelle Philippe
Sub Griser_WK_et_Jour_fériés() ' ' Macro enregistrée le 21/12/2004 par Philippe ' ' Touche de raccourci du clavier: Ctrl+g ' Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _ "Septembre", "Octobre", "Novembre", "Décembre")).Select Sheets("Janvier").Activate
Range("D5:AH5").Select
'Dans cette selection si il trouve des cases contenant S ou D, je veux qu'il grise les Cases situées en dessous de chaque lettres trouvées 'à partir de la ligne D7 jusqu'à D65
Range("D6:AH6").Select
'Dans cette selection si il trouve des cases contenant 1 chiffre ecrit en jaune je veux qu'il grise les Cases situées en dessous de chaque 'Chiffres trouvés à partir de la ligne D7 à D65
End Sub
Je te remercie Sitting Hoax , je connaissais un peu ce site mais je préfère
travailler avec mon classeur que je connais bien mais je voulais juste un
peu l'améliorer.
@+
Philippe
"Sitting Hoax (BM)" <laurent.dauresANTISPAM@wanadoo.fr> a écrit dans le
message de news: OSFmWX55EHA.2608@TK2MSFTNGP10.phx.gbl...
Bonsoir,
va donc voir sur le site de Frédéric Sigonneau,
il y a une foule de calendriers divers à télécharger
http://frederic.sigonneau.free.fr/Calendriers.htm
ça m'étonnerait qu'il n'y en ait pas un là dedans qui te convienne.
Amicalement
Sitting Hoax
"Philippe Meresse" <Philippe.Meresse@wanadoo.fr> a écrit dans le message
de
news:41c87b91$0$10394$8fcfb975@news.wanadoo.fr...
bonsoir à toutes et tous,
Dans mon planning annuel, les feuilles mois se créent automatiquement
mais
je souhaiterais griser les colonnes des samedi et dimanche et celles des
jours Fériés.
Pour ce faire j'ai pensé à une macro par l'enregistreur mais je n'y
arrive
pas alors j'explique dans la macro ci-après.
Merci de votre aide éventuelle
Philippe
Sub Griser_WK_et_Jour_fériés()
'
' Macro enregistrée le 21/12/2004 par Philippe
'
' Touche de raccourci du clavier: Ctrl+g
'
Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin",
"Juillet", "Août", _
"Septembre", "Octobre", "Novembre", "Décembre")).Select
Sheets("Janvier").Activate
Range("D5:AH5").Select
'Dans cette selection si il trouve des cases contenant S ou D, je
veux
qu'il grise les Cases situées en dessous de chaque lettres trouvées
'à partir de la ligne D7 jusqu'à D65
Range("D6:AH6").Select
'Dans cette selection si il trouve des cases contenant 1 chiffre
ecrit
en jaune je veux qu'il grise les Cases situées en dessous de chaque
'Chiffres trouvés à partir de la ligne D7 à D65
Je te remercie Sitting Hoax , je connaissais un peu ce site mais je préfère travailler avec mon classeur que je connais bien mais je voulais juste un peu l'améliorer. @+ Philippe
"Sitting Hoax (BM)" a écrit dans le message de news:
Bonsoir, va donc voir sur le site de Frédéric Sigonneau, il y a une foule de calendriers divers à télécharger http://frederic.sigonneau.free.fr/Calendriers.htm ça m'étonnerait qu'il n'y en ait pas un là dedans qui te convienne. Amicalement Sitting Hoax "Philippe Meresse" a écrit dans le message de news:41c87b91$0$10394$
bonsoir à toutes et tous, Dans mon planning annuel, les feuilles mois se créent automatiquement mais je souhaiterais griser les colonnes des samedi et dimanche et celles des jours Fériés. Pour ce faire j'ai pensé à une macro par l'enregistreur mais je n'y arrive pas alors j'explique dans la macro ci-après. Merci de votre aide éventuelle Philippe
Sub Griser_WK_et_Jour_fériés() ' ' Macro enregistrée le 21/12/2004 par Philippe ' ' Touche de raccourci du clavier: Ctrl+g ' Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _ "Septembre", "Octobre", "Novembre", "Décembre")).Select Sheets("Janvier").Activate
Range("D5:AH5").Select
'Dans cette selection si il trouve des cases contenant S ou D, je veux qu'il grise les Cases situées en dessous de chaque lettres trouvées 'à partir de la ligne D7 jusqu'à D65
Range("D6:AH6").Select
'Dans cette selection si il trouve des cases contenant 1 chiffre ecrit en jaune je veux qu'il grise les Cases situées en dessous de chaque 'Chiffres trouvés à partir de la ligne D7 à D65
