Problème de format de dates

  • Initiateur de la discussion Initiateur de la discussion Gisamark
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Gisamark

XLDnaute Junior
Problème de format de dates [RESOLU]

[RESOLU]

Bonjour à tous,

Ma colonne A ressemble à ça :
18/05/2009 17:10:00:011
18/05/2009 17:12:00:012
18/05/2009 17:14:00:012
...

J'ai besoin de changer le dernier double point par une virgule pour que excel reconnaise le format. (la séparation seconde/millième doit être une virgule)

Mon code fonctionne bien :

Dim i As Integer
Dim Heure As String

For i = 1 To 30
Heure = Range("A" & i).Value
Mid(Heure, 20, 1) = ","
Range("A" & i).Value = Heure
Next i

Mais bizarement, les données restent à gauche des cellules.
Il faut que je les séléctionne puis appuie sur Entrée pour qu'elles s'alignent à droite.

Avez-vous une idée du pourquoi ?

Merci de votre aide.

Ci-joint mon fichier avec la macro1.
 

Pièces jointes

Dernière édition:
Re : Problème de format de dates

Bonjour,

Essaye en multipliant ta valeur par 1 puis remettre le bon format date-heure si nécessaire.

C'est ce que je ferais en formule, mais n'étant pas spécialiste VBA, je ne saurais de donner la solution VBA.

Je te laisse donc retranscrire.

@+
 
Re : Problème de format de dates

Merci d'avoir répondu Tibo, mais ça ne marche pas.
J'ai néanmoins réussi à résoudre le problème.
Au lieu d'utiliser Range.Value pour remplir mes cellules, j'ai utilisé Range.FormulaLocal.
Je ne sais pas pourquoi l'un marche et pas l'autre.

Voici donc le nouveau code qui fonctionne sans problème :

Code:
Dim i As Integer
Dim Heure As String

For i = 1 To 30
    Heure = Range("A" & i).Value
    Mid(Heure, 20, 1) = ","
    Range("A" & i).FormulaLocal = Heure
Next i
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
894
Réponses
1
Affichages
1 K
Retour