Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

H

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

Cordialement /.
 
Trier par date Trier par votes

mapomme

XLDnaute Barbatruc
Supporter XLD
Dernière édition:
Vote positif 0 Vote négatif

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:
Vote positif 0 Vote négatif

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:
Vote positif 0 Vote négatif

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?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2021 MFC jeu d'icônes date comprise entre
2
Réponses
18
Affichages
512
Orson83
P
  • Question
XL 2016 rechercher si une date est comprise entre 2 dates de 2 onglets positionnées dans la même cellule
Réponses
2
Affichages
505
pene
P
V
  • Question
XL 2016 fonction si date comprise entre
Réponses
5
Affichages
2 K
vdudu
V
H
  • Résolu(e)
XL 2019 Boucle For...Each non fonctionnel et autres soucis de traitement
2
Réponses
15
Affichages
1 K
Staple1600
B
  • Question
XL 2016 formule si date comprise entre dexu dates
Réponses
2
Affichages
745
Bnj
B
R
  • Résolu(e)
XL 2019 recherche entre 2 plage de date
Réponses
6
Affichages
1 K
Jocelyn
C
  • Question
XL 2016 comment écrire ce texte en fonction sI
Réponses
6
Affichages
818
ChantalTreize
C
P
  • Résolu(e)
XL 2013 VBA problème de tri entre versions d'Excel
Réponses
2
Affichages
1 K
Ptrs32
P
L
  • Question
Date comprise entre deux dates
Réponses
12
Affichages
2 K
LeaPompidou
L
M
  • Question
Calcul recaptitulatif des heures
Réponses
9
Affichages
1 K
CISCO
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…