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.
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 :
Code:
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
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;".";"/")
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 :
Code:
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
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.
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;".";"/")