Bonsoir le forum
Voici un code qui me permet de remplacer du texte par des chiffres, mon souci c'est qu'à chaque fois que je l'applique je me retrouve avec une date style "09mai" au lieu d'avoir 5/9 même lorsque je mets les cellules, voir la feuille au format texte.
Est-il possible de modifier ce code pour qu'il retranscrive exactement ce que je lui demande?
Quoi que je lui demande de modifier, le résultat sera toujours "5/9"
Sub rempl_1()
Dim Cherch, Remp
Dim i As Byte
Dim x1 As Range
Cherch = Array("RACCO_SOUTERRAIN", "RACCO_AERIEN")
Remp = Array("5/9", "5/9")
For i = LBound(Cherch) To UBound(Cherch)
Cells.Replace Cherch(i), Remp(i), LookAt:=xlPart
Next i
End Sub
d'avance je vous remercie pour votre aide et votre disponibilité