OVH Cloud OVH Cloud

MFC couleur

11 réponses
Avatar
YANN24
Bonjour,
mon tableau excel :
A B C
jour date coomentaires


Je cherche une macro qui me surligne en gris mes celulles A1:C1 si A1 est
samedi ou dimanche.
Merci les gars.

YANN

10 réponses

1 2
Avatar
Corona
Bonjour Yann,
Je t'ai déjà répondu dans ton post précédent.
Philippe
************ 27/01/2005 à 12:00 **********
Bonjour Yann,
1) Sélectionner les plages concernées
2) Dans le format conditionnel, pour la condition, choisir 'la formule
est' et tapez '=JOURSEM(A1;2) > 5'.
3) Ensuite choisir le format désiré.

Philippe
*****************************************

"YANN24" a écrit dans le message de news:

Bonjour,
mon tableau excel :
A B C
jour date coomentaires


Je cherche une macro qui me surligne en gris mes celulles A1:C1 si A1 est
samedi ou dimanche.
Merci les gars.

YANN


Avatar
François
Bonjour,
mon tableau excel :
A B C
jour date coomentaires


Je cherche une macro qui me surligne en gris mes celulles A1:C1 si A1 est
samedi ou dimanche.
Merci les gars.

YANN


Bonjour,

Pas besoin d'avoir une colonne jour et une colonne date.

Supposons que nous avons la date en A1, voila la macro à adapter

Sub Macromerciaceuxquisontenrtt()

Dim A, B
Range("a1").Select
A = Range("a1").Value
B = Weekday(A, vbSunday)
If B = 1 Or B = 7 Then
Range("A1:C1").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Else
End If

End Sub


Sub Cordialement()
End Sub

Avatar
AV
Je cherche une macro qui me surligne en gris mes celulles A1:C1 si A1 est
samedi ou dimanche.


En supposant que tes données sont en A2:Cxx
Sélection de la plage A2:Cxx > MEFC > la formule est :
=ET($A2<>"";JOURSEM($A2;2)>5)
format > gris


AV

Avatar
YANN24
Salut
ça marche pas top ta formule, ça me colorie A1 seulement.
Moi j'ai mon calendrier de B8:B38, alors, comment je fais??

Merci beaucoup
YANN


Bonjour,
mon tableau excel :
A B C
jour date coomentaires


Je cherche une macro qui me surligne en gris mes celulles A1:C1 si A1 est
samedi ou dimanche.
Merci les gars.

YANN


Bonjour,

Pas besoin d'avoir une colonne jour et une colonne date.

Supposons que nous avons la date en A1, voila la macro à adapter

Sub Macromerciaceuxquisontenrtt()

Dim A, B
Range("a1").Select
A = Range("a1").Value
B = Weekday(A, vbSunday)
If B = 1 Or B = 7 Then
Range("A1:C1").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Else
End If

End Sub


Sub Cordialement()
End Sub




Avatar
YANN24
Hello,

ça marche presque, mais, je voudrais que si en collonne A j'ai Samedi ou
Dimanche, je veux griser les colonnes A:L.

merci si tu as la réponse.
YANN


Je cherche une macro qui me surligne en gris mes celulles A1:C1 si A1 est
samedi ou dimanche.


En supposant que tes données sont en A2:Cxx
Sélection de la plage A2:Cxx > MEFC > la formule est :
=ET($A2<>"";JOURSEM($A2;2)>5)
format > gris


AV







Avatar
AV
ça marche presque,


Ca marche même complétement par rapport à la question initiale !
Si la question change en cours de route, la réponse est toujours fausse !

mais, je voudrais que si en collonne A j'ai Samedi ou
Dimanche, je veux griser les colonnes A:L.


En supposant que tes données sont en A2:Lxx
Sélection de la plage A2:Lxx > MEFC > la formule est :
=ET($A2<>"";JOURSEM($A2;2)>5)
format > gris


AV

Avatar
François
Salut
ça marche pas top ta formule, ça me colorie A1 seulement.
Moi j'ai mon calendrier de B8:B38, alors, comment je fais??

Merci beaucoup
YANN



Bonjour,

Même réponse que AV plus bas, ça marche par rapport à la question posée
(en tout cas sur le poste où je suis sous XL2000) avec la nuance que je
t'ai indiquée que la date était en A1.

Alors maintenant ton calendrier est en B8:B38 ... , les dates sont je ne
sais pas ou et les cellules à griser encore ailleurs !

Tu prend le principe du code c'est à dire utiliser Weekday pour
connaitre le jour correspondant à une date et le "With Selection" pour
griser les cellules et tu adaptes.

Personne n'a jamais réussi à développer une appli, même simple, à coup
de copier-coller de code récupéré ici ou là. Il y aura toujours quelque
chose qui cloche. Si tu veux t'en sortir, essaies de comprendre ce que
t'envoient les uns et les autres pour etre capable de le modifier en
fonction de tes besoins et de l'évolution de tes projets.

Cordialement,

Avatar
® © ¿
;o)))
-----Message d'origine-----
Si la question change en cours de route, la réponse est
toujours fausse !

AV


déja le 21/01/2005
Pfff.....Quelle mauvaise foi !

à l'expérience passée du forum tu sais trés bien que
le cahier des charges est "toujours évolutif"


GD
ki ? ki disot qu'jétos d'mauvaise fô !!!!


;o)))


Avatar
YANN24
Merci, j'essaye.
YANN


ça marche presque,


Ca marche même complétement par rapport à la question initiale !
Si la question change en cours de route, la réponse est toujours fausse !

mais, je voudrais que si en collonne A j'ai Samedi ou
Dimanche, je veux griser les colonnes A:L.


En supposant que tes données sont en A2:Lxx
Sélection de la plage A2:Lxx > MEFC > la formule est :
=ET($A2<>"";JOURSEM($A2;2)>5)
format > gris


AV







Avatar
YANN24
OK, ça marche nikel !!!!!!!!!!!
Merci bien.

Une dernière question :
Sur mon fichier, j'ai 12 feuilles à créer. J'ai tout paramétrer ma 1ère
feuille (avec MFC comme tu m'as dis, et j'ai aussi 2 boutons qui sont reliés
à des macros.

Comment je fais si je veux dupliquer ces feuilles?

Mon pb, est que mes 12 feuilles sont déjà existantes, et que j'ai une
feuille de calcul qui fait référence à toutes les feuilles. Je ne peux donc
pas supprimer les feuilles fausses, pour les recréer, les liens seraient
perdus.
Comment faire ??
MERCI.
Yann


ça marche presque,


Ca marche même complétement par rapport à la question initiale !
Si la question change en cours de route, la réponse est toujours fausse !

mais, je voudrais que si en collonne A j'ai Samedi ou
Dimanche, je veux griser les colonnes A:L.


En supposant que tes données sont en A2:Lxx
Sélection de la plage A2:Lxx > MEFC > la formule est :
=ET($A2<>"";JOURSEM($A2;2)>5)
format > gris


AV







1 2