Bonjour à tous.

Dans mes cellules j'ai des intervalles de dates comme :
01 nov 09 to 31 oct 10

Je cherche à les spliter et mettre les résultats dans deux colonnes différentes.

Voilà mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Tableau = Split(Cells(i, j), "to", , vbTextCompare)
For k = 0 To UBound(Tableau)
        Cells(i, k + 1) = Tableau(k)                
            'Conversion en date
            If IsDate(Cells(i, k + 1)) = True Then
                 Cells(i,k+1) = CDate(Cells(i, k + 1))
            End If
Next k
J'obtiens bien 31/10/2010 dans la troisième colonne,
mais 11/01/2009 dans la deuxième. Excel a donc inversé le jour et le mois dans la première date, mais pas dans la deuxième.
Je ne vois absolument pas pourquoi.

Avez vous une solution ?
Merci beaucoup