afficher tout les mardi jeudi et dimanche

7 réponses

Vincent

11/09/2003 à 16:57

Bonjour,
Comment faire pour affichier dans une feuille tout les
mardi,jeudi,et dimanche.
Ex: sur la colonne A1 j'aimerais avoir 11/09 qui correspond au
jeudi 11 en a2 14/09(dimanche 14) et ainsi de suite.
Merci Vincent

7 réponses

Jean-Paul Viel

11/09/2003 à 17:39

Bonjour,

1.. Entre dans la première cellule, ici A1, la première date, 11/9/2003.
2.. Dans la cellule suivante, A2, la formule suivante :
=IF(WEEKDAY(A1)=5,A1+ 3,A1+4)

3.. Recopier cette formule dans les cellules nécessaire.

--
JP

http://www.solutionsvba.com

"Vincent" wrote in message
news:bjq2g9$p39$

Bonjour,
Comment faire pour affichier dans une feuille tout les
mardi,jeudi,et dimanche.
Ex: sur la colonne A1 j'aimerais avoir 11/09 qui correspond au
jeudi 11 en a2 14/09(dimanche 14) et ainsi de suite.
Merci Vincent

11/09/2003 à 18:25

Du 11/09/03 au 31/12/04
Exécute cette macro :

Sub zz_List_MaJeDi()
With [A1]
.Value = "9/11/2003"
.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=7,
Stop:8352
.End(4).Offset(1, 0) = "9/14/2003"
.End(4).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay,
Step:=7, Stop:8352
.End(4).Offset(1, 0) = "9/16/2003"
.End(4).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay,
Step:=7, Stop:8352
.Sort Key1:=[A1], Order1:=xlAscending, Orientation:=xlTopToBottom
End With
End Sub

AV

"Vincent" a écrit dans le message news:
bjq2g9$p39$

Bonjour,
Comment faire pour affichier dans une feuille tout les
mardi,jeudi,et dimanche.
Ex: sur la colonne A1 j'aimerais avoir 11/09 qui correspond au
jeudi 11 en a2 14/09(dimanche 14) et ainsi de suite.
Merci Vincent

Daniel M.

11/09/2003 à 21:49

Bonjour Vincent,

Pour le fun, une autre solution:

Sub dma_List_MaJeDi()
Range("A1") = DateSerial(2003, 9, 11)
With Range("A2").Resize(400) ' à préciser
.FormulaR1C1 = "=R[-1]C+CHOOSE(WEEKDAY(R[-1]C), 2,0,2,0,3,0,0)"
.Value = .Value
End With
'Columns("A:A").NumberFormat = "ddd yyyy-mm-dd"
End Sub

Salutations,

Daniel M.

"Vincent" wrote in message
news:bjq2g9$p39$

Bonjour,
Comment faire pour affichier dans une feuille tout les
mardi,jeudi,et dimanche.
Ex: sur la colonne A1 j'aimerais avoir 11/09 qui correspond au
jeudi 11 en a2 14/09(dimanche 14) et ainsi de suite.
Merci Vincent

12/09/2003 à 04:12

Fun bis et histoire d'embrouiller ;-)

Sub zz_SérieDates()
x = 400 'à moduler
[A1] = [date(2003,9,11)]
Range("A2:A" & x) "¡+index({0;2;0;3;0;0;2},match(weekday(A1,2),{1;2;3;4;5;6;7},0))"
[A:A] = [A:A].Value
[A:A].NumberFormat = "ddd dd-mm-yy"
End Sub

AV

"Vincent" a écrit dans le message news:
bjq2g9$p39$

Bonjour,
Comment faire pour affichier dans une feuille tout les
mardi,jeudi,et dimanche.
Ex: sur la colonne A1 j'aimerais avoir 11/09 qui correspond au
jeudi 11 en a2 14/09(dimanche 14) et ainsi de suite.
Merci Vincent

12/09/2003 à 04:13

Ave Daniel,

Très jolie ta soluce !

AV

Daniel.M

12/09/2003 à 14:08

Salut Alain,

Je suis curieux: Est-ce que l'heure fait problème (je remarque que je suis
'en avance' sur la tienne)?

Comme je viens de rebâtir ma vieille bécane, cela est bien possible.

Salutations,

Daniel M. (8h:08 au Québec)

"AV" wrote in message
news:

Vous êtes passé à l'heure d'automme au Canada ?
;-)
AV

12/09/2003 à 18:25

Je suis curieux: Est-ce que l'heure fait problème (je remarque que je suis
'en avance' sur la tienne)?

J'en sais fichtre plus rien...c'était une réponse spontanée...;-)

AV

afficher tout les mardi jeudi et dimanche

7 réponses

Veuillez sélectionner un problème