Discussion :

[alex830001]

Bonjour,

Ma cellule (1,2) contient une date obtenue pas une formule, je fais un copier coller de la cellule en valeur pour obtenir une date toute simple puis je voudrais remplacer les / de la date par des points.

Voici le code que j'ai:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Cells(1, 2).Select
Selection.NumberFormat = "d/m/yyyy"
Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
Selection.Replace What:="/", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

Mon probleme que la commande Selection.Replace en plus de remplacer les / par des . inverse le mois et le jour...
Est que on peut empecher cela?

Merci

[decondelite]

En travaillant avec un format texte à la place du format date.

[alex830001]

Mais si je converti ma cellule en format texte, la date se transforme en chiffre.

04/11/2008 deviens 39756 en format texte

[JackOuYA]

Bonsoir,

le mieux pour travailler sur des dates c'est quand même le format de donnée date et pas chaine.. :

Code :

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

1
2
3
4
Sub yaConvert()
  ActiveCell.Value = ActiveCell.Value
  ActiveCell.NumberFormat = "dd.mm.yyyy"
 End Sub

[alex830001]

Bonsoir,

le mieux pour travailler sur des dates c'est quand même le format de donnée date et pas chaine.. :

Code :

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

1
2
3
4
Sub yaConvert()
  ActiveCell.Value = ActiveCell.Value
  ActiveCell.NumberFormat = "dd.mm.yyyy"
 End Sub

ça fonctionne niquel, ça ne fait plus l'inversion. Merci beaucoup

[alex830001]

hum j'ai parlé un peu vite, c'est vraiment une bizarerie.... lorsque je fais replace pour changer les / en . cela inverse encore la position du jour et du mois.

J'ai besoin d'enlever les / car j'enregistre le fichier par date et on se peut pas enregistrer un nom de ficher avec des / .

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
 
Cells(1, 2) = "=TODAY()+1-(WEEKDAY(TODAY())=6)*2"
Cells(1, 2).Select
  ActiveCell.Value = ActiveCell.Value
  ActiveCell.NumberFormat = "dd/mm/yyyy"
 
'Puis c'est ici que ça inverse le jour et le mois:
 
   Selection.Replace What:="/", Replacement:=".", LookAt:=xlPart, _     SearchOrder:=xlByRows, MatchCase:=False

PS: Si je met ds le code:

Code :

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

ActiveCell.NumberFormat = "dd.mm.yyyy"

j'ai bien des point à l'affichage mais il sont considérés en faite toujours comme des / .