XL 2016 Recherche programme VBA pour remplacer un "." par "/"

[douangxay]

Bonjour à tous,
Je débute en VBA et je recherche un programme qui permet de remplacer un "." par un "/", pour les dates selon une place de cellules sélectionnée.
Je vous remercie par avance.

 

[douangxay]

Une plage de cellules

 

[sylvanu]

Bonjour Douangxay,
Pourquoi un VBA ?
Aprés avoir sélectionné vos cellules, il suffit de faire Acceuil/Rechercher/Remplacer et mettre "." et "/".
Sinon en VBA cela donnerait ça :

Sub Remplacer()
For i = 1 To 100 ' Nb lignes'
    For j = 1 To 10 ' Nb colonnes'
        Cells(i, j) = Replace(Cells(i, j), ".", "/")
    Next j
Next i
End Sub

Qu'il faut adapter à votre plage.

 

[nikho6951]

Salut !
Si tu veux le faire une seule fois :
tu sélectionnes tes cellules, puis appuies sur ctrl + H
qui te permet de remplacer un ou plusieurs caractères par d'autres
Si tu veux automatiser :
Sub Remplacer()
For each cell in selection
cell.value = Replace(cell.value, ".", "/")
Next
End Sub
Si tu veux la valeur dans une nouvelle cellule :
=substitue(A1;".";"/")

Bonne journée !

 

[douangxay]

Bonjour Douangxay,
Pourquoi un VBA ?
Aprés avoir sélectionné vos cellules, il suffit de faire Acceuil/Rechercher/Remplacer et mettre "." et "/".
Sinon en VBA cela donnerait ça :

Sub Remplacer()
For i = 1 To 100 ' Nb lignes'
    For j = 1 To 10 ' Nb colonnes'
        Cells(i, j) = Replace(Cells(i, j), ".", "/")
    Next j
Next i
End Sub

Qu'il faut adapter à votre plage.

Bonsoir sylvanu,
J'ai besoin d'un VBA car je reçois tous les jours un fichier qui contient des date avec les "." que je voudrais les remplacer par les "/". En même temps, comme je débute en VBA, ça me permets de comprendre pourquoi mon VBA ne fonctionne que sur une cellule. Je vous remercie pour votre solution.

 

[douangxay]

Salut !
Si tu veux le faire une seule fois :
tu sélectionnes tes cellules, puis appuies sur ctrl + H
qui te permet de remplacer un ou plusieurs caractères par d'autres
Si tu veux automatiser :
Sub Remplacer()
For each cell in selection
cell.value = Replace(cell.value, ".", "/")
Next
End Sub
Si tu veux la valeur dans une nouvelle cellule :
=substitue(A1;".";"/")

Bonne journée !

Bonjour nikho6951,
Je vous remercie pour votre solution, je suis en train d'apprendre le VBA.
Bonne soirée.

 

[sylvanu]

Bonjour Douangxay,
Mais vous avez le code VBA. Je ne comprends pas votre question.

 

[douangxay]

Oui c'est parfait, je l'ai testé et ça fonctionne. Merci.

Bonjour nikho6951,
Je vous remercie pour votre solution, je suis en train d'apprendre le VBA.
Bonne soirée.

 

[Staple1600]

Bonsoir le fil, douangxay, nikho6951, sylvanu

Sinon, il y a aussi la possibilité d'utiliser Données/Convertir en cochant [x] Date à l'étape 3 de l'Assistant Conversion