XL 2021 split

[achraf26]

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

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

Merci à vous

 

[sylvanu]

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 :

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

 

[sylvanu]

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

[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.

 

[Jacky67]

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

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

Merci à vous

Bonjour à tous,
Je me pose les questions
-Pourquoi un bouton ?
-Pourquoi du code vb ?
Dans ce cas une liste de validation ferait l'affaire, non?

 

[achraf26]

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

[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.

Merci Sylvanu,
les lettres ne sont pas en ordre désiré. T

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 :

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

cette formule est la mieux adapté. Merci beaucoup Sylavanu

 

[sylvanu]

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

Pour moi elles suivent l'ordre ABCMT.
( mais de toute façon la première approche est bien meilleure car elle assure des modifications simples )