OVH Cloud OVH Cloud

MEFC calendrier

21 réponses
Avatar
Quaisako
Bonjour le Forum,

le code ci-dessous écrit en rouge les samedis et dimanches. (Aucun souci
pour çà). Ecrit par DJ.

Sub SamDimanche()
Set PlageDeRecherche = Range("B5:B35")
For Each madate In PlageDeRecherche
If Weekday(madate) = 7 Or Weekday(madate) = 1 Then
madate.Font.ColorIndex = 3
End If
Next madate
End Sub

Ce que je cherche à faire:
Colorier les cellules des plages "C5:C35", "E5:E35" et "G5:L35" qui
correspondent aux samedis et dimanches écrits en rouge.

Même avec l'enregistreur de macros, je sèche.

Merci d'avance à ceux qui voudront bien m'aider.

Jipé

10 réponses

1 2 3
Avatar
michdenis
Bonjour Alain,

| Activecell.range("B1").select

| En résumé c'est une syntaxe "équivalente" à la propriété Offset mais avec
| qquelques restrictions (Ex : pas de possibilité de décalage négatif)

Moi, j'aurais écrit : c'est une syntaxe "équivalent" à la propriété "RESIZE".
Pour ce qui est de la restriction, elle est déjà inhérente à la méthode "Resize"

Exemple : Range("A1").Range("C4").select = Range("C2")
C3 représentant la colonne 3 et la ligne 4
Son équivalent : Range("A1").resize(3,4) = Range("C4")

La méthode Resize inclus la cellule de départ de référence, en l'occurence A1
dans le décompte de 3 cellules à droite, 4 cellules plus bas.

Espérant provoqué un bon "Pffff" senti !

;-))


Salutations!
Avatar
Quaisako
Bon!!!!!!!!!!!!! Bé avec çà!!!!!!!!!!! Dites donc!!!!!!!!!!!!!
Après lecture et relecture et rerelecture et rerererelect.............. de
vos posts,
j'ai un peu mal à la tête. (Je ne suis pas développeur).
Il me faut digérer vos explications.
En tous cas merci à tous, et pour tout.
Jipé

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

Bonjour Alain,

| Activecell.range("B1").select

| En résumé c'est une syntaxe "équivalente" à la propriété Offset mais
avec
| qquelques restrictions (Ex : pas de possibilité de décalage négatif)

Moi, j'aurais écrit : c'est une syntaxe "équivalent" à la propriété
"RESIZE".
Pour ce qui est de la restriction, elle est déjà inhérente à la méthode
"Resize"

Exemple : Range("A1").Range("C4").select = Range("C2")
C3 représentant la colonne 3 et la ligne 4
Son équivalent : Range("A1").resize(3,4) = Range("C4")

La méthode Resize inclus la cellule de départ de référence, en l'occurence
A1
dans le décompte de 3 cellules à droite, 4 cellules plus bas.

Espérant provoqué un bon "Pffff" senti !

;-))


Salutations!




Avatar
jps
en fait, il eût fallu écrire : c'est une syntaxe "équivalAnt" à....
jps

"michdenis" a écrit dans le message de
news:
Bonjour Alain,

| Activecell.range("B1").select

| En résumé c'est une syntaxe "équivalente" à la propriété Offset mais
avec

| qquelques restrictions (Ex : pas de possibilité de décalage négatif)

Moi, j'aurais écrit : c'est une syntaxe "équivalent" à la propriété
"RESIZE".

Pour ce qui est de la restriction, elle est déjà inhérente à la méthode
"Resize"


Exemple : Range("A1").Range("C4").select = Range("C2")
C3 représentant la colonne 3 et la ligne 4
Son équivalent : Range("A1").resize(3,4) = Range("C4")

La méthode Resize inclus la cellule de départ de référence, en l'occurence
A1

dans le décompte de 3 cellules à droite, 4 cellules plus bas.

Espérant provoqué un bon "Pffff" senti !

;-))


Salutations!




Avatar
michdenis
T'as bien raison JPS... ça m'apprendra à reproduire le texte d'autrui !!!
;-))


Salutations!


"jps" a écrit dans le message de news: e%
en fait, il eût fallu écrire : c'est une syntaxe "équivalAnt" à....
jps

"michdenis" a écrit dans le message de
news:
Bonjour Alain,

| Activecell.range("B1").select

