Discussion :

[hugues1138]

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

[dodo69]

tu as vérifié le format de tes celulle ?

jj/mm/aaaa

et pas mm/jj/aaaa

Cdlt
DoDo

[hugues1138]

Oui, le problème n'a pas l'air de venir de là.

Après test sur le code, si j'enlève la partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
'Conversion en date
            If IsDate(Cells(i, k + 1)) = True Then
                 Cells(i,k+1) = CDate(Cells(i, k + 1))
            End If

j'obtiens le bon résultat pour l'exemple précédent, mais un problème pour des cases du type :
01/10/09 au 30/09/10

où la réponse est 10/01/2009 et 30/09/10

j'en perds mon latin...

[Daranc]

salut
les dates
la méchante prise de tête
essayes de forcé le format =format( ladate,"dd/mm/yyyy") le passage par VBA à tendance à inversé les mois et le jours ( si il y a la possibilité ; pas de 01/30/2010 mais le 01/09/2010 passe facilement en 09/01/2010 )

[hugues1138]

je viens d'essayer le forçage de date, et toujours pas de solutions. Je résume :

"01/10/09 au 30/09/10" devient 01/10/2009 et 30/09/2010
après l'exécution du code, puis :
01/10/2009 30/09/2010
Après le forçage, donc c'est bon. MAIS :

"01 nov 09" to "31 oct 10" devient 01-Nov-09 et 31 oct 10
devient après forçage :
11/01/2009 31/10/2010
Donc il rajoute le problème.

J'ai utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Cells(i, j) = Format(Cells(i, j), "dd/mm/yyyy")

[Qwazerty]

Salut

Je ne vois absolument pas pourquoi.

Surement parce qu'il n'existe pas de 31ème moi, c'est pour ça qu'il ne permute pas les 2 termes.

Comme ça, ça semble fonctionner
[Edit]
Oupss, il faut mettre les valeurs dans la feuille, je reviens
[/Edit]

[Edit2]
C'est modifié.
[/Edit2]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub teste()
Dim TExte As String
Dim Date1 As Date, Date2 As Date
Dim TabDate As Variant
 
TExte = "01 nov 09 to 31 oct 10"
 
TabDate = Split(TExte, " to ")
 
Date1 = CDate(TabDate(0))
Date2 = CDate(TabDate(1))
 
'Si les cellule sont formater en format Date
Feuil1.Range("A1").Value2 = Date1
Feuil1.Range("A2").Value2 = Date2
 
'Si pas de formatage particulier
Feuil1.Range("A3").Value = Date1
Feuil1.Range("A4").Value = Date2
 
End Sub

++
Qwaz

[hugues1138]

Youpi ça fonctionne !
Mais je ne vois pas très bien la différence...

Merci en tous cas Qwazerty.

[Qwazerty]

Salut
Surement le fait de passer par une variable typé date, ça lui remet les idées en place.
Pour le tag résolu sur ton message, il existe un bouton en bas à droite, inutile de le rajouter à la main

++
Qwaz