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

Lister les jours d'un mois

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion apt
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

apt

XLDnaute Impliqué
Bonjour à tous,

J'aimerais lister les jours du mois en cours.

Dans la colonne A les noms des jours, dans la colonne B les date sous forme "dd/mm/yyyy".

Mais voila, les formes de date en colonne B s'affichent sous format anglais du 01/02/2012 au 12/02/2012

Et sous format français du 13/02/2012 au 29/02/2012.

En plus j'ai deux lignes affichées sous format anglais aussi en superflu (01/03/2012 et 02/03/2012).

Voir l'exemple en PJ.

Merci.
 

Pièces jointes

Trier par date Trier par votes
Re : Lister les jours d'un mois

Bonjour
L'utilisation de format pour les dates n'a jamais été performant...
Je te propose

Private Sub CommandButton1_Click()
Dim vardate As Date
Dim i As Byte
Range("a1") = Format(Now(), "mmmm")
For i = 1 To 31
vardate = CDate(i & "/" & Month(Now()) & "/" & Year(Now()))
Range("A" & i + 2).Value = Format(vardate, "dddd")
Range("B" & i + 2).Value = vardate
If Month(vardate + 1) <> Month(Now()) Then Exit For
Next
End Sub
 
Vote positif 0 Vote négatif
Re : Lister les jours d'un mois

Bonsoir Rachid, fanfan38

Rachid : Ca marche bien ta solution.

fanfan38 : Ca marche aussi ton code.

Mais pourquoi tous ces erreurs détecter dans mon fichier et pourquoi Day() retourne 31 au lieu de 29 pour le mois de février ?

Merci.
 
Vote positif 0 Vote négatif
Re : Lister les jours d'un mois

Bonsoir à tous,

En B3, la date de début de mois :

VB: 
Sub Incrementer_Les_Jours_Du_Mois()
Dim MaDate As Long
MaDate = Range("B3").Value
Nbrejours = Day(DateSerial(Year(MaDate), Month(MaDate) + 1, 0))
Range("B3").AutoFill Destination:=Range("B3").Resize(Nbrejours), Type:=xlFillDays
Range("B3").Resize(Nbrejours).NumberFormat = "dd/mm/yyyy"
Range("A3").Resize(Nbrejours).NumberFormat = "dddd"
For jour = 1 To Nbrejours
  Range("A" & jour + 2).Value = Range("B" & jour + 2).Value
Next jour
End Sub

Ou plus simplement, saisir une date en B3 puis exécuter :

VB: 
Sub Incrementer_Les_Jours_Du_Mois()
Dim Nbrejours As Byte
'Premier jour du mois
Range("B3") = DateSerial(Year(Range("B3").Value), Month(Range("B3").Value), 1)
Nbrejours = Day(DateSerial(Year(Range("B3").Value), Month(Range("B3").Value) + 1, 0))
Range("A3").Value = Range("B3").Value
Range("A3").Resize(Nbrejours).NumberFormat = "dddd"
Range("B3").Resize(Nbrejours).NumberFormat = "dd/mm/yyyy"
Range("A3").AutoFill Destination:=Range("A3").Resize(Nbrejours), Type:=xlFillDays
Range("B3").AutoFill Destination:=Range("B3").Resize(Nbrejours), Type:=xlFillDays
End Sub

Klin89
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Question Question
Microsoft 365 Calcule entre plusieurs périodes
2
Réponses
24
Affichages
636
Lemtosh
L
L
  • Question Question
Microsoft 365 excel formule sur les jours ouvrés
Réponses
2
Affichages
357
Lordpeter
L
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
641
Staple1600
R
  • Résolu(e)
XL 2019 recherche dans plage
Réponses
10
Affichages
583
AtTheOne
C
  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
231
Dudu2
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
576
laurent950
R
  • Résolu(e)
XL 2021 plage de date comprise dans une autre plage de date
Réponses
3
Affichages
260
Ron74
R
  • Question Question
XL 2021 Afficher une date d'une colonne selon date du jour
Réponses
8
Affichages
651
BLACKHAYES
  • Résolu(e)
Microsoft 365 Extraire les jours fériés selon le mois
2
Réponses
15
Affichages
495
Moi69
M
  • Question Question
Microsoft 365 Indice de révision de chaque ligne automatiquement
Réponses
2
Affichages
488
MLIZIN
M
E
  • Question Question
XL 2019 additionner plusieurs valeurs pour un même sku
Réponses
11
Affichages
597
Cousinhub
  • Résolu(e)
XL 2021 Comportement bizarre en Batch
Réponses
12
Affichages
448
jurassic pork
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
E
  • Résolu(e)
Microsoft 365 Ajout et Suppression Date automatique
Réponses
9
Affichages
631
eric72
E
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
609
Raziel abel
J
  • Question Question
Microsoft 365 incrémenter numéro en fonction du mois
Réponses
8
Affichages
650
Phil69970
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
699
vgendron
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
811
RyuAutodidacte
S
  • Question Question
Microsoft 365 Créer le nb de lignes contenues dans une période
Réponses
5
Affichages
584
Sampras63
S
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
912
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…