Fonction Split et dates, problème

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:

---

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

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

jj/mm/aaaa

et pas mm/jj/aaaa

Cdlt
DoDo

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:

---

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...

salut
les dates :ccool:
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 )

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:

---

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

---

:cry:

Salut

Citation:

---

Envoyé par hugues1138

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:

---

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

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

Merci en tous cas 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