Changer format date

Bonjour, j'ai des données que je copie et je colle sur un classeur fichier. cependant je souhaite changer le format des dates (de 02.09.2019 à 02/09/2019) afin de pouvoir faire des filtres selon la date si besoin.

N'étant pas douée en vba et macro, pouvez-vous corriger la macro que j'ai créé (elle ne fonctionne pas car les dates s'écrivent à l'anglaise (02.09.2019 devient 09/02/2019)

La macro est

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro4() ' ' Macro4 Macro '   ' Cells.Replace What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub

---

Ci-joint le classeur
Pièce jointe 501026

Merci d'avance pour votre aide

A mon avis, il faudrait définir une zone plus précise que "Cells".
Donc, je te conseille de modifier le Cells du code suivant pour l'adapter à la zone concernée.

Code:

---

1 2 3 4 5 6

Sub Macro4() Dim CC As Range For Each CC In Cells CC.Value = Dateserial(split(CC, ".")(2), split(CC, ".")(1), split(CC, ".")(0)) Next CC End Sub

---

Bonjour et merci pour votre réponse.

J'ai essayé votre code mais après lancement il y a un problème au niveau de la ligne

Code:

---

CC.Value = DateSerial(Split(CC, ".")(2), Split(CC, ".")(1), Split(CC, ".")(0))

---

Je n'ai pas compris les CC.
Aussi pour le Cells j'ai remplacé par Range(Cells(8,14),Cells(8,18))

Citation:

---

Envoyé par misalima

après lancement il y a un problème au niveau de la ligne

---

Quel "problème" ?
Si c'est un bug, quel est le message d'erreur ?
Si c'est un résultat erroné, qu'elle est le résultat obtenu ?

Citation:

---

Je n'ai pas compris les CC.

---

CC est un simple nom de variable. Si tu le souhaites, tu peux mettre n'importe quel autre nom qui te conviendra mieux à condition de le faire partout.
Cette variable désigne la cellule courante dans la boucle For Each.

Citation:

---

Aussi pour le Cells j'ai remplacé par Range(Cells(8,14),Cells(8,18))

---

Range("N8:R8") aurait été plus simple.

Le message d'erreur est:

Citation:

---

Erreur d'exécution 9:
L'indice n'appartient pas à la sélection

---

Et il m'est demandé de faire un débogage.

Ca signifie vraisemblablement que la cellule concernée ne contient pas une date au format que tu as présenté.