Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Dans une plage de donnée, nommée TOM, remplacer une valeur 1 par la valeur à 2 digits, par ex 01 ?

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,
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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,