[XL-2010] Corriger l’écriture de mes Dates avec des "/"

1 pièce(s) jointe(s)

Corriger l’écriture de mes Dates avec des "/"

Bonjour :)

Svp j'aimerais corriger l’écriture de mes dates(Remplacer les point par des / ) sur toutes la colonne N ( J'ai de milliers de dates ) , le pb c que je doit utiliser ces dates par la suite pour des calculs .

Pièce jointe 254222

Est ce que quelqu'un a une idée ?

Merci bcp

Bonjour,

sujet abordé y a pas si longtemps sur le forum, si ça peut aider

https://www.developpez.net/forums/d1...e-format-date/

selon le code donné par "parmi"
Code:

1 2 3 4 5 6 7 8 9 Sub point_slash_date() 'A adapter Range("N1:N1000").TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 4), TrailingMinusNumbers:=True End Sub

ah daccord cet une macro enregistré a partir du menu , Donnée => Convertir => Date JMA avec "/"

Je vais essayer d'enregistrer un macro pareille aussi , juste j'aimerais que la macro s'initialise a chaque fois qu'une date s'ajoute et que je n'ai pas besoin de l’exécuter .

Peut-être en essayant ce code( à mettre dans le code de la feuille), comme ça à chaque changement sur les date ça changera le format

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Set champ = [N1:N1000]
  If Not Intersect(champ, Target) Is Nothing Then
        On Error Resume Next
  Range("N1:N1000").TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
        On Error Resume Next
  End If
 
End Sub

Sinon pourquoi ne pas rentrer la date directement au bon format ??

Bonjour

Citation:

c'est juste que j'aimerais que la correction s'effectue automatiquement ~~la macro s'initialise~~ a chaque fois qu'une date s'ajoute et que je n'aie pas besoin d'agir manuellement ~~de l’exécuter~~

Ben ... Exemple avec des données en colonne A
Code:

1 2 3 4 5 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target.Value = CDate(Replace(Target.Value, ".", "/")) End If End Sub

Citation:
Envoyé par unparia
Code:

1 2 3 4 5 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target.Value = CDate(Replace(Target.Value, ".", "/")) End If End Sub
Ça marche , j'aimerais effectuer la même chose pour les dates déjà existante dans ma colonne .

Merci :)

Citation:

j'aimerais effectuer la même chose pour les dates déjà existante dans ma colonne

Hé bien qu'attends-tu ?
Il te suffit de faire la "chose" pour chacune des cellules parcourue dans cette colonne !

Citation:

Envoyé par unparia

la "chose" !

MDR , Merci ça marche ;)