Steven teste un logiciel et il doit introduire dans le programme un tas de « faux » noms. Il aimerait que ces noms soient modelés comme Nameaaa, Nameaab, Nameaac, et ainsi de suite à travers Namezzz. Cela nécessiterait la création de 17 576 noms (26 x 26 x 26). Il se demande s’il existe un moyen simple de générer tous ces noms dans Excel.

Ce genre de tâche répétitive appelle juste une macro. (Ils sont parfaits pour faire des tâches ennuyeuses, ennuyeuses et répétitives que vous ne voulez pas faire manuellement.) La liste 1 montre une macro simple qui peut faire le travail exigeant.

Listing 1. Macro CreateNames.

Sub CreateNames()

Dim i As Integer     Dim x As Integer     Dim y As Integer     Dim z As Integer

i = 1     For x = 97 To 122         For y = 97 To 122           For z = 97 To 122               Cells(i, 1) = "Name" & Chr(x) _                 & Chr(y) & Chr(z)

i = i + 1             Next         Next     Next End Sub

La macro utilise trois variables (x, y et z) pour servir de «compteurs» qui contrôlent quelle lettre de l’alphabet est ajoutée au «nom» inséré dans une cellule. Notez que les boucles For …​ Next vont de 97 à 122, qui sont les codes ASCII pour les minuscules de a à z.

Si vous ne souhaitez pas utiliser de macro pour une raison quelconque, tapez la formule suivante dans la cellule A1 d’une feuille de calcul vierge:

="Name" & CHAR((ROW()-1)/676+97)&CHAR(MOD( (ROW()-1)/26,26)+97)&CHAR(MOD(ROW()-1,26)+97)

Il s’agit d’une formule unique, et cela entraîne l’affichage de « Nameaaa ».

Copiez la formule jusqu’à la ligne 17576 et vous aurez vos faux noms.

_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 (12129) s’applique à Microsoft Excel 2007, 2010, 2013 et 2016.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Generating_Unique_Sequential_Names [Génération de noms uniques et séquentiels].