Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Dans une plage de donnée, nommée TOM, remplacer une valeur 1 par la valeur à 2 digits, par ex 01 ?

1 réponse
Avatar
Jean PIERRE
Bonjour,

La plage de donn=E9e est nomm=E9e TOM !

J'ai le code suivant :

Sub test()
With Worksheets("Feuil1")
.Range("TOM").Replace What:=3D1, replacement:=3D01, _
LookAt:=3DxlWhole, searchOrder:=3DxlByColumns
End With
End Sub=20

Il refuse de remplacer la valeur 1 par 01,mais cela fonctionne
pour une autre valeur !
Je vous remercie de votre r=E9ponse,
Cordialement,

1 réponse

Avatar
jpr10500.excel
Bonsoir,
Il suffit de rajouter à la fin du code : Selection.NumberFormat = "0#"
Bien à vous,
Cordialement,



Le samedi 19 mai 2012 20:00:00 UTC+2, Jean-Pierre a écrit :
Bonjour,

La plage de donnée est nommée TOM !

J'ai le code suivant :

Sub test()
With Worksheets("Feuil1")
.Range("TOM").Replace What:=1, replacement:, _
LookAt:=xlWhole, searchOrder:=xlByColumns
End With
End Sub

Il refuse de remplacer la valeur 1 par 01,mais cela fonctionne
pour une autre valeur !
Je vous remercie de votre réponse,
Cordialement,





Le samedi 19 mai 2012 20:00:00 UTC+2, Jean-Pierre a écrit :
Bonjour,

La plage de donnée est nommée TOM !

J'ai le code suivant :

Sub test()
With Worksheets("Feuil1")
.Range("TOM").Replace What:=1, replacement:, _
LookAt:=xlWhole, searchOrder:=xlByColumns
End With
End Sub

Il refuse de remplacer la valeur 1 par 01,mais cela fonctionne
pour une autre valeur !
Je vous remercie de votre réponse,
Cordialement,