Marlene est enseignante et elle a des élèves qui aiment les recherches de mots. Elle trouve que leur fabrication prend beaucoup de temps, mais les étudiants semblent mieux se souvenir du matériel de cours quand elle les utilise. Marlene s’est demandé s’il y avait un moyen de remplir automatiquement une plage de cellules avec des lettres de l’alphabet, de A à Z. De cette façon, elle peut utiliser la fonction pour remplir les carrés de la recherche de mots avec des lettres, avant de remplacer certaines de ces lettres par les mots réels à rechercher.

L’outil de remplissage automatique dans Excel a quelques séquences standard qu’il remplira automatiquement, telles que des dates et des séquences numériques. La partie très puissante de la saisie automatique, cependant, est que vous pouvez créer des listes personnalisées que l’outil utilise aussi facilement que les séquences intégrées. Pour créer une liste personnalisée manuellement, vous pouvez suivre ces étapes:

  1. Affichez la boîte de dialogue Options Excel. (Dans Excel 2007, cliquez sur le bouton Office, puis sur Options Excel. Dans Excel 2010 et Excel2013, affichez l’onglet Fichier du ruban, puis cliquez sur Options.)

  2. Si vous utilisez Excel 2007, assurez-vous que Populaire est sélectionné à gauche de la boîte de dialogue. Si vous utilisez Excel 2010 ou Excel 2013, cliquez sur Avancé à gauche de l’écran et faites défiler jusqu’à la zone Général.

  3. Cliquez sur Modifier les listes personnalisées. Excel affiche la boîte de dialogue Listes personnalisées et masque la boîte de dialogue Options Excel. (Voir la figure 1.)

  4. Sélectionnez l’option NOUVELLE LISTE dans la liste Listes personnalisées à gauche de la boîte de dialogue.

  5. Dans la zone Entrées de liste, entrez chaque lettre de l’alphabet, une lettre par ligne. (Appuyez sur Entrée après chaque lettre que vous tapez.)

  6. Lorsque vous avez terminé, cliquez sur le bouton Ajouter.

  7. Cliquez sur OK pour terminer.

Pour utiliser la liste personnalisée nouvellement créée, tapez simplement une ou deux lettres avec lesquelles vous souhaitez commencer la séquence, sélectionnez ces cellules et utilisez la poignée de saisie automatique pour faire glisser autant de cellules que vous souhaitez remplir.

Il existe une autre façon de créer la liste personnalisée qui peut être un peu plus simple, juste au cas où vous ne voudriez pas taper vingt-six lettres dans la boîte de dialogue. Au lieu de cela, si vous avez déjà les lettres de l’alphabet dans vingt-six cellules, procédez comme suit:

  1. Sélectionnez les cellules contenant les lettres de l’alphabet.

  2. Affichez la boîte de dialogue Options Excel. (Dans Excel 2007, cliquez sur le bouton Office, puis sur Options Excel. Dans Excel 2010 et Excel2013, affichez l’onglet Fichier du ruban, puis cliquez sur Options.)

  3. Si vous utilisez Excel 2007, assurez-vous que Populaire est sélectionné à gauche de la boîte de dialogue. Si vous utilisez Excel 2010 ou Excel 2013, cliquez sur Avancé à gauche de l’écran et faites défiler jusqu’à la zone Général.

  4. Cliquez sur Modifier les listes personnalisées. Excel affiche la boîte de dialogue Listes personnalisées et masque la boîte de dialogue Options Excel. Vous devez également noter que la plage de cellules que vous avez sélectionnée à l’étape 1 est indiquée juste à gauche du bouton Importer.

  5. Cliquez sur le bouton Importer. Excel ajoute le contenu des cellules sélectionnées sous forme de liste personnalisée.

  6. Cliquez sur OK.

Bien sûr, il y a un inconvénient à utiliser une liste personnalisée, en particulier lorsqu’il s’agit de créer des recherches de mots: les lettres ajoutées aux carrés vides sont toujours dans une séquence prévisible, ce qui pourrait rendre la recherche des mots réels un peu plus facile que vous ne le souhaitez. Pour rendre les énigmes un peu plus difficiles, il serait préférable de remplir les carrés sans mots avec des lettres aléatoires.

Un moyen simple d’obtenir des lettres aléatoires consiste à utiliser la formule suivante:

=CHAR(RANDBETWEEN(65,90))

Cette formule fonctionne car la fonction RANDBETWEEN renvoie une valeur numérique aléatoire entre les deux valeurs limites fournies. Dans ce cas, il renverra une valeur comprise entre 65 et 90, qui sont les valeurs ASCII des lettres A et Z, respectivement. La fonction CHAR est ensuite utilisée pour convertir cette valeur numérique aléatoire en une lettre réelle.

Si vous créez beaucoup d’énigmes de recherche de mots, vous pouvez utiliser une macro pour remplir une plage de cellules avec des lettres aléatoires de l’alphabet.

Une telle macro peut être mise en place de plusieurs manières; ce qui suit est celui qui est particulièrement flexible. Il fonctionnera avec une plage présélectionnée (une plage sélectionnée lorsque vous exécutez la macro) ou vous pouvez sélectionner une plage après avoir exécuté la macro.

Sub AlphaFill()

Dim Cell, CellChars     Dim Default, Prompt, Title     Dim rangeSelected As Range     Dim UpperCase As Boolean

Title = "AlphaFill Cell Selection"

Default = Selection.Address     Prompt = vbCrLf _       & "Use mouse in conjunction with " _       & "SHIFT and CTRL keys to" & vbCrLf _       & "click and drag or type in name(s) " _       & "of cell(s) to AlphaFill" & vbCrLf & vbCrLf _       & "Currently selected cell(s): "

& Selection.Address

On Error Resume Next     Set rangeSelected = InputBox(Prompt, Title, _       Default, Type:=8)

If rangeSelected Is Nothing Then Exit Sub

UpperCase = True     Randomize     For Each Cell In rangeSelected         CellChars = Chr(64 + Int((Rnd * 26) + 1))

If Not UpperCase Then CellChars = LCase(CellChars)

Cell.Value = CellChars     Next End Sub

Le code de la macro, tel qu’il est écrit, insère les lettres majuscules dans la plage que vous spécifiez. Si vous souhaitez utiliser des lettres minuscules à la place, tout ce que vous avez à faire est de définir la variable UpperCase sur False plutôt que True.

_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 (7803) s’applique à Microsoft Excel 2007, 2010 et 2013. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

lien: / excel-AutoFilling_with_the_Alphabet [AutoFilling with the Alphabet].