Je suis un passionné de Scrabble. Tous les 3 ans, une nouvelle mouture du dictionnaire arrive obligeant le joueur que je suis à comparer les deux dictionnaires page par page. Ce travail accouche d'une liste de nouveaux mots entrés dans la colonne A d'un tableur. Je dois ensuite "retravailler" cette liste brute en effectuant plusieurs manipulations fastidieuses. J'aimerai me simplifier la vie avec une macro.
La première étape est la suivante : Je souhaite transformer mes mots en "tirage". Je m'explique : par exemple transformer "BESTIAU" en "ABEISTU" (mettre les lettres dans l'ordre alphabétique en clair).
Pour ce faire, j'ai pensé à créer deux boucles qui permettent de permuter les lettres du mot. Ces boucles se répètent n fois (n étant la longueur du mot -1). Le code nécessiterait 3 variables : deux sont des valeurs numériques entre 1 et la longueur du mot - 1 (ici x et y) et une est une lettre (ici z).
J'ai lu sur des sites qu'il fallait aussi définir le type de variable dans la macro avec Dim. J'avais finalement commencé par coder cela seulement pour une unique cellule (A1) :
Code : Tout sélectionner
Function Tridumot
Dim x As Integer
Dim y As Integer
Dim z As String
For x = 1 To Len(A1) - 1
For y = 1 To Len(A1) - 1
If Mid(A1, y, 1) > Mid(A1, y+1, 1) Then
z = Mid(A1, y, 1)
Mid(A1, y, 1) = Mid(A1, y+1, 1)
Mid(A1, y+1, 1) = z
End If
Next y
Next x
End Function
J'ai oublié de dire que je débute complètement en programmation. Je souhaiterai que l'on m'oriente sans me mâcher le travail afin que je puisse par moi-même pondre cette macro. Merci de me mettre sur les rails en douceur...