Discussion :

[toukii]

J'utilise le code suivant pour ajouter un format à des cellules :

Code :

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

1
2
3
 
ThisWorkbook.Worksheets("Feuil1").Range("A1:A5").Select
Selection.NumberFormatLocal = "jj/mm/aaaa"

Si je met dans une cellule : "02022009" je veux obtenir "02/02/2009"
Or j'obtiens : 26/01/7436

donc la je bloque..
Merci de votre aide =)

[Invité]

Bonjour

Essayes cela

Code :

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

Selection.NumberFormat = "dd/mm/yyyy"

Il faut penser US lorsque l'on est en vba.

Philippe

[AlainTech]

Si je met dans une cellule : "02022009" je veux obtenir "02/02/2009"
Or j'obtiens : 26/01/7436

Comment veux-tu qu'Excel devine que tu lui donnes une date alors que tu introduis un nombre?

Le nombre que tu lui donnes, il le traduit correctement car le 26/01/7436 est bien le 2 022 008 ième jour après le 1/01/1900.

Si c'est une question de ne pas devoir taper de séparateur, il faudra passer soit par un UserForm, soit par une procédure événementielle dans la feuille.

Le jeu en vaut-il la chandelle?

[babybell]

Bonjour toukii, le forum

S'il est vrai que les "/" posent problème, tu peux toujours mettre cela.

Code :

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

Selection.NumberFormat = "00-00-0000"

, c'est pas ce que tu veux, mais c'est mieux que rien.

[Krovax]

Le problème ne vient pas de la c'est simplement que si tu donne un entier Npour ensuite le convertir en date excel te donne gentillement la date du Nème jour à partir du 1/01/1900.
si tu met 32 il te donne 01/02/1900
366 devient 01/01/1901

Comme l'a justement dit AlainTech il faut une macro evènementiel

Ou alors je croie que cela suffirait

Code :

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

1
2
3
4
5
6
7
 
Dim cel As Range
For Each cel In Range("A1:A5")
   cel = Left(cel, 2) & "/" & Right(cel, Len(cel) - 2)
   cel = Left(cel, 5) & "/" & Right(cel, Len(cel) - 5)
   cel.NumberFormatLocal = "jj/mm/aaaa"
Next cel

Après il fau bien que ta valeur commence par un 0

Edit :Corection du code précédent et ajout de
si ce n'est pas le cas il va te faloir un peu modifier ca

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim cel As Range, i As Integer
 
For Each cel In Range("A1:A5")
    i = 8 - Len(cel)
   cel = Left(cel, 2 - i) & "/" & Right(cel, Len(cel) - 2 + i)
   cel = Left(cel, 5 - i) & "/" & Right(cel, Len(cel) - 5 + i)
   cel.NumberFormatLocal = "jj/mm/aaaa"
Next cel

[babybell]

Bonjour Krovax

J'ai essayé, cela fonctionne bien, mais seulement pour le 02/02/2009 car si on met 03022009, il en ressort : 02/03/2009, à l'anglaise

[Krovax]

Visiblement (selon la faq) il faut donner la date en format mm/dd/aaa le format francais et uniquement a l'affichage donc voilail suffit d'inverser les 2 premiers chiffres avec les deux suivant

Code :

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

1
2
3
4
5
6
7
8
Dim cel As Range, i As Integer
'
For Each cel In Range("A1:A2")
    i = 8 - Len(cel)
   cel = Mid(cel, 2 - i + 1, 2) & "/" & Left(cel, 2 - i) & "/" & Right(cel, 4)
   cel.NumberFormatLocal = "jj/mm/aaaa"
 
Next cel

[babybell]

Effectivement, cela fonctionne, mais avec :

Code :

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

    i = 8 - Len(cel)

Bonne journée

[Krovax]

j'aivai commencé a utilisé un variable texte mais c'était des lignes inutiles, merci de m'avoir corrigé
J'édite le code