vba

bonjour
mets ton fichier sur http://cjoint.com
il y aura certainement quelqu'un qui te répondra

salutations
RGI

Bonjour à tous, je suis coince en vba sur excel, je dois changer un code
mais je ne trouve pas, si quelqu'un de pointu et serieux voulait bien
m'aider, je lui ferais parvenir mon fichier, en gros il s'agit de changer
des couleurs en lettres car je n'ai pas d'imprimante couleur pour voir le
resultat qui s'affiche dans des grilles
d'avance merci

Ex pour une plage A1:B20
Sub N_coul()
Dim c As Object, p_c As Object
Set c = [A1:C20]
For Each p_c In c
If p_c.Interior.ColorIndex > 0 Then
p_c.Value = p_c.Interior.ColorIndex
End If
Next
End Sub

"rdt83" <rdt83@wanadoo.fr> a écrit dans le message de news:
exOomd6gGHA.1272@TK2MSFTNGP03.phx.gbl...

Bonjour à tous, je suis coince en vba sur excel, je dois changer un code
mais je ne trouve pas, si quelqu'un de pointu et serieux voulait bien
m'aider, je lui ferais parvenir mon fichier, en gros il s'agit de changer
des couleurs en lettres car je n'ai pas d'imprimante couleur pour voir le
resultat qui s'affiche dans des grilles
d'avance merci

merci pour vos reponses,
je ne peux pas mettre le fichier sur cjoint.com il fait 1205 k, en ce qui
concerne la deuxieme reponse, je pense que malheureusement ce n'est pas si
simple que ça



"rdt83" <rdt83@wanadoo.fr> a écrit dans le message de news:
exOomd6gGHA.1272@TK2MSFTNGP03.phx.gbl...

Bonjour à tous, je suis coince en vba sur excel, je dois changer un code
mais je ne trouve pas, si quelqu'un de pointu et serieux voulait bien
m'aider, je lui ferais parvenir mon fichier, en gros il s'agit de changer
des couleurs en lettres car je n'ai pas d'imprimante couleur pour voir le
resultat qui s'affiche dans des grilles
d'avance merci

même en le zippant ?

RGI

merci pour vos reponses,
je ne peux pas mettre le fichier sur cjoint.com il fait 1205 k, en ce qui
concerne la deuxieme reponse, je pense que malheureusement ce n'est pas si
simple que ça



"rdt83" <rdt83@wanadoo.fr> a écrit dans le message de news:
exOomd6gGHA.1272@TK2MSFTNGP03.phx.gbl...

Bonjour à tous, je suis coince en vba sur excel, je dois changer un code
mais je ne trouve pas, si quelqu'un de pointu et serieux voulait bien
m'aider, je lui ferais parvenir mon fichier, en gros il s'agit de changer
des couleurs en lettres car je n'ai pas d'imprimante couleur pour voir le
resultat qui s'affiche dans des grilles
d'avance merci

Bonsoir
Si c'est uniquement pour changer les couleurs, place simplement une feuille
sur CJOINT ou mieux encore, ton code.
Il se trouvera bien quelque passant pour le zieuter.
-
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"rdt83" <rdt83@wanadoo.fr> a écrit dans le message de news:
%23NNxfLAhGHA.4452@TK2MSFTNGP05.phx.gbl...

merci pour vos reponses,
je ne peux pas mettre le fichier sur cjoint.com il fait 1205 k, en ce qui
concerne la deuxieme reponse, je pense que malheureusement ce n'est pas si
simple que ça



"rdt83" <rdt83@wanadoo.fr> a écrit dans le message de news:
exOomd6gGHA.1272@TK2MSFTNGP03.phx.gbl...

Bonjour à tous, je suis coince en vba sur excel, je dois changer un code
mais je ne trouve pas, si quelqu'un de pointu et serieux voulait bien
m'aider, je lui ferais parvenir mon fichier, en gros il s'agit de changer
des couleurs en lettres car je n'ai pas d'imprimante couleur pour voir le
resultat qui s'affiche dans des grilles
d'avance merci

http://cjoint.com/?fEuBlDmqjm
Je l'ai mis là
Il s'agit en fait (voir page 2) de mettre à la place des couleurs ex: rouge
= Conges Annuels
De mettre CA etc etc
Le mot de passe de protection des feuilles est dans l'entete des
delcarations dans vba
Est ce que l'on peut faire quelque chose, moi je ne m'y connais pas
suffisament
Ou eventuellement faire quelque chose de similaire ????

D'avance merci

je ne peux pas mettre le fichier sur cjoint.com il fait 1205 k,

www.yousendit.com

Remplacer la ligne 411 à 415 dans "sub Addconges" par ce code.
Tu devrais obtenir ce que tu demandes en partie.
'.ColorIndex = col
'.Pattern = pat
If col > 0 Then
cd = Switch(col = 2, "RTT", col = 6, "CS", col = 3,
"CA")
ElseIf pat > 0 Then
cd = Switch(pat = 9, "ML", pat = 14, "EF", pat = 15,
"F")
End If
Worksheets(strMaFeuille).Cells(ligne, i).Value = cd
Worksheets(strMaFeuille).Cells(ligne, i).Font.Name "Arial"
Worksheets(strMaFeuille).Cells(ligne, i).Font.Size = 8
End With
"rdt83" <rdt83@wanadoo.fr> a écrit dans le message de news:
exOomd6gGHA.1272@TK2MSFTNGP03.phx.gbl...

Bonjour à tous, je suis coince en vba sur excel, je dois changer un code
mais je ne trouve pas, si quelqu'un de pointu et serieux voulait bien
m'aider, je lui ferais parvenir mon fichier, en gros il s'agit de changer
des couleurs en lettres car je n'ai pas d'imprimante couleur pour voir le
resultat qui s'affiche dans des grilles
d'avance merci

merci pour vos reponses, je vais essaye tout ça
si vous avez d'autres idées ?????

Bonsoir
Oui, il m'est venu une idée.
C'est que le concepteur de ce programme semble avoir réfléchi à beaucoup de
choses, notamment à ceci:
Si, au lieu des couleurs, on met du texte ET que l'on choisit de mettre des
données (ex congé) par demi-journée, il y a un signe cabalistique qui vient
se mettre dans la cel.
Alors, un signe sur un fond de couleur = OK
Un signe sur du texte ?????? Je crois que la sur-impression est
relativement difficile pour Excel.
Bonne chance
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"rdt83" <rdt83@wanadoo.fr> a écrit dans le message de news:
u4Ern2MhGHA.3916@TK2MSFTNGP04.phx.gbl...

merci pour vos reponses, je vais essaye tout ça
si vous avez d'autres idées ?????