Par exemple, j'ai deux cellules
A1: = 1/2 A2: #abc
3 Réponses :
Sélectionnez vos cellules et exécutez:
Sub dural() Dim r As Range For Each r In Selection If Not r.HasFormula Then r = Replace(r.Text, "/", "#") End If Next r End Sub
Vous pouvez utiliser une formule créant une nouvelle colonne: disons que la valeur est dans la cellule A1, vous pouvez la mettre dans la cellule B1:
=IF(ISFORMULA(A1),A1,SUBSTITUTE(A1,"/",""))