Discussion :

[misalima]

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 :

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

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
classeur test.xlsx

Merci d'avance pour votre aide

[Menhir]

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 :

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

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

[misalima]

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 :

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

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

[Menhir]

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 ?

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.

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

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

[misalima]

Le message d'erreur est:

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

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

[Menhir]

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