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,"/",""))