Re : Créer un base de données par macro Excel
Bonjour,
Suite à l'utilisation de cette macro dans un autre suivi, je rencontre à nouveau un problème... En effet, la création de la BDD de déroule très très bien mais dans une série de colonne concernant des dates (jj/mm/aaaa), la dernière colonne de date apparait comme suit : mm/jj/aaaa !! alors que les autres dates fonctionnent correctement
.
J'ai vérifié les format de date dans les onglets d'origine mais rien de particulier.
Ce que je ne comprend pas c'est pourquoi 2 formats de date différents se cotoient ?
Merci d'avance.
Berlan
Ci-dessous, pour rappel , le code :
Sub MAJ_RAO()
Dim feColl, sDat(), f%, oDat, i&, j&, n&
Dim pCol%, pLig$
'=================================================================
'PARAMETRES :
pCol = 44 'Nombre de colonnes à traiter
pLig = 367 'Première ligne utilisable dans la feuille "Synthese"
feColl = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k") 'Liste des feuilles de données
'=================================================================
ReDim sDat(1 To pCol, 1 To 1)
For f = 0 To UBound(feColl)
With Sheets(feColl(f))
oDat = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, pCol)).Value
End With
For i = 1 To UBound(oDat, 1)
If Left$(oDat(i, 1), 1) = "D" Then
n = n + 1
ReDim Preserve sDat(1 To pCol, 1 To n)
For j = 1 To pCol
sDat(j, n) = oDat(i, j)
Next j
End If
Next i
Next f
sDat = WorksheetFunction.Transpose(sDat)
With Sheets("Synthese")
.Cells(pLig, 1) = " "
.Range(.Cells(pLig, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, pCol)).ClearContents
.Cells(pLig, 1).Resize(UBound(sDat, 1), pCol) = sDat
End With
End Sub