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

Le
Jean PIERRE
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:=01, _
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,
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
jpr10500.excel
Le #24490311
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,
Publicité
Poster une réponse
Anonyme