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

[Halffy]

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 😀

Cordialement /.

 

[TooFatBoy]

Bonjour,

En VBA, tu dois pouvoir utiliser ceci :
IF DAY(date-du-jour)>19 AND DAY(date-du-jour)<26 THEN

 

[mapomme]

Bonjour @Halffy 🙂, bonjour @Marcel32 😉,

Bonsoir à tous les insomniaques, ou bonjour à tous les lèves-tôt

s'il y avait une âme charitable s'il vous plait / Je pourrais peut-être ainsi aller me coucher; non je plaisante

Visiblement @Halffy fait partie des troisièmes , "les couche-tard". Il est tombé entre 4h42 et 5h08 dans les bras de Morphée et pas qu'à moitié, fi! 🙂😀

 

[Staple1600]

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

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)

 

[mapomme]

Bonjour @Staple1600 😉

 

[Staple1600]

Re

mapomme
Relire mon précédent message
(Ca me fera plaisir (lol))
😉

 

[mapomme]

Re @Staple1600,
Même si j'aime Orange, je trouve que son écriture ressort très peu sur du gris. J'ai du mal à lire.

 

[Staple1600]

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? 😉

 

[mapomme]

@Staple1600 😉
Je suis confus. Ce doit être le confinement ou bien un virus mutant qui s'est logé dans ma cervelle de moineau; dans ce cas, on pourra m'appeler le conard à virus. Bon je sors... Désolé 😳😀
Je ne recommencerai plus (mais si ! 😛)

 

[Staple1600]

Re

•>mapomme
Tu peux relire l'édition de mon édition avant de sortir, stp ?

 

[mapomme]

Re @Staple1600,
C'est fait! J'ai rerelu (quant au code lui-même, j'avais testé depuis belle lurette)

 

[mapomme]

C'est la dernière, je le promets...

Un p'tit code dans module1 qui répond textuellement à la question posée.

 

[Staple1600]

Re

•>mapomme:
Je peux te redemander la même faveur que l'autre fois?
😉

 

[mapomme]

Je peux te redemander la même faveur que l'autre fois?

???

En tout cas pour Midnight blue, je préfère l'original ICI à l'adaptation là.

 

[Staple1600]

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? 😉