XL 2013 Comment écrire si Date comprise entre...?

Halffy

XLDnaute Occasionnel
Bonsoir à tous les insomniaques, ou bonjour à tous les lèves-tôt ;)

Alors je cherche comment écrire en language VBA: Si Date du jour comprise entre le 20 et le 25 de chaque mois, alors...
Pour le moment, j'en suis ici:
If ???? < Date > ???? Then 'oui je sais, pas bien loin, mais s'il y avait une âme charitable s'il vous plait / Je pourrais peut-être ainsi aller me coucher; non je plaisante :D

Cordialement /.
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour le fil, Halffy, Marcel32

Le confinement nous laisse le temps de faire des tests très poussés ;)
La preuve!
Et plutôt cinq fois qu'une
Enrichi (BBcode):
Sub Gimme_Five()
[A1:A31].Clear: MsgBox "Test 1": m2025
[A1:A31].Clear: MsgBox "Test 2": m2025
[A1:A31].Clear: MsgBox "Test 3": m2025
[A1:A31].Clear: MsgBox "Test 4": m2025
[A1:A31].Clear: MsgBox "Test 5": m2025
End Sub
Private Sub m2025()
MesJours = Array(20, 21, 22, 23, 24, 25)
Randomize
[A1] = CDate("1-" & Application.RandBetween(1, 12)): [A1:A31].DataSeries
For Each c In Range("A1:A31")
If IsNumeric(Application.Match(Day(c), MesJours, 0)) Then
MsgBox Format(c, "dddd dd mmmm yyyy")
c.Interior.Color = vbMagenta
End If
Next
End Sub
NB: C'est dans l'orange que réside le fruit de ma cogitation ;)
NB: Midnight blue, c'est point un vieux blues du Sud
Mais c'est là que réside le fruit de ma cogitation ;)

EDITION; Tiens quand je parle d'orange, y'a mapomme qui se pointe ;)
(Salutations d'un confiné breton)
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

•>mapomme
Ah oui, mais c'était juste pour la blague
(celle qui était dans l'édition)
Merdre, t'as point ri ?
Ma blague est tombée à l'eau (snif)

EDITION; j'ai corrigé ;)
T'as moins mal aux yeux? ;)
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

•>mapomme
Il me semble me souvenir que c'est à toi que j'ai demandé une faveur, non ?
(Relative à la fainéantise et à la possibilité de ne pas devoir encombrer mon disque dur, tout en ayant le plaisir de lire ta prose VBAistique)
You remember, now? ;)
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 898
Membres
101 834
dernier inscrit
Jeremy06510