VBA - Supprimer les slash dans une date
Résolu
nabhalia
Messages postés
23
Statut
Membre
-
Numa -
Numa -
Bonjour,
Sous Excel 2003, avec une macro, je voudrais supprimer les slash dans une date.
Passer de 08/12/1978 à 08121978
J'ai saisi le code ci-dessous sous vba :
Mais quand je lance la macro j'obtiens le résultat suivant :
08/12/1978 -> 1281978
Excel inverse les "jours" et les mois". (problème de format de date anglais je suppose...)
Quelqu'un saurait-il m'expliquer comment éviter cette inversion ?
Accessoirement, comment faire pour qu'il ne supprime pas le "0" avant le "8" ?
(j'arriverai m'arranger pour le replacer si le "8" repasse en première position dans la cellule, mais s'il y a un moyen de le faire simplement...)
Désolée si cette question a déjà été posée, j'ai cherché pendant quelques jours, mais rien trouvé.
Merci d'avance pour votre aide :-)
N.
Sous Excel 2003, avec une macro, je voudrais supprimer les slash dans une date.
Passer de 08/12/1978 à 08121978
J'ai saisi le code ci-dessous sous vba :
ActiveCell.Select
ActiveCell.Replace What:="/", Replacement:=""
Selection.NumberFormat = "@"
Mais quand je lance la macro j'obtiens le résultat suivant :
08/12/1978 -> 1281978
Excel inverse les "jours" et les mois". (problème de format de date anglais je suppose...)
Quelqu'un saurait-il m'expliquer comment éviter cette inversion ?
Accessoirement, comment faire pour qu'il ne supprime pas le "0" avant le "8" ?
(j'arriverai m'arranger pour le replacer si le "8" repasse en première position dans la cellule, mais s'il y a un moyen de le faire simplement...)
Désolée si cette question a déjà été posée, j'ai cherché pendant quelques jours, mais rien trouvé.
Merci d'avance pour votre aide :-)
N.
A voir également:
- VBA - Supprimer les slash dans une date
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page dans word - Guide
- Comment supprimer une application préinstallée sur android - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
6 réponses
Bonjour
C'est juste une question de format, il n'y a pas à supprimer les /.
Essaie ceci :
m@rina
C'est juste une question de format, il n'y a pas à supprimer les /.
Essaie ceci :
ActiveCell.NumberFormat = "ddmmyyyy"
m@rina
Bonjour,
Je viens de tester,
Si je mets ce format, la cellule reste au format date, ce que je voudrais éviter.
Je dois reprendre le contenu de cette cellule dans une autre, et Excel me remet alors les slash...
Je viens de tester,
Si je mets ce format, la cellule reste au format date, ce que je voudrais éviter.
Je dois reprendre le contenu de cette cellule dans une autre, et Excel me remet alors les slash...
Salut,
Regardes si c'est ce que tu cherches
ActiveCell.Select
ActiveCell.Replace What:="/", Replacement:=""
Selection.NumberFormat = "00000000"
Regardes si c'est ce que tu cherches
ActiveCell.Select
ActiveCell.Replace What:="/", Replacement:=""
Selection.NumberFormat = "00000000"
Bonjour,
Ça ne fonctionne pas non plus avec le format "00000000" ,
mais j'ai réussi à contourner le problème en insérant du texte dans la cellule, puis en supprimant les slashs.
Au cas où, si quelqu'un a une solution plus directe, ça m'intéresserait de la connaître.
Merci pour votre aide.
Ça ne fonctionne pas non plus avec le format "00000000" ,
mais j'ai réussi à contourner le problème en insérant du texte dans la cellule, puis en supprimant les slashs.
Au cas où, si quelqu'un a une solution plus directe, ça m'intéresserait de la connaître.
Merci pour votre aide.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
Regarde si ce code te convient
Selection.FormulaR1C1 = "'" & ActiveCell
Selection.Replace What:="/", Replacement:=""
Regarde si ce code te convient
Selection.FormulaR1C1 = "'" & ActiveCell
Selection.Replace What:="/", Replacement:=""
Autre solution : créer un fichier de type note pad / Bloc-Notes (donc format .txt) copier les dates et les coller dans le fichier .txt les / disparaissent
Copier les valeurs et les coller dans Excel en ayant au préalable configurer les cellules au format Texte (pour éviter de perdre les "0" en début de date)
Copier les valeurs et les coller dans Excel en ayant au préalable configurer les cellules au format Texte (pour éviter de perdre les "0" en début de date)