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. Choisissez Options dans le menu Outils. Excel affiche la boîte de dialogue Options.

  2. Assurez-vous que l’onglet Listes personnalisées est sélectionné. (Voir la figure 1.)

  3. 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.)

  4. Cliquez sur Ajouter.

Vous avez maintenant créé votre liste personnalisée et vous pouvez fermer toutes les boîtes de dialogue ouvertes. Pour utiliser la liste personnalisé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, sélectionnez simplement ces cellules et suivez ces étapes:

  1. Choisissez Options dans le menu Outils. Excel affiche la boîte de dialogue Options.

  2. Assurez-vous que l’onglet Listes personnalisées est sélectionné. La plage de cellules que vous avez sélectionnée doit être affichée dans la zone Importer la liste à partir des cellules.

  3. Cliquez sur Importer.

Vous pouvez maintenant fermer la boîte de dialogue et utiliser la liste personnalisée comme vous le souhaitez.

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.

La fonction RANDBETWEEN fait partie de l’Outil d’analyse, un complément que de nombreuses personnes ont installé dans Excel. (Choisissez Outils | Compléments pour voir si vous l’avez installé.) Si vous préférez ne pas activer le complément, vous pouvez vous fier à une formule plus basique, telle que la suivante:

=CHAR((65+(90-65)*RAND()))

La fonction CHAR doit paraître familière; la seule différence est l’utilisation de la fonction RAND pour générer la valeur aléatoire au lieu de RANDBETWEEN.

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 (3109) 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:

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