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. Cela entraîne la suppression des zéros non significatifs des codes postaux, ce qui peut évidemment causer des problèmes plus tard lors de l’utilisation des 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. (Excel fournit un format spécial pour les codes postaux, disponible via l’onglet Nombre de la boîte de dialogue Format de cellule.) Cela peut fonctionner pour l’affichage, mais les données sous-jacentes manquent toujours les zéros non significatifs.

Si vous souhaitez que les données sous-jacentes incluent réellement les zéros non significatifs, il est préférable d’utiliser une macro qui passe et ajoute des zéros non significatifs aux informations d’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 (9663) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

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