Discussion :

[diss10]

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 .



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

Merci bcp

[Nicolas JACQUIN]

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 :

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

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

[diss10]

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 .

[Nicolas JACQUIN]

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 :

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

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

[unparia]

Bonjour

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 :

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

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

[diss10]

Code :

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

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

[unparia]

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 !