XL 2016 problème de trie de date lors de consolidation

Staple1600 à dit:

Bonjour le fil, le forum
@jean marc1234
Suggestion du samedi après-midi
Comme ce fil de discussion contient désormais plus de trois pages, tu peux peut-être créer un autre fil en ayant pris le temps de construire un fichier exemple sans données confidentielles et ne contenant que le nécessaire pour traiter ta question
(à savoir neuf feuilles, une trentaine de lignes de données sur les feuilles avec nom de ville)
(Laisse également les différentes adaptations des code VBA que tu auras faites)

Cliquez pour agrandir...

Dranreb à dit:

Le plus souvent c'est la conséquence d'écritures directes de valeurs de TextBox servant à saisir une date, au lieu d'en écrire leurs conversions en dates à l'aide de la fonction CDate.
Cette procédure devrait vous intéresser :

VB:

Sub ConvertirEnDates()
Dim ArrWks, Wsh As Worksheet, Rng As Range, T(), L As Long, NbStr As Long, NbCDt As Long, Réécrire As Boolean
ArrWks = Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")
Application.ScreenUpdating = False
For Each Wsh In Sheets(ArrWks)
   Set Rng = Wsh.[A3].Resize(Wsh.[A1000000].End(xlUp).Row - 2)
   T = Rng.Value
   Réécrire = False
   For L = 1 To UBound(T, 1)
      If VarType(T(L, 1)) = vbString Then
         NbStr = NbStr + 1
         If IsDate(T(L, 1)) Then
            T(L, 1) = CDate(T(L, 1))
            NbCDt = NbCDt + 1
            Réécrire = True: End If: End If: Next L
   If Réécrire Then Rng.Value = T
   Next Wsh
Select Case NbStr
   Case Is > NbCDt: MsgBox NbStr & " textes trouvés, dont " & NbStr - NbCDt & _
      " n'ont pu être convertis en dates.", vbInformation, "ConvertirEnDates"
   Case 0: MsgBox "Aucun texte trouvé.", vbInformation, "ConvertirEnDates"
   Case Else: MsgBox NbStr & " textes trouvés, ayant tous été convertis en dates.", _
      vbInformation, "ConvertirEnDates"
   End Select
End Sub

Cliquez pour agrandir...

Sub ConvertirEnDates()
Dim ArrWks, LMax As Long, Wsh As Worksheet, Rng As Range, T(), L As Long, NbStr As Long, NbCDt As Long, Réécrire As Boolean
ArrWks = Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")
Application.ScreenUpdating = False
For Each Wsh In Sheets(ArrWks)
   Set Rng = Wsh.[A1000000].End(xlUp)
   If Rng.Row >= 3 Then
      Set Rng = Wsh.Range(Wsh.[A3], Rng)
      If Rng.Rows.Count = 1 Then ReDim T(1 To 1, 1 To 1): T(1, 1) = Rng.Value Else T = Rng.Value
      ' Récupère les valeurs des cellules de la plage dans un tableau VBA 2D d'une seule colonne.
      Réécrire = False
      For L = 1 To UBound(T, 1)
         If VarType(T(L, 1)) = vbString Then
            NbStr = NbStr + 1 ' Compte les textes
            If IsDate(T(L, 1)) Then ' Si la conversion du texte en date est possible
               T(L, 1) = CDate(T(L, 1)) ' Remplace la valeur texte par sa conversion en date
               NbCDt = NbCDt + 1 ' Compte les corrections
               Réécrire = True: End If: End If: Next L
      If Réécrire Then Rng.Value = T ' Réécrit les valeurs corrigées s'il y a eu au moins une correction.
      End If: Next Wsh
Select Case NbStr
   Case Is > NbCDt: MsgBox NbStr & " textes trouvés, dont " & NbStr - NbCDt & _
      " n'ont pu être convertis en dates.", vbInformation, "ConvertirEnDates"
   Case 0: MsgBox "Aucun texte trouvé.", vbInformation, "ConvertirEnDates"
   Case Else: MsgBox NbStr & " textes trouvés, ayant tous été convertis en dates.", _
      vbInformation, "ConvertirEnDates"
   End Select
End Sub

jean marc1234 à dit:

Je me doutais un peux que sa devais venir de lamise en forme du champs date

Cliquez pour agrandir...

Dranreb à dit:

C'est que je ne sais pas pourquoi ça plante.
J'en suis réduit à une hypothèse: certains tableaux seraient vides.
Je me suis borné à commenter les instructions essentielles :

VB:

Sub ConvertirEnDates()
Dim ArrWks, LMax As Long, Wsh As Worksheet, Rng As Range, T(), L As Long, NbStr As Long, NbCDt As Long, Réécrire As Boolean
ArrWks = Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")
Application.ScreenUpdating = False
For Each Wsh In Sheets(ArrWks)
   Set Rng = Wsh.[A1000000].End(xlUp)
   If Rng.Row >= 3 Then
      Set Rng = Wsh.Range(Wsh.[A3], Rng)
      If Rng.Rows.Count = 1 Then ReDim T(1 To 1, 1 To 1): T(1, 1) = Rng.Value Else T = Rng.Value
      ' Récupère les valeurs des cellules de la plage dans un tableau VBA 2D d'une seule colonne.
      Réécrire = False
      For L = 1 To UBound(T, 1)
         If VarType(T(L, 1)) = vbString Then
            NbStr = NbStr + 1 ' Compte les textes
            If IsDate(T(L, 1)) Then ' Si la conversion du texte en date est possible
               T(L, 1) = CDate(T(L, 1)) ' Remplace la valeur texte par sa conversion en date
               NbCDt = NbCDt + 1 ' Compte les corrections
               Réécrire = True: End If: End If: Next L
      If Réécrire Then Rng.Value = T ' Réécrit les valeurs corrigées s'il y a eu au moins une correction.
      End If: Next Wsh
Select Case NbStr
   Case Is > NbCDt: MsgBox NbStr & " textes trouvés, dont " & NbStr - NbCDt & _
      " n'ont pu être convertis en dates.", vbInformation, "ConvertirEnDates"
   Case 0: MsgBox "Aucun texte trouvé.", vbInformation, "ConvertirEnDates"
   Case Else: MsgBox NbStr & " textes trouvés, ayant tous été convertis en dates.", _
      vbInformation, "ConvertirEnDates"
   End Select
End Sub

Édition:

Non, il ne faut pas dire les chose comme ça. Ça mélange des notions qui n'ont rien à voir les unes avec les autres. Une cellule possède une valeur de cellule qui peut être de peu de types possibles: Vide, Erreur, Texte, Logique, Nombre, Date ou Monétaire. Indépendamment de cela elle possède un format de cellule qui indique seulement comment doit être resitué visuellement cette information.

Cliquez pour agrandir...

Dranreb à dit:

C'est que je ne sais pas pourquoi ça plante.
J'en suis réduit à une hypothèse: certains tableaux seraient vides.
Je me suis borné à commenter les instructions essentielles :

VB:

Sub ConvertirEnDates()
Dim ArrWks, LMax As Long, Wsh As Worksheet, Rng As Range, T(), L As Long, NbStr As Long, NbCDt As Long, Réécrire As Boolean
ArrWks = Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")
Application.ScreenUpdating = False
For Each Wsh In Sheets(ArrWks)
   Set Rng = Wsh.[A1000000].End(xlUp)
   If Rng.Row >= 3 Then
      Set Rng = Wsh.Range(Wsh.[A3], Rng)
      If Rng.Rows.Count = 1 Then ReDim T(1 To 1, 1 To 1): T(1, 1) = Rng.Value Else T = Rng.Value
      ' Récupère les valeurs des cellules de la plage dans un tableau VBA 2D d'une seule colonne.
      Réécrire = False
      For L = 1 To UBound(T, 1)
         If VarType(T(L, 1)) = vbString Then
            NbStr = NbStr + 1 ' Compte les textes
            If IsDate(T(L, 1)) Then ' Si la conversion du texte en date est possible
               T(L, 1) = CDate(T(L, 1)) ' Remplace la valeur texte par sa conversion en date
               NbCDt = NbCDt + 1 ' Compte les corrections
               Réécrire = True: End If: End If: Next L
      If Réécrire Then Rng.Value = T ' Réécrit les valeurs corrigées s'il y a eu au moins une correction.
      End If: Next Wsh
Select Case NbStr
   Case Is > NbCDt: MsgBox NbStr & " textes trouvés, dont " & NbStr - NbCDt & _
      " n'ont pu être convertis en dates.", vbInformation, "ConvertirEnDates"
   Case 0: MsgBox "Aucun texte trouvé.", vbInformation, "ConvertirEnDates"
   Case Else: MsgBox NbStr & " textes trouvés, ayant tous été convertis en dates.", _
      vbInformation, "ConvertirEnDates"
   End Select
End Sub

Édition:

Non, il ne faut pas dire les chose comme ça. Ça mélange des notions qui n'ont rien à voir les unes avec les autres. Une cellule possède une valeur de cellule qui peut être de peu de types possibles: Vide, Erreur, Texte, Logique, Nombre, Date ou Monétaire. Indépendamment de cela elle possède un format de cellule qui indique seulement comment doit être resitué visuellement cette information.

Cliquez pour agrandir...

Staple1600 à dit:

Re,

@jean marc1234
Heureusement que je t'vais suggéré de prendre le temps de créer un fichier anonymisé...


Je viens de tester sur ton classeur et la macro que j'avais proposer dans l'autre fil fonctionne.
Je n'ai pas de message d'erreur et le tri se fait sur la colonne A
(si tes colonnes A contiennent de "vraies dates")
(Je parle de la macro nommée consolider_Et_Trier)
L'autre ne sert que pour test sur un classeur test, il faut évidemment pas l'utiliser sur ton fichier réel
Mais cela je te l'ai déjà dit dans l'autre fil 😉

Cliquez pour agrandir...

Staple1600 à dit:

Re,

@jean marc1234
De quel mail tu parles???
Je n'ai jamais échangé avec toi par mail ??

Moi je parle de ce fil de discussion actuel, et du message#2 où je te disais avoir testé sur ton fichier exemple et que le tri se fait bien si le classeur contient de vraies dates en colonne A.

Mais bon, pas grave.

Cliquez pour agrandir...