Bonjour à toutes et à tous,
Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
leur
contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
toutes mes feuilles et qui pourrait effectuer ces mises en forme.
2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
en
même temps la colonne correspondante si la cellule 1 contient la lettre D.
Merci pour vos efforts
Michel69
Bonjour à toutes et à tous,
Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
leur
contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
toutes mes feuilles et qui pourrait effectuer ces mises en forme.
2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
en
même temps la colonne correspondante si la cellule 1 contient la lettre D.
Merci pour vos efforts
Michel69
Bonjour à toutes et à tous,
Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
leur
contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
toutes mes feuilles et qui pourrait effectuer ces mises en forme.
2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
en
même temps la colonne correspondante si la cellule 1 contient la lettre D.
Merci pour vos efforts
Michel69
Bonjour à toutes et à tous,
Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
leur
contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
toutes mes feuilles et qui pourrait effectuer ces mises en forme.
2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
en
même temps la colonne correspondante si la cellule 1 contient la lettre D.
Merci pour vos efforts
Michel69
Bonjour à toutes et à tous,
Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
leur
contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
toutes mes feuilles et qui pourrait effectuer ces mises en forme.
2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
en
même temps la colonne correspondante si la cellule 1 contient la lettre D.
Merci pour vos efforts
Michel69
Bonjour à toutes et à tous,
Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
leur
contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
toutes mes feuilles et qui pourrait effectuer ces mises en forme.
2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
en
même temps la colonne correspondante si la cellule 1 contient la lettre D.
Merci pour vos efforts
Michel69
Pour plus de sureté, remplace :
Set c = sh.[C3:AG194].Find("*")
par :
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
Daniel
"Michel69" a écrit dans le message de
news:
> Bonjour à toutes et à tous,
> Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
> cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
> leur
> contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> 1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
> toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
> en
> même temps la colonne correspondante si la cellule 1 contient la lettre D.
> Merci pour vos efforts
> Michel69
Pour plus de sureté, remplace :
Set c = sh.[C3:AG194].Find("*")
par :
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
Daniel
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 09557718-12D4-49C4-8E0A-E40001A1679E@microsoft.com...
> Bonjour à toutes et à tous,
> Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
> cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
> leur
> contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> 1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
> toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
> en
> même temps la colonne correspondante si la cellule 1 contient la lettre D.
> Merci pour vos efforts
> Michel69
Pour plus de sureté, remplace :
Set c = sh.[C3:AG194].Find("*")
par :
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
Daniel
"Michel69" a écrit dans le message de
news:
> Bonjour à toutes et à tous,
> Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
> cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
> leur
> contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> 1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
> toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
> en
> même temps la colonne correspondante si la cellule 1 contient la lettre D.
> Merci pour vos efforts
> Michel69
Bonjour et encore merci Daniel.C
Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
par case pour adapter la police à la couleur de fond. Il me traite toutes mes
feuilles.
y a t-il une limite dans les "Case" car au bout du dixième le code plante
"Impossibilité de définir la colorindex de la classe font". c'est la couleur
2 (blanc) tu vois une explication ?
Merci
Michel
"Daniel.C" a écrit :
> Pour plus de sureté, remplace :
> Set c = sh.[C3:AG194].Find("*")
> par :
> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
> Daniel
> "Michel69" a écrit dans le message de
> news:
> > Bonjour à toutes et à tous,
> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
> > leur
> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
> > en
> > même temps la colonne correspondante si la cellule 1 contient la lettre D.
> > Merci pour vos efforts
> > Michel69
>
>
>
Bonjour et encore merci Daniel.C
Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
par case pour adapter la police à la couleur de fond. Il me traite toutes mes
feuilles.
y a t-il une limite dans les "Case" car au bout du dixième le code plante
"Impossibilité de définir la colorindex de la classe font". c'est la couleur
2 (blanc) tu vois une explication ?
Merci
Michel
"Daniel.C" a écrit :
> Pour plus de sureté, remplace :
> Set c = sh.[C3:AG194].Find("*")
> par :
> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
> Daniel
> "Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
> news: 09557718-12D4-49C4-8E0A-E40001A1679E@microsoft.com...
> > Bonjour à toutes et à tous,
> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
> > leur
> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
> > en
> > même temps la colonne correspondante si la cellule 1 contient la lettre D.
> > Merci pour vos efforts
> > Michel69
>
>
>
Bonjour et encore merci Daniel.C
Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
par case pour adapter la police à la couleur de fond. Il me traite toutes mes
feuilles.
y a t-il une limite dans les "Case" car au bout du dixième le code plante
"Impossibilité de définir la colorindex de la classe font". c'est la couleur
2 (blanc) tu vois une explication ?
Merci
Michel
"Daniel.C" a écrit :
> Pour plus de sureté, remplace :
> Set c = sh.[C3:AG194].Find("*")
> par :
> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
> Daniel
> "Michel69" a écrit dans le message de
> news:
> > Bonjour à toutes et à tous,
> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
> > leur
> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en revue
> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment colorer
> > en
> > même temps la colonne correspondante si la cellule 1 contient la lettre D.
> > Merci pour vos efforts
> > Michel69
>
>
>
Bonjour et encore merci Daniel.C
Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
par case pour adapter la police à la couleur de fond. Il me traite toutes
mes
feuilles.
y a t-il une limite dans les "Case" car au bout du dixième le code plante
"Impossibilité de définir la colorindex de la classe font". c'est la
couleur
2 (blanc) tu vois une explication ?
Merci
Michel
"Daniel.C" a écrit :Pour plus de sureté, remplace :
Set c = sh.[C3:AG194].Find("*")
par :
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
Daniel
"Michel69" a écrit dans le message
de
news:
> Bonjour à toutes et à tous,
> Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
> cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
> leur
> contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
> revue
> toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
> colorer
> en
> même temps la colonne correspondante si la cellule 1 contient la lettre
> D.
> Merci pour vos efforts
> Michel69
Bonjour et encore merci Daniel.C
Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
par case pour adapter la police à la couleur de fond. Il me traite toutes
mes
feuilles.
y a t-il une limite dans les "Case" car au bout du dixième le code plante
"Impossibilité de définir la colorindex de la classe font". c'est la
couleur
2 (blanc) tu vois une explication ?
Merci
Michel
"Daniel.C" a écrit :
Pour plus de sureté, remplace :
Set c = sh.[C3:AG194].Find("*")
par :
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
Daniel
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message
de
news: 09557718-12D4-49C4-8E0A-E40001A1679E@microsoft.com...
> Bonjour à toutes et à tous,
> Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
> cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
> leur
> contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
> revue
> toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
> colorer
> en
> même temps la colonne correspondante si la cellule 1 contient la lettre
> D.
> Merci pour vos efforts
> Michel69
Bonjour et encore merci Daniel.C
Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
par case pour adapter la police à la couleur de fond. Il me traite toutes
mes
feuilles.
y a t-il une limite dans les "Case" car au bout du dixième le code plante
"Impossibilité de définir la colorindex de la classe font". c'est la
couleur
2 (blanc) tu vois une explication ?
Merci
Michel
"Daniel.C" a écrit :Pour plus de sureté, remplace :
Set c = sh.[C3:AG194].Find("*")
par :
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
Daniel
"Michel69" a écrit dans le message
de
news:
> Bonjour à toutes et à tous,
> Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
> cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
> leur
> contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
> revue
> toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
> colorer
> en
> même temps la colonne correspondante si la cellule 1 contient la lettre
> D.
> Merci pour vos efforts
> Michel69
Daniel.C,
Encore une petite question, mon classeur possède 25 feuilles, comment ton
code selectionne-t-il que les feuilles "Jan 09 à Déc 09" ? Merci
Michel69
"Michel69" a écrit :Bonjour et encore merci Daniel.C
Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
par case pour adapter la police à la couleur de fond. Il me traite toutes
mes
feuilles.
y a t-il une limite dans les "Case" car au bout du dixième le code plante
"Impossibilité de définir la colorindex de la classe font". c'est la
couleur
2 (blanc) tu vois une explication ?
Merci
Michel
"Daniel.C" a écrit :
> Pour plus de sureté, remplace :
> Set c = sh.[C3:AG194].Find("*")
> par :
> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
> Daniel
> "Michel69" a écrit dans le message
> de
> news:
> > Bonjour à toutes et à tous,
> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer
> > les
> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction
> > de
> > leur
> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
> > revue
> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
> > colorer
> > en
> > même temps la colonne correspondante si la cellule 1 contient la
> > lettre D.
> > Merci pour vos efforts
> > Michel69
>
>
>
Daniel.C,
Encore une petite question, mon classeur possède 25 feuilles, comment ton
code selectionne-t-il que les feuilles "Jan 09 à Déc 09" ? Merci
Michel69
"Michel69" a écrit :
Bonjour et encore merci Daniel.C
Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
par case pour adapter la police à la couleur de fond. Il me traite toutes
mes
feuilles.
y a t-il une limite dans les "Case" car au bout du dixième le code plante
"Impossibilité de définir la colorindex de la classe font". c'est la
couleur
2 (blanc) tu vois une explication ?
Merci
Michel
"Daniel.C" a écrit :
> Pour plus de sureté, remplace :
> Set c = sh.[C3:AG194].Find("*")
> par :
> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
> Daniel
> "Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message
> de
> news: 09557718-12D4-49C4-8E0A-E40001A1679E@microsoft.com...
> > Bonjour à toutes et à tous,
> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer
> > les
> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction
> > de
> > leur
> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
> > revue
> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
> > colorer
> > en
> > même temps la colonne correspondante si la cellule 1 contient la
> > lettre D.
> > Merci pour vos efforts
> > Michel69
>
>
>
Daniel.C,
Encore une petite question, mon classeur possède 25 feuilles, comment ton
code selectionne-t-il que les feuilles "Jan 09 à Déc 09" ? Merci
Michel69
"Michel69" a écrit :Bonjour et encore merci Daniel.C
Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
par case pour adapter la police à la couleur de fond. Il me traite toutes
mes
feuilles.
y a t-il une limite dans les "Case" car au bout du dixième le code plante
"Impossibilité de définir la colorindex de la classe font". c'est la
couleur
2 (blanc) tu vois une explication ?
Merci
Michel
"Daniel.C" a écrit :
> Pour plus de sureté, remplace :
> Set c = sh.[C3:AG194].Find("*")
> par :
> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
> Daniel
> "Michel69" a écrit dans le message
> de
> news:
> > Bonjour à toutes et à tous,
> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer
> > les
> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction
> > de
> > leur
> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
> > revue
> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
> > colorer
> > en
> > même temps la colonne correspondante si la cellule 1 contient la
> > lettre D.
> > Merci pour vos efforts
> > Michel69
>
>
>
A priori, je ne connais pas de limite. Le problème semble plutôt avec
colorindex. Le numéro choisi existe-il ? Poste ton code.
Daniel
"Michel69" a écrit dans le message de
news:
> Bonjour et encore merci Daniel.C
> Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
> par case pour adapter la police à la couleur de fond. Il me traite toutes
> mes
> feuilles.
> y a t-il une limite dans les "Case" car au bout du dixième le code plante
> "Impossibilité de définir la colorindex de la classe font". c'est la
> couleur
> 2 (blanc) tu vois une explication ?
> Merci
> Michel
>
> "Daniel.C" a écrit :
>
>> Pour plus de sureté, remplace :
>> Set c = sh.[C3:AG194].Find("*")
>> par :
>> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> Daniel
>> "Michel69" a écrit dans le message
>> de
>> news:
>> > Bonjour à toutes et à tous,
>> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
>> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
>> > leur
>> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> > revue
>> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> > colorer
>> > en
>> > même temps la colonne correspondante si la cellule 1 contient la lettre
>> > D.
>> > Merci pour vos efforts
>> > Michel69
>>
>>
>>
A priori, je ne connais pas de limite. Le problème semble plutôt avec
colorindex. Le numéro choisi existe-il ? Poste ton code.
Daniel
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 6FCAD18E-3648-46C1-995B-8C8BEBA239D9@microsoft.com...
> Bonjour et encore merci Daniel.C
> Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
> par case pour adapter la police à la couleur de fond. Il me traite toutes
> mes
> feuilles.
> y a t-il une limite dans les "Case" car au bout du dixième le code plante
> "Impossibilité de définir la colorindex de la classe font". c'est la
> couleur
> 2 (blanc) tu vois une explication ?
> Merci
> Michel
>
> "Daniel.C" a écrit :
>
>> Pour plus de sureté, remplace :
>> Set c = sh.[C3:AG194].Find("*")
>> par :
>> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> Daniel
>> "Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message
>> de
>> news: 09557718-12D4-49C4-8E0A-E40001A1679E@microsoft.com...
>> > Bonjour à toutes et à tous,
>> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
>> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
>> > leur
>> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> > revue
>> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> > colorer
>> > en
>> > même temps la colonne correspondante si la cellule 1 contient la lettre
>> > D.
>> > Merci pour vos efforts
>> > Michel69
>>
>>
>>
A priori, je ne connais pas de limite. Le problème semble plutôt avec
colorindex. Le numéro choisi existe-il ? Poste ton code.
Daniel
"Michel69" a écrit dans le message de
news:
> Bonjour et encore merci Daniel.C
> Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
> par case pour adapter la police à la couleur de fond. Il me traite toutes
> mes
> feuilles.
> y a t-il une limite dans les "Case" car au bout du dixième le code plante
> "Impossibilité de définir la colorindex de la classe font". c'est la
> couleur
> 2 (blanc) tu vois une explication ?
> Merci
> Michel
>
> "Daniel.C" a écrit :
>
>> Pour plus de sureté, remplace :
>> Set c = sh.[C3:AG194].Find("*")
>> par :
>> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> Daniel
>> "Michel69" a écrit dans le message
>> de
>> news:
>> > Bonjour à toutes et à tous,
>> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
>> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
>> > leur
>> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> > revue
>> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> > colorer
>> > en
>> > même temps la colonne correspondante si la cellule 1 contient la lettre
>> > D.
>> > Merci pour vos efforts
>> > Michel69
>>
>>
>>
A priori, je ne connais pas de limite. Le problème semble plutôt avec
colorindex. Le numéro choisi existe-il ? Poste ton code.
Daniel
"Michel69" a écrit dans le message de
news:
> Bonjour et encore merci Daniel.C
> Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
> par case pour adapter la police à la couleur de fond. Il me traite toutes
> mes
> feuilles.
> y a t-il une limite dans les "Case" car au bout du dixième le code plante
> "Impossibilité de définir la colorindex de la classe font". c'est la
> couleur
> 2 (blanc) tu vois une explication ?
> Merci
> Michel
>
> "Daniel.C" a écrit :
>
>> Pour plus de sureté, remplace :
>> Set c = sh.[C3:AG194].Find("*")
>> par :
>> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> Daniel
>> "Michel69" a écrit dans le message
>> de
>> news:
>> > Bonjour à toutes et à tous,
>> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
>> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
>> > leur
>> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> > revue
>> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> > colorer
>> > en
>> > même temps la colonne correspondante si la cellule 1 contient la lettre
>> > D.
>> > Merci pour vos efforts
>> > Michel69
>>
>>
>>
A priori, je ne connais pas de limite. Le problème semble plutôt avec
colorindex. Le numéro choisi existe-il ? Poste ton code.
Daniel
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 6FCAD18E-3648-46C1-995B-8C8BEBA239D9@microsoft.com...
> Bonjour et encore merci Daniel.C
> Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
> par case pour adapter la police à la couleur de fond. Il me traite toutes
> mes
> feuilles.
> y a t-il une limite dans les "Case" car au bout du dixième le code plante
> "Impossibilité de définir la colorindex de la classe font". c'est la
> couleur
> 2 (blanc) tu vois une explication ?
> Merci
> Michel
>
> "Daniel.C" a écrit :
>
>> Pour plus de sureté, remplace :
>> Set c = sh.[C3:AG194].Find("*")
>> par :
>> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> Daniel
>> "Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message
>> de
>> news: 09557718-12D4-49C4-8E0A-E40001A1679E@microsoft.com...
>> > Bonjour à toutes et à tous,
>> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
>> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
>> > leur
>> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> > revue
>> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> > colorer
>> > en
>> > même temps la colonne correspondante si la cellule 1 contient la lettre
>> > D.
>> > Merci pour vos efforts
>> > Michel69
>>
>>
>>
A priori, je ne connais pas de limite. Le problème semble plutôt avec
colorindex. Le numéro choisi existe-il ? Poste ton code.
Daniel
"Michel69" a écrit dans le message de
news:
> Bonjour et encore merci Daniel.C
> Ton code fonctionne très bien. En plus j'ai rajouté une c.font.colorindex
> par case pour adapter la police à la couleur de fond. Il me traite toutes
> mes
> feuilles.
> y a t-il une limite dans les "Case" car au bout du dixième le code plante
> "Impossibilité de définir la colorindex de la classe font". c'est la
> couleur
> 2 (blanc) tu vois une explication ?
> Merci
> Michel
>
> "Daniel.C" a écrit :
>
>> Pour plus de sureté, remplace :
>> Set c = sh.[C3:AG194].Find("*")
>> par :
>> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> Daniel
>> "Michel69" a écrit dans le message
>> de
>> news:
>> > Bonjour à toutes et à tous,
>> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer les
>> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction de
>> > leur
>> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> > revue
>> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> > colorer
>> > en
>> > même temps la colonne correspondante si la cellule 1 contient la lettre
>> > D.
>> > Merci pour vos efforts
>> > Michel69
>>
>>
>>
Daniel.C
Voici le code :
Sub Bouton18_QuandClic()
Dim sh As Worksheet, c As Range, ResAdr As String
MsgBox ("Celà va prendre quelques minutes, Veuillez patienter, Merci")
For Each sh In Sheets
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
If Not c Is Nothing Then
ResAdr = c.Address
Do
Select Case c
Case "M": c.Font.ColorIndex = 1 'Police en Noir
Case "M": c.Interior.ColorIndex = 38 'Fond Rose Saumon
Case "S": c.Font.ColorIndex = 1 'Police en Noir
Case "S": c.Interior.ColorIndex = 37 'Fond Bleu moyen
Case "J": c.Font.ColorIndex = 1 'Police en Noir
Case "J": c.Interior.ColorIndex = 15 'Fond Gris 25%
Case "MAL": c.Font.ColorIndex = 2 'Police en Blanc
Case "MAL": c.Interior.ColorIndex = 46 'Fond Orange
Case "C": c.Font.ColorIndex = 1 'Police en Noir
Case "C": c.Interior.ColorIndex = 36 'Fond Jaune clair
Case "AT": c.Font.ColorIndex = 2 '<<<<<<<<< PLANTAGE A CE NIVEAU
Case "AT": c.Interior.ColorIndex = 46
Case "FC": c.Font.ColorIndex = 1
Case "FC": c.Interior.ColorIndex = 15
Case "F": c.Font.ColorIndex = 1
Case "F": c.Interior.ColorIndex = 36
Case "R": c.Font.ColorIndex = 1
Case "R": c.Interior.ColorIndex = 36
Case "CEX": c.Font.ColorIndex = 1
Case "CEX": c.Interior.ColorIndex = 36
Case "RTT": c.Font.ColorIndex = 1
Case "RTT": c.Interior.ColorIndex = 36
Case "ABS": c.Font.ColorIndex = 2
Case "ABS": c.Interior.ColorIndex = 3
End Select
Set c = sh.[C3:AG194].FindNext(c)
Loop Until c Is Nothing Or c.Address = ResAdr
End If
Next sh
End Sub
"Daniel.C" a écrit :A priori, je ne connais pas de limite. Le problème semble plutôt avec
colorindex. Le numéro choisi existe-il ? Poste ton code.
Daniel
"Michel69" a écrit dans le message
de
news:
> Bonjour et encore merci Daniel.C
> Ton code fonctionne très bien. En plus j'ai rajouté une
> c.font.colorindex
> par case pour adapter la police à la couleur de fond. Il me traite
> toutes
> mes
> feuilles.
> y a t-il une limite dans les "Case" car au bout du dixième le code
> plante
> "Impossibilité de définir la colorindex de la classe font". c'est la
> couleur
> 2 (blanc) tu vois une explication ?
> Merci
> Michel
>
> "Daniel.C" a écrit :
>
>> Pour plus de sureté, remplace :
>> Set c = sh.[C3:AG194].Find("*")
>> par :
>> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> Daniel
>> "Michel69" a écrit dans le
>> message
>> de
>> news:
>> > Bonjour à toutes et à tous,
>> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer
>> > les
>> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction
>> > de
>> > leur
>> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> > revue
>> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> > colorer
>> > en
>> > même temps la colonne correspondante si la cellule 1 contient la
>> > lettre
>> > D.
>> > Merci pour vos efforts
>> > Michel69
>>
>>
>>
Daniel.C
Voici le code :
Sub Bouton18_QuandClic()
Dim sh As Worksheet, c As Range, ResAdr As String
MsgBox ("Celà va prendre quelques minutes, Veuillez patienter, Merci")
For Each sh In Sheets
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
If Not c Is Nothing Then
ResAdr = c.Address
Do
Select Case c
Case "M": c.Font.ColorIndex = 1 'Police en Noir
Case "M": c.Interior.ColorIndex = 38 'Fond Rose Saumon
Case "S": c.Font.ColorIndex = 1 'Police en Noir
Case "S": c.Interior.ColorIndex = 37 'Fond Bleu moyen
Case "J": c.Font.ColorIndex = 1 'Police en Noir
Case "J": c.Interior.ColorIndex = 15 'Fond Gris 25%
Case "MAL": c.Font.ColorIndex = 2 'Police en Blanc
Case "MAL": c.Interior.ColorIndex = 46 'Fond Orange
Case "C": c.Font.ColorIndex = 1 'Police en Noir
Case "C": c.Interior.ColorIndex = 36 'Fond Jaune clair
Case "AT": c.Font.ColorIndex = 2 '<<<<<<<<< PLANTAGE A CE NIVEAU
Case "AT": c.Interior.ColorIndex = 46
Case "FC": c.Font.ColorIndex = 1
Case "FC": c.Interior.ColorIndex = 15
Case "F": c.Font.ColorIndex = 1
Case "F": c.Interior.ColorIndex = 36
Case "R": c.Font.ColorIndex = 1
Case "R": c.Interior.ColorIndex = 36
Case "CEX": c.Font.ColorIndex = 1
Case "CEX": c.Interior.ColorIndex = 36
Case "RTT": c.Font.ColorIndex = 1
Case "RTT": c.Interior.ColorIndex = 36
Case "ABS": c.Font.ColorIndex = 2
Case "ABS": c.Interior.ColorIndex = 3
End Select
Set c = sh.[C3:AG194].FindNext(c)
Loop Until c Is Nothing Or c.Address = ResAdr
End If
Next sh
End Sub
"Daniel.C" a écrit :
A priori, je ne connais pas de limite. Le problème semble plutôt avec
colorindex. Le numéro choisi existe-il ? Poste ton code.
Daniel
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message
de
news: 6FCAD18E-3648-46C1-995B-8C8BEBA239D9@microsoft.com...
> Bonjour et encore merci Daniel.C
> Ton code fonctionne très bien. En plus j'ai rajouté une
> c.font.colorindex
> par case pour adapter la police à la couleur de fond. Il me traite
> toutes
> mes
> feuilles.
> y a t-il une limite dans les "Case" car au bout du dixième le code
> plante
> "Impossibilité de définir la colorindex de la classe font". c'est la
> couleur
> 2 (blanc) tu vois une explication ?
> Merci
> Michel
>
> "Daniel.C" a écrit :
>
>> Pour plus de sureté, remplace :
>> Set c = sh.[C3:AG194].Find("*")
>> par :
>> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> Daniel
>> "Michel69" <Michel69@discussions.microsoft.com> a écrit dans le
>> message
>> de
>> news: 09557718-12D4-49C4-8E0A-E40001A1679E@microsoft.com...
>> > Bonjour à toutes et à tous,
>> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer
>> > les
>> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction
>> > de
>> > leur
>> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> > revue
>> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> > colorer
>> > en
>> > même temps la colonne correspondante si la cellule 1 contient la
>> > lettre
>> > D.
>> > Merci pour vos efforts
>> > Michel69
>>
>>
>>
Daniel.C
Voici le code :
Sub Bouton18_QuandClic()
Dim sh As Worksheet, c As Range, ResAdr As String
MsgBox ("Celà va prendre quelques minutes, Veuillez patienter, Merci")
For Each sh In Sheets
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
If Not c Is Nothing Then
ResAdr = c.Address
Do
Select Case c
Case "M": c.Font.ColorIndex = 1 'Police en Noir
Case "M": c.Interior.ColorIndex = 38 'Fond Rose Saumon
Case "S": c.Font.ColorIndex = 1 'Police en Noir
Case "S": c.Interior.ColorIndex = 37 'Fond Bleu moyen
Case "J": c.Font.ColorIndex = 1 'Police en Noir
Case "J": c.Interior.ColorIndex = 15 'Fond Gris 25%
Case "MAL": c.Font.ColorIndex = 2 'Police en Blanc
Case "MAL": c.Interior.ColorIndex = 46 'Fond Orange
Case "C": c.Font.ColorIndex = 1 'Police en Noir
Case "C": c.Interior.ColorIndex = 36 'Fond Jaune clair
Case "AT": c.Font.ColorIndex = 2 '<<<<<<<<< PLANTAGE A CE NIVEAU
Case "AT": c.Interior.ColorIndex = 46
Case "FC": c.Font.ColorIndex = 1
Case "FC": c.Interior.ColorIndex = 15
Case "F": c.Font.ColorIndex = 1
Case "F": c.Interior.ColorIndex = 36
Case "R": c.Font.ColorIndex = 1
Case "R": c.Interior.ColorIndex = 36
Case "CEX": c.Font.ColorIndex = 1
Case "CEX": c.Interior.ColorIndex = 36
Case "RTT": c.Font.ColorIndex = 1
Case "RTT": c.Interior.ColorIndex = 36
Case "ABS": c.Font.ColorIndex = 2
Case "ABS": c.Interior.ColorIndex = 3
End Select
Set c = sh.[C3:AG194].FindNext(c)
Loop Until c Is Nothing Or c.Address = ResAdr
End If
Next sh
End Sub
"Daniel.C" a écrit :A priori, je ne connais pas de limite. Le problème semble plutôt avec
colorindex. Le numéro choisi existe-il ? Poste ton code.
Daniel
"Michel69" a écrit dans le message
de
news:
> Bonjour et encore merci Daniel.C
> Ton code fonctionne très bien. En plus j'ai rajouté une
> c.font.colorindex
> par case pour adapter la police à la couleur de fond. Il me traite
> toutes
> mes
> feuilles.
> y a t-il une limite dans les "Case" car au bout du dixième le code
> plante
> "Impossibilité de définir la colorindex de la classe font". c'est la
> couleur
> 2 (blanc) tu vois une explication ?
> Merci
> Michel
>
> "Daniel.C" a écrit :
>
>> Pour plus de sureté, remplace :
>> Set c = sh.[C3:AG194].Find("*")
>> par :
>> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> Daniel
>> "Michel69" a écrit dans le
>> message
>> de
>> news:
>> > Bonjour à toutes et à tous,
>> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer
>> > les
>> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction
>> > de
>> > leur
>> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> > revue
>> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> > colorer
>> > en
>> > même temps la colonne correspondante si la cellule 1 contient la
>> > lettre
>> > D.
>> > Merci pour vos efforts
>> > Michel69
>>
>>
>>
Je n'ai pas de message, mais bon, je tourne avec XL2007.
Essaie le code suivant (pas besoin de répéter Case.., à chaque fois, tu peux
mettre autant d'instructions que tu veux :
Dim sh As Worksheet, c As Range, ResAdr As String
MsgBox ("Celà va prendre quelques minutes, Veuillez patienter, Merci")
For Each sh In Sheets
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
If Not c Is Nothing Then
ResAdr = c.Address
Do
Select Case c
Case "M": c.Font.ColorIndex = 1 'Police en Noir
c.Interior.ColorIndex = 38 'Fond Rose Saumon
Case "S": c.Font.ColorIndex = 1 'Police en Noir
c.Interior.ColorIndex = 37 'Fond Bleu moyen
Case "J": c.Font.ColorIndex = 1 'Police en Noir
c.Interior.ColorIndex = 15 'Fond Gris 25%
Case "MAL": c.Font.ColorIndex = 2 'Police en Blanc
c.Interior.ColorIndex = 46 'Fond Orange
Case "C": c.Font.ColorIndex = 2 'Police en Noir
c.Interior.ColorIndex = 36 'Fond Jaune clair
Case "AT": c.Font.ColorIndex = 2
c.Interior.ColorIndex = 46
Case "FC": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 15
Case "F": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "R": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "CEX": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "RTT": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "ABS": c.Font.ColorIndex = 2
c.Interior.ColorIndex = 3
End Select
Set c = sh.[C3:AG194].FindNext(c)
Loop Until c Is Nothing Or c.Address = ResAdr
End If
Next sh
Daniel
"Michel69" a écrit dans le message de
news:
> Daniel.C
> Voici le code :
> Sub Bouton18_QuandClic()
> Dim sh As Worksheet, c As Range, ResAdr As String
> MsgBox ("Celà va prendre quelques minutes, Veuillez patienter, Merci")
> For Each sh In Sheets
> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
> If Not c Is Nothing Then
> ResAdr = c.Address
> Do
> Select Case c
>
> Case "M": c.Font.ColorIndex = 1 'Police en Noir
> Case "M": c.Interior.ColorIndex = 38 'Fond Rose Saumon
> Case "S": c.Font.ColorIndex = 1 'Police en Noir
> Case "S": c.Interior.ColorIndex = 37 'Fond Bleu moyen
> Case "J": c.Font.ColorIndex = 1 'Police en Noir
> Case "J": c.Interior.ColorIndex = 15 'Fond Gris 25%
> Case "MAL": c.Font.ColorIndex = 2 'Police en Blanc
> Case "MAL": c.Interior.ColorIndex = 46 'Fond Orange
> Case "C": c.Font.ColorIndex = 1 'Police en Noir
> Case "C": c.Interior.ColorIndex = 36 'Fond Jaune clair
> Case "AT": c.Font.ColorIndex = 2 '<<<<<<<<< PLANTAGE A CE NIVEAU
> Case "AT": c.Interior.ColorIndex = 46
> Case "FC": c.Font.ColorIndex = 1
> Case "FC": c.Interior.ColorIndex = 15
> Case "F": c.Font.ColorIndex = 1
> Case "F": c.Interior.ColorIndex = 36
> Case "R": c.Font.ColorIndex = 1
> Case "R": c.Interior.ColorIndex = 36
> Case "CEX": c.Font.ColorIndex = 1
> Case "CEX": c.Interior.ColorIndex = 36
> Case "RTT": c.Font.ColorIndex = 1
> Case "RTT": c.Interior.ColorIndex = 36
> Case "ABS": c.Font.ColorIndex = 2
> Case "ABS": c.Interior.ColorIndex = 3
>
> End Select
> Set c = sh.[C3:AG194].FindNext(c)
> Loop Until c Is Nothing Or c.Address = ResAdr
> End If
> Next sh
>
> End Sub
>
> "Daniel.C" a écrit :
>
>> A priori, je ne connais pas de limite. Le problème semble plutôt avec
>> colorindex. Le numéro choisi existe-il ? Poste ton code.
>> Daniel
>> "Michel69" a écrit dans le message
>> de
>> news:
>> > Bonjour et encore merci Daniel.C
>> > Ton code fonctionne très bien. En plus j'ai rajouté une
>> > c.font.colorindex
>> > par case pour adapter la police à la couleur de fond. Il me traite
>> > toutes
>> > mes
>> > feuilles.
>> > y a t-il une limite dans les "Case" car au bout du dixième le code
>> > plante
>> > "Impossibilité de définir la colorindex de la classe font". c'est la
>> > couleur
>> > 2 (blanc) tu vois une explication ?
>> > Merci
>> > Michel
>> >
>> > "Daniel.C" a écrit :
>> >
>> >> Pour plus de sureté, remplace :
>> >> Set c = sh.[C3:AG194].Find("*")
>> >> par :
>> >> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> >> Daniel
>> >> "Michel69" a écrit dans le
>> >> message
>> >> de
>> >> news:
>> >> > Bonjour à toutes et à tous,
>> >> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> >> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer
>> >> > les
>> >> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction
>> >> > de
>> >> > leur
>> >> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> >> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> >> > revue
>> >> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> >> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> >> > colorer
>> >> > en
>> >> > même temps la colonne correspondante si la cellule 1 contient la
>> >> > lettre
>> >> > D.
>> >> > Merci pour vos efforts
>> >> > Michel69
>> >>
>> >>
>> >>
>>
>>
>>
Je n'ai pas de message, mais bon, je tourne avec XL2007.
Essaie le code suivant (pas besoin de répéter Case.., à chaque fois, tu peux
mettre autant d'instructions que tu veux :
Dim sh As Worksheet, c As Range, ResAdr As String
MsgBox ("Celà va prendre quelques minutes, Veuillez patienter, Merci")
For Each sh In Sheets
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
If Not c Is Nothing Then
ResAdr = c.Address
Do
Select Case c
Case "M": c.Font.ColorIndex = 1 'Police en Noir
c.Interior.ColorIndex = 38 'Fond Rose Saumon
Case "S": c.Font.ColorIndex = 1 'Police en Noir
c.Interior.ColorIndex = 37 'Fond Bleu moyen
Case "J": c.Font.ColorIndex = 1 'Police en Noir
c.Interior.ColorIndex = 15 'Fond Gris 25%
Case "MAL": c.Font.ColorIndex = 2 'Police en Blanc
c.Interior.ColorIndex = 46 'Fond Orange
Case "C": c.Font.ColorIndex = 2 'Police en Noir
c.Interior.ColorIndex = 36 'Fond Jaune clair
Case "AT": c.Font.ColorIndex = 2
c.Interior.ColorIndex = 46
Case "FC": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 15
Case "F": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "R": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "CEX": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "RTT": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "ABS": c.Font.ColorIndex = 2
c.Interior.ColorIndex = 3
End Select
Set c = sh.[C3:AG194].FindNext(c)
Loop Until c Is Nothing Or c.Address = ResAdr
End If
Next sh
Daniel
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: C9D7D4CD-9DE9-41BB-82DE-426BA3E2CEB6@microsoft.com...
> Daniel.C
> Voici le code :
> Sub Bouton18_QuandClic()
> Dim sh As Worksheet, c As Range, ResAdr As String
> MsgBox ("Celà va prendre quelques minutes, Veuillez patienter, Merci")
> For Each sh In Sheets
> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
> If Not c Is Nothing Then
> ResAdr = c.Address
> Do
> Select Case c
>
> Case "M": c.Font.ColorIndex = 1 'Police en Noir
> Case "M": c.Interior.ColorIndex = 38 'Fond Rose Saumon
> Case "S": c.Font.ColorIndex = 1 'Police en Noir
> Case "S": c.Interior.ColorIndex = 37 'Fond Bleu moyen
> Case "J": c.Font.ColorIndex = 1 'Police en Noir
> Case "J": c.Interior.ColorIndex = 15 'Fond Gris 25%
> Case "MAL": c.Font.ColorIndex = 2 'Police en Blanc
> Case "MAL": c.Interior.ColorIndex = 46 'Fond Orange
> Case "C": c.Font.ColorIndex = 1 'Police en Noir
> Case "C": c.Interior.ColorIndex = 36 'Fond Jaune clair
> Case "AT": c.Font.ColorIndex = 2 '<<<<<<<<< PLANTAGE A CE NIVEAU
> Case "AT": c.Interior.ColorIndex = 46
> Case "FC": c.Font.ColorIndex = 1
> Case "FC": c.Interior.ColorIndex = 15
> Case "F": c.Font.ColorIndex = 1
> Case "F": c.Interior.ColorIndex = 36
> Case "R": c.Font.ColorIndex = 1
> Case "R": c.Interior.ColorIndex = 36
> Case "CEX": c.Font.ColorIndex = 1
> Case "CEX": c.Interior.ColorIndex = 36
> Case "RTT": c.Font.ColorIndex = 1
> Case "RTT": c.Interior.ColorIndex = 36
> Case "ABS": c.Font.ColorIndex = 2
> Case "ABS": c.Interior.ColorIndex = 3
>
> End Select
> Set c = sh.[C3:AG194].FindNext(c)
> Loop Until c Is Nothing Or c.Address = ResAdr
> End If
> Next sh
>
> End Sub
>
> "Daniel.C" a écrit :
>
>> A priori, je ne connais pas de limite. Le problème semble plutôt avec
>> colorindex. Le numéro choisi existe-il ? Poste ton code.
>> Daniel
>> "Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message
>> de
>> news: 6FCAD18E-3648-46C1-995B-8C8BEBA239D9@microsoft.com...
>> > Bonjour et encore merci Daniel.C
>> > Ton code fonctionne très bien. En plus j'ai rajouté une
>> > c.font.colorindex
>> > par case pour adapter la police à la couleur de fond. Il me traite
>> > toutes
>> > mes
>> > feuilles.
>> > y a t-il une limite dans les "Case" car au bout du dixième le code
>> > plante
>> > "Impossibilité de définir la colorindex de la classe font". c'est la
>> > couleur
>> > 2 (blanc) tu vois une explication ?
>> > Merci
>> > Michel
>> >
>> > "Daniel.C" a écrit :
>> >
>> >> Pour plus de sureté, remplace :
>> >> Set c = sh.[C3:AG194].Find("*")
>> >> par :
>> >> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> >> Daniel
>> >> "Michel69" <Michel69@discussions.microsoft.com> a écrit dans le
>> >> message
>> >> de
>> >> news: 09557718-12D4-49C4-8E0A-E40001A1679E@microsoft.com...
>> >> > Bonjour à toutes et à tous,
>> >> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> >> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer
>> >> > les
>> >> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction
>> >> > de
>> >> > leur
>> >> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> >> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> >> > revue
>> >> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> >> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> >> > colorer
>> >> > en
>> >> > même temps la colonne correspondante si la cellule 1 contient la
>> >> > lettre
>> >> > D.
>> >> > Merci pour vos efforts
>> >> > Michel69
>> >>
>> >>
>> >>
>>
>>
>>
Je n'ai pas de message, mais bon, je tourne avec XL2007.
Essaie le code suivant (pas besoin de répéter Case.., à chaque fois, tu peux
mettre autant d'instructions que tu veux :
Dim sh As Worksheet, c As Range, ResAdr As String
MsgBox ("Celà va prendre quelques minutes, Veuillez patienter, Merci")
For Each sh In Sheets
Set c = sh.[C3:AG194].Find("*", , , xlWhole)
If Not c Is Nothing Then
ResAdr = c.Address
Do
Select Case c
Case "M": c.Font.ColorIndex = 1 'Police en Noir
c.Interior.ColorIndex = 38 'Fond Rose Saumon
Case "S": c.Font.ColorIndex = 1 'Police en Noir
c.Interior.ColorIndex = 37 'Fond Bleu moyen
Case "J": c.Font.ColorIndex = 1 'Police en Noir
c.Interior.ColorIndex = 15 'Fond Gris 25%
Case "MAL": c.Font.ColorIndex = 2 'Police en Blanc
c.Interior.ColorIndex = 46 'Fond Orange
Case "C": c.Font.ColorIndex = 2 'Police en Noir
c.Interior.ColorIndex = 36 'Fond Jaune clair
Case "AT": c.Font.ColorIndex = 2
c.Interior.ColorIndex = 46
Case "FC": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 15
Case "F": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "R": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "CEX": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "RTT": c.Font.ColorIndex = 1
c.Interior.ColorIndex = 36
Case "ABS": c.Font.ColorIndex = 2
c.Interior.ColorIndex = 3
End Select
Set c = sh.[C3:AG194].FindNext(c)
Loop Until c Is Nothing Or c.Address = ResAdr
End If
Next sh
Daniel
"Michel69" a écrit dans le message de
news:
> Daniel.C
> Voici le code :
> Sub Bouton18_QuandClic()
> Dim sh As Worksheet, c As Range, ResAdr As String
> MsgBox ("Celà va prendre quelques minutes, Veuillez patienter, Merci")
> For Each sh In Sheets
> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
> If Not c Is Nothing Then
> ResAdr = c.Address
> Do
> Select Case c
>
> Case "M": c.Font.ColorIndex = 1 'Police en Noir
> Case "M": c.Interior.ColorIndex = 38 'Fond Rose Saumon
> Case "S": c.Font.ColorIndex = 1 'Police en Noir
> Case "S": c.Interior.ColorIndex = 37 'Fond Bleu moyen
> Case "J": c.Font.ColorIndex = 1 'Police en Noir
> Case "J": c.Interior.ColorIndex = 15 'Fond Gris 25%
> Case "MAL": c.Font.ColorIndex = 2 'Police en Blanc
> Case "MAL": c.Interior.ColorIndex = 46 'Fond Orange
> Case "C": c.Font.ColorIndex = 1 'Police en Noir
> Case "C": c.Interior.ColorIndex = 36 'Fond Jaune clair
> Case "AT": c.Font.ColorIndex = 2 '<<<<<<<<< PLANTAGE A CE NIVEAU
> Case "AT": c.Interior.ColorIndex = 46
> Case "FC": c.Font.ColorIndex = 1
> Case "FC": c.Interior.ColorIndex = 15
> Case "F": c.Font.ColorIndex = 1
> Case "F": c.Interior.ColorIndex = 36
> Case "R": c.Font.ColorIndex = 1
> Case "R": c.Interior.ColorIndex = 36
> Case "CEX": c.Font.ColorIndex = 1
> Case "CEX": c.Interior.ColorIndex = 36
> Case "RTT": c.Font.ColorIndex = 1
> Case "RTT": c.Interior.ColorIndex = 36
> Case "ABS": c.Font.ColorIndex = 2
> Case "ABS": c.Interior.ColorIndex = 3
>
> End Select
> Set c = sh.[C3:AG194].FindNext(c)
> Loop Until c Is Nothing Or c.Address = ResAdr
> End If
> Next sh
>
> End Sub
>
> "Daniel.C" a écrit :
>
>> A priori, je ne connais pas de limite. Le problème semble plutôt avec
>> colorindex. Le numéro choisi existe-il ? Poste ton code.
>> Daniel
>> "Michel69" a écrit dans le message
>> de
>> news:
>> > Bonjour et encore merci Daniel.C
>> > Ton code fonctionne très bien. En plus j'ai rajouté une
>> > c.font.colorindex
>> > par case pour adapter la police à la couleur de fond. Il me traite
>> > toutes
>> > mes
>> > feuilles.
>> > y a t-il une limite dans les "Case" car au bout du dixième le code
>> > plante
>> > "Impossibilité de définir la colorindex de la classe font". c'est la
>> > couleur
>> > 2 (blanc) tu vois une explication ?
>> > Merci
>> > Michel
>> >
>> > "Daniel.C" a écrit :
>> >
>> >> Pour plus de sureté, remplace :
>> >> Set c = sh.[C3:AG194].Find("*")
>> >> par :
>> >> Set c = sh.[C3:AG194].Find("*", , , xlWhole)
>> >> Daniel
>> >> "Michel69" a écrit dans le
>> >> message
>> >> de
>> >> news:
>> >> > Bonjour à toutes et à tous,
>> >> > Excel 2003. J'ai un classeur comportant 12 feuilles nommées ("Jan
>> >> > 09"...."Déc 09"). Je souhaiterais pouvoir par un bouton VBA colorer
>> >> > les
>> >> > cellules (plage C3:AG194, idem sur toutes les feuilles) en fonction
>> >> > de
>> >> > leur
>> >> > contenu (ex si M mettre en rouge, S en bleu, R en jaune etc...).
>> >> > 1) Quel serait le bout de code (et ou le placer ?) qui passerait en
>> >> > revue
>> >> > toutes mes feuilles et qui pourrait effectuer ces mises en forme.
>> >> > 2) Sachant que sur la ligne 1 de chaque feuille (C1:AG1), comment
>> >> > colorer
>> >> > en
>> >> > même temps la colonne correspondante si la cellule 1 contient la
>> >> > lettre
>> >> > D.
>> >> > Merci pour vos efforts
>> >> > Michel69
>> >>
>> >>
>> >>
>>
>>
>>