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.
J'aurai besoin d'une petite précision, si possible.
Se peut-t-il que le code fourni pa AV, ne soit pas pris en compte avec les cellules contenant des formules ?
Merci Jipé
"AV" a écrit dans le message de news: %
=== End(3)) pourquoi le 3 ?
Comme signalé par JPS.. Il s'agit du remplacement d'un des arguments possibles (xIToLeft, xIToRight, xIUp, xIDown) de la propriété "End" par son index
Exemple, au lieu d'écrire Range("A1").End(xIToLeft).Row on peut écrire Range("A1").End(1).Row
==== Pourquoi "B1" "D1" "F1:K1" et non pas "C1" "E1" et "G1:L1" ?
Il s'agit de références relatives à la cellule active ou à la cellule désignée ! exemple : Activecell.range("B1").select Sélectionnera la cellule qui est sur la même ligne(1) et une colonne à droite (B) en partant de la cellule active (implicitement A1)
Range("B2").Range("C3").Select équivaut à --> sélection de range("D4").select Eclaircissement : A partir de "B2", "D" pour la colonne signifie décalage de 2 colonnes (colonne C) et 3 pour la ligne signifie un décalage de 2 lignes (ligne 4)
Range("C2:C10").Range("X11:X19").Select équivaut à --> sélection de range("Z12:Z20").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)
AV
Bonsoir le Forum,
J'aurai besoin d'une petite précision, si possible.
Se peut-t-il que le code fourni pa AV, ne soit pas pris en compte avec les
cellules contenant des formules ?
Merci
Jipé
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23EyvGZTGGHA.3000@TK2MSFTNGP14.phx.gbl...
=== End(3)) pourquoi le 3 ?
Comme signalé par JPS..
Il s'agit du remplacement d'un des arguments possibles (xIToLeft,
xIToRight, xIUp, xIDown) de la propriété "End" par son index
Exemple, au lieu d'écrire
Range("A1").End(xIToLeft).Row
on peut écrire
Range("A1").End(1).Row
==== Pourquoi "B1" "D1" "F1:K1" et non pas "C1" "E1" et "G1:L1" ?
Il s'agit de références relatives à la cellule active ou à la cellule
désignée !
exemple :
Activecell.range("B1").select
Sélectionnera la cellule qui est sur la même ligne(1) et une colonne
à
droite (B) en partant de la cellule active (implicitement A1)
Range("B2").Range("C3").Select
équivaut à --> sélection de range("D4").select
Eclaircissement : A partir de "B2", "D" pour la colonne signifie
décalage
de 2 colonnes (colonne C) et 3 pour la ligne signifie un décalage de 2
lignes
(ligne 4)
Range("C2:C10").Range("X11:X19").Select
équivaut à --> sélection de range("Z12:Z20").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)
J'aurai besoin d'une petite précision, si possible.
Se peut-t-il que le code fourni pa AV, ne soit pas pris en compte avec les cellules contenant des formules ?
Merci Jipé
"AV" a écrit dans le message de news: %
=== End(3)) pourquoi le 3 ?
Comme signalé par JPS.. Il s'agit du remplacement d'un des arguments possibles (xIToLeft, xIToRight, xIUp, xIDown) de la propriété "End" par son index
Exemple, au lieu d'écrire Range("A1").End(xIToLeft).Row on peut écrire Range("A1").End(1).Row
==== Pourquoi "B1" "D1" "F1:K1" et non pas "C1" "E1" et "G1:L1" ?
Il s'agit de références relatives à la cellule active ou à la cellule désignée ! exemple : Activecell.range("B1").select Sélectionnera la cellule qui est sur la même ligne(1) et une colonne à droite (B) en partant de la cellule active (implicitement A1)
Range("B2").Range("C3").Select équivaut à --> sélection de range("D4").select Eclaircissement : A partir de "B2", "D" pour la colonne signifie décalage de 2 colonnes (colonne C) et 3 pour la ligne signifie un décalage de 2 lignes (ligne 4)
Range("C2:C10").Range("X11:X19").Select équivaut à --> sélection de range("Z12:Z20").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)