| En résumé c'est une syntaxe "équivalente" à la propriété Offset mais
avec

| qquelques restrictions (Ex : pas de possibilité de décalage négatif)

Moi, j'aurais écrit : c'est une syntaxe "équivalent" à la propriété
"RESIZE".

Pour ce qui est de la restriction, elle est déjà inhérente à la méthode
"Resize"


Exemple : Range("A1").Range("C4").select = Range("C2")
C3 représentant la colonne 3 et la ligne 4
Son équivalent : Range("A1").resize(3,4) = Range("C4")

La méthode Resize inclus la cellule de départ de référence, en l'occurence
A1

dans le décompte de 3 cellules à droite, 4 cellules plus bas.

Espérant provoqué un bon "Pffff" senti !

;-))


Salutations!




Avatar
AV
| Moi, j'aurais écrit : c'est une syntaxe "équivalent" à la propriété "RESIZE".
| Pour ce qui est de la restriction, elle est déjà inhérente à la méthode
"Resize"
| Exemple : Range("A1").Range("C4").select = Range("C2")
| C3 représentant la colonne 3 et la ligne 4
| Son équivalent : Range("A1").resize(3,4) = Range("C4")

Hum...hum... je m'étrangle !
Range("A1").Range("C4").Select Résultat --> sélection de C4
Range("A1").Resize(3, 4).Select Résultat --> sélection de A1:D3
C'est pas du tout pareil !
Resize étend la sélection alors que la méthode avec des réfs relatives déplace
la sélection !

Pffff...
AV
Avatar
AV
| T'as bien raison JPS... ça m'apprendra à reproduire le texte d'autrui !!!

Pfff...
Ben non justement tu n'as pas reproduit le texte "d'autrui" !
Dans la précédente grande envolée didactique, j'avais écrit "syntaxe
équivalente"
Dans ce cas, l'adjectif s'accorde avec le féminin de "syntaxe"
Tu peux aussi (comme suggéré par jps) utiliser le participe présent "équivalant"
(verbe équivaloir) mais en aucun cas, l'adjectif "équivalent" sans le mettre au
féminin

Ah ça mais...!

AV
Avatar
jps
est-ce à dire qu'après "aux broutards angevins" (au fait, que devient le
père brossollette?), nous aurions maintenant à faire "aux truies
corréziennes"?
jps (semeur de purin auvergnat)

"AV" a écrit dans le message de
news:
| T'as bien raison JPS... ça m'apprendra à reproduire le texte d'autrui
!!!


Pfff...
Ben non justement tu n'as pas reproduit le texte "d'autrui" !
Dans la précédente grande envolée didactique, j'avais écrit "syntaxe
équivalente"
Dans ce cas, l'adjectif s'accorde avec le féminin de "syntaxe"
Tu peux aussi (comme suggéré par jps) utiliser le participe présent
"équivalant"

(verbe équivaloir) mais en aucun cas, l'adjectif "équivalent" sans le
mettre au

féminin

Ah ça mais...!

AV




Avatar
AV
(au fait, que devient le père brossollette?)


Ecoeuré de ne pouvoir transformer ses vaches de réforme en taureaux limousins et
de ne pouvoir fourguer ses "galinacés grippeux", il a rejoint le mont Athos

AV

Avatar
jps
:-)))))))))))))
Athos, vous dites Athos? tiens donc, nous voici en plein roman de soutane et
d'épée
jps

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

(au fait, que devient le père brossollette?)


Ecoeuré de ne pouvoir transformer ses vaches de réforme en taureaux
limousins et
de ne pouvoir fourguer ses "galinacés grippeux", il a rejoint le mont
Athos

AV





Avatar
michdenis
Bonjour AV,

| C'est pas du tout pareil !
| Resize étend la sélection alors que la méthode avec des réfs relatives déplace
| la sélection !

Et oui, tu as raison...mais lorsque j'ai écrit ces bouts de ligne, j'avais en tête
comment "évaluer" rapidement la cellule visée.

Range("A1").Range("A4").select n'est pas très parlante !
En utilisant la méthode resize range("A1").resize(4,1) est
plus significative pour imager qu'elle est la cellule de fin
de la sélection. Évidemment, il ne faut pas comparer
l'étendue de la selection elle-même comme je l'ai fait.

Merci pour avoir clarifier la chose et la leçon de français.


Salutations!
1 2 3