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,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 :
Qu'il faut adapter à votre plage.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
Bonjour 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 !
Bonjour nikho6951,
Je vous remercie pour votre solution, je suis en train d'apprendre le VBA.
Bonne soirée.