Lorsque vous importez des codes postaux à partir d’un fichier texte dans un classeur Excel, il n’est pas rare qu’Excel traduise les valeurs sous forme de nombres plutôt que de codes postaux. Il en résulte que des zéros non significatifs sont supprimés des codes postaux, ce qui peut évidemment causer des problèmes plus tard en utilisant les données aux fins prévues.

Une solution, bien sûr, consiste simplement à changer le format d’affichage utilisé pour les cellules de code postal. Cela peut fonctionner pour l’affichage, mais les données sous-jacentes manquent toujours les zéros de tête. Une meilleure solution consiste à utiliser une macro qui passe et ajoute des zéros non significatifs aux informations dans une cellule.

La macro suivante fait exactement cela:

Sub MakeZIPText()

Dim ThisCell As Range     Application.ScreenUpdating = False     'Make sure format is text     Selection.NumberFormat = "@"

For Each ThisCell In Selection         'Strip the leading apostrophe, if any         If Left(ThisCell, 1) = "'" Then             ThisCell = Mid(ThisCell, 2, 99)

End If         'It's a 5-digit ZIP Code         If Len(ThisCell) <= 5 Then             ThisCell = "'" & Right("00000" & ThisCell, 5)

Else             ThisCell = "'" & Right("00000" & ThisCell, 10)

End If     Next ThisCell     Application.ScreenUpdating = True End Sub

Pour utiliser la macro, sélectionnez simplement la plage de cellules contenant les codes postaux, puis exécutez la macro. La macro modifie en fait le contenu des cellules – les cellules ne contiendront plus de valeurs numériques (la cause du problème d’origine), mais elles contiendront des valeurs de texte. Cela permet aux zéros de tête d’apparaître au début des codes postaux.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2598) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Adding_Leading_Zeroes_to_ZIP_Codes [Ajout de zéros non significatifs aux codes postaux].