XL 2021 split

achraf26 à dit:

Bonjour
pourriez vous me proposer une solution pour passer les 5 lettres un par un avec un seul bouton (ABCMT)
j'ai essayé cette formule mais elle ne fonctionne pas pour toutes les lettres

VB:

[B5] = Split("A B C M T")((Asc([B5]) - 64) Mod 5)

Merci à vous

Cliquez pour agrandir...

sylvanu à dit:

Re,
Je retire ce que j'ai dit.
En "trichant" on peut faire :

VB:

[B5] = Split("T B C M A T ")((Asc([B5]) - 64) Mod 8)

Mais si les lettres changent il faut tout recalculer.
Avec la 1ere version c'est très simple à adapter.

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Achra,
Votre formule ne marche que si les lettres se suivent, comme dans votre post précédent.
Ici, une possibilité parmi d'autres :

VB:

Sub SupDoublons()
Select Case [B5]
    Case "A": [B5] = "B"
    Case "B": [B5] = "C"
    Case "C": [B5] = "M"
    Case "M": [B5] = "T"
    Case "T": [B5] = "A"
End Select
End Sub

Cliquez pour agrandir...

achraf26 à dit:

les lettres ne sont pas en ordre désiré.

Cliquez pour agrandir...