XL 2021 VBA dates au mauvais format

G

grodep

XLDnaute Occasionnel
Bonjour a tous, mon excel, récalcitrant comme dhabitude (ca ne peut évidemment ps etre ma faute) ne veut pas comprendre le format dans lequel je souhaite voir apparaitre les dates: je lui précise bien que je veux un format europée dd/mm/yyyy et il me les affiche au format américain: mm/dd/yyyy

VB: 
 ' Remplir les dates
            ws.Cells(ligne, colonneDebut).Value = Format(currentDate, "dd/mm/yyyy")
            ws.Cells(ligne + 1, colonneDebut).Value = "au"
            ws.Cells(ligne + 2, colonneDebut).Value = Format(dateFin, "dd/mm/yyyy")

Ca me parait pourtant clair, non??
Je suis désespéré chaque fois que je ne parviens pas a résoudre des trucs aussi simples...

L ensemble du code ici et le fichier en pj si besoin :

Code: 
Sub RemplirTableauSemaines()
    Dim ws As Worksheet
    Dim dateDepart As Date
    Dim dateFin As Date
    Dim currentDate As Date
    Dim i As Integer, j As Integer
    Dim colonneDebut As Integer
    Dim ligne As Integer

    ' Référence à la feuille Astr
    Set ws = ThisWorkbook.Sheets("Astr")
    
    ' Vider la feuille en dessous de la ligne 4
    ws.Rows("5:" & ws.Rows.Count).ClearContents
    ws.Rows("5:" & ws.Rows.Count).ClearFormats
    
    ' Récupérer la date de départ en cellule A4
    dateDepart = ws.Range("A4").Value
    
    ' Initialiser les variables
    ligne = 8
    currentDate = DateSerial(Year(dateDepart), Month(dateDepart), 1)
    
    ' Remplir les 3 blocs
    For j = 0 To 2
        ' Définir la colonne de début pour chaque bloc
        colonneDebut = 1 + j * 3
        
        ' Insérer les titres en ligne 7
        With ws
            .Cells(7, colonneDebut).Value = "Semaines"
            .Cells(7, colonneDebut + 1).Value = "Mar"
            .Cells(7, colonneDebut + 2).Value = "Har"
            
            ' Mettre les titres en gras
            .Range(.Cells(7, colonneDebut), .Cells(7, colonneDebut + 2)).Font.Bold = True
        End With
        
        ' Remplir le bloc de semaines
        Do While Month(currentDate) = Month(dateDepart)
            ' Déterminer la fin de semaine (dimanche)
            dateFin = currentDate + (7 - Weekday(currentDate, vbMonday))
            
            ' Remplir les dates
            ws.Cells(ligne, colonneDebut).Value = Format(currentDate, "dd/mm/yyyy")
            ws.Cells(ligne + 1, colonneDebut).Value = "au"
            ws.Cells(ligne + 2, colonneDebut).Value = Format(dateFin, "dd/mm/yyyy")
            
            ' Passer à la semaine suivante
            currentDate = dateFin + 1
            ligne = ligne + 3
        Loop
        
            
        ' Réinitialiser la ligne pour le bloc suivant
        If j < 2 Then
            ligne = 8
            dateDepart = currentDate
        End If
    Next j
End Sub
 

Pièces jointes

  • Astr.xlsm
    20.7 KB · Affichages: 4
Solution
vgendron
hello
un essai avec ceci
ce que j'ai appris récemment.. quand il s'agit de récuperer une date placée dans la feuille excel, il faut passer par value2 pour que VBA récupère la date SANS essayer de reconnaitre le format d'affichage..

VB: 
Sub RemplirTableauSemaines()
    Dim ws As Worksheet
    Dim dateDepart As Date
    Dim dateFin As Date
    Dim currentDate As Date
    Dim i As Integer, j As Integer
    Dim colonneDebut As Integer
    Dim ligne As Integer

    ' Référence à la feuille Astr
    Set ws = ThisWorkbook.Sheets("Astr")
    
    ' Vider la feuille en dessous de la ligne 4
    ws.Rows("5:" & ws.Rows.Count).ClearContents
    ws.Rows("5:" & ws.Rows.Count).ClearFormats
    
    ' Récupérer la date de départ en cellule A4...
Trier par date Trier par votes
vgendron

vgendron

XLDnaute Barbatruc
hello
un essai avec ceci
ce que j'ai appris récemment.. quand il s'agit de récuperer une date placée dans la feuille excel, il faut passer par value2 pour que VBA récupère la date SANS essayer de reconnaitre le format d'affichage..

VB: 
Sub RemplirTableauSemaines()
    Dim ws As Worksheet
    Dim dateDepart As Date
    Dim dateFin As Date
    Dim currentDate As Date
    Dim i As Integer, j As Integer
    Dim colonneDebut As Integer
    Dim ligne As Integer

    ' Référence à la feuille Astr
    Set ws = ThisWorkbook.Sheets("Astr")
    
    ' Vider la feuille en dessous de la ligne 4
    ws.Rows("5:" & ws.Rows.Count).ClearContents
    ws.Rows("5:" & ws.Rows.Count).ClearFormats
    
    ' Récupérer la date de départ en cellule A4
    dateDepart = ws.Range("A4").Value2
    'MsgBox Month(dateDepart)
    ' Initialiser les variables
    ligne = 8
    currentDate = DateSerial(Year(dateDepart), Month(dateDepart), 1)
   ' MsgBox Month(currentDate)
    ' Remplir les 3 blocs
    For j = 0 To 2
        ' Définir la colonne de début pour chaque bloc
        colonneDebut = 1 + j * 3
        
        ' Insérer les titres en ligne 7
        With ws
            .Cells(7, colonneDebut).Value = "Semaines"
            .Cells(7, colonneDebut + 1).Value = "Mar"
            .Cells(7, colonneDebut + 2).Value = "Har"
            
            ' Mettre les titres en gras
            .Range(.Cells(7, colonneDebut), .Cells(7, colonneDebut + 2)).Font.Bold = True
        End With
        
        ' Remplir le bloc de semaines
        Do While Month(currentDate) = Month(dateDepart)
            ' Déterminer la fin de semaine (dimanche)
            dateFin = currentDate + (7 - Weekday(currentDate, vbMonday))
            
            ' Remplir les dates
            ws.Cells(ligne, colonneDebut) = currentDate
            ws.Cells(ligne + 1, colonneDebut).Value = "au"
            ws.Cells(ligne + 2, colonneDebut).Value = dateFin
            
            ' Passer à la semaine suivante
            currentDate = dateFin + 1
            ligne = ligne + 3
        Loop
        
            
        ' Réinitialiser la ligne pour le bloc suivant
        If j < 2 Then
            ligne = 8
            dateDepart = currentDate
        End If
    Next j
End Sub
 
Vote positif 0 Vote négatif
Solution
G

grodep

XLDnaute Occasionnel
vgendron à dit:
hello
un essai avec ceci
ce que j'ai appris récemment.. quand il s'agit de récuperer une date placée dans la feuille excel, il faut passer par value2 pour que VBA récupère la date SANS essayer de reconnaitre le format d'affichage..

VB: 
Sub RemplirTableauSemaines()
    Dim ws As Worksheet
    Dim dateDepart As Date
    Dim dateFin As Date
    Dim currentDate As Date
    Dim i As Integer, j As Integer
    Dim colonneDebut As Integer
    Dim ligne As Integer

    ' Référence à la feuille Astr
    Set ws = ThisWorkbook.Sheets("Astr")
   
    ' Vider la feuille en dessous de la ligne 4
    ws.Rows("5:" & ws.Rows.Count).ClearContents
    ws.Rows("5:" & ws.Rows.Count).ClearFormats
   
    ' Récupérer la date de départ en cellule A4
    dateDepart = ws.Range("A4").Value2
    'MsgBox Month(dateDepart)
    ' Initialiser les variables
    ligne = 8
    currentDate = DateSerial(Year(dateDepart), Month(dateDepart), 1)
   ' MsgBox Month(currentDate)
    ' Remplir les 3 blocs
    For j = 0 To 2
        ' Définir la colonne de début pour chaque bloc
        colonneDebut = 1 + j * 3
       
        ' Insérer les titres en ligne 7
        With ws
            .Cells(7, colonneDebut).Value = "Semaines"
            .Cells(7, colonneDebut + 1).Value = "Mar"
            .Cells(7, colonneDebut + 2).Value = "Har"
           
            ' Mettre les titres en gras
            .Range(.Cells(7, colonneDebut), .Cells(7, colonneDebut + 2)).Font.Bold = True
        End With
       
        ' Remplir le bloc de semaines
        Do While Month(currentDate) = Month(dateDepart)
            ' Déterminer la fin de semaine (dimanche)
            dateFin = currentDate + (7 - Weekday(currentDate, vbMonday))
           
            ' Remplir les dates
            ws.Cells(ligne, colonneDebut) = currentDate
            ws.Cells(ligne + 1, colonneDebut).Value = "au"
            ws.Cells(ligne + 2, colonneDebut).Value = dateFin
           
            ' Passer à la semaine suivante
            currentDate = dateFin + 1
            ligne = ligne + 3
        Loop
       
           
        ' Réinitialiser la ligne pour le bloc suivant
        If j < 2 Then
            ligne = 8
            dateDepart = currentDate
        End If
    Next j
End Sub
Cliquez pour agrandir...
ca fonctionne tres bien, je vais tenter de comprendre ce que tes modifications ont provoquées. Grand merci en tout cas
 
Vote positif 0 Vote négatif

Discussions similaires

piga25
  • Résolu(e)
XL 2016 Erreur dans code VBA
4 5 6
Réponses
76
Affichages
2 K
patricktoulon
patricktoulon
S
  • Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
356
souhaib ad
S
S
  • Résolu(e)
XL 2016 problème de filtre dans listbox
2 3 4
Réponses
51
Affichages
2 K
saidoush
S
S
  • Question
XL 2021 macro VBA excel
Réponses
1
Affichages
434
crocrocro
C
M
  • Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
226
MBEPID
M
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
346
snoopy07
S
M
  • Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
350
Gégé-45550
Gégé-45550
G
  • Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
17
Affichages
822
gali2
G
halecs93
  • Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
659
halecs93
halecs93
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
1 K
NONO14
N

Membres actuellement en ligne

16 membres et 238 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 118
Messages
2 116 421
Membres
112 745
dernier inscrit
mcanas