XL 2019 renvoye lettre

[LEPATOCHE]

Bonsoir a tous , impossible a resoudre donc voila dans la cellule A1 j'ai le mot CHAT et je voudrai une formule dans B1 qui me renvoye la lettre A du mot CHAT de la cellule A1 et une formule en C1 qui me renvoye la lettre C de la cellule A1 et une formule en D1 qui me renvoye la lettre H de la cellule A1 et pour terminer une formule en E1 qui me renvoye la lettre T de la cellule A1 , en quelque sorte je veus en ordre alphabetique car je ferai cela sur plusieurs mots dans d'autre cellules ! en vous remerciant d'avance !

 

[kiki29]

Salut, Ce lien n'existe plus ?

 

[sylvanu]

Bonsoir Lepatoche,
En PJ un essai simple avec :

Sub Dissèque()
Dim tablo()
Range("B2:Z1000").ClearContents
NL = Application.CountIf(Range("A:A"), "*")
For L = 2 To NL
N = Cells(L, 1)
ReDim tablo(Len(N))
For i = 1 To Len(N)
    tablo(i) = Mid(N, i, 1)
Next i
For i = 1 To Len(N)
    For j = 1 To Len(N)
        If LCase(tablo(i)) < LCase(tablo(j)) Then
            Buffer = tablo(i)
            tablo(i) = tablo(j)
            tablo(j) = Buffer
        End If
    Next j
Next i
For i = 1 To UBound(tablo)
    Cells(L, i + 1) = UCase(tablo(i))
Next i
Next L
End Sub

Par contre deux points :
- Les ponctuations sont en premier ( espace, - ... )
- Il n'y a pas de nettoyage de doublons.

 

[LEPATOCHE]

Merci pour vos reponses mais je me suis tromper dans ma demande donc voila dans la cellule A1 il y a le mot CHAT et je voudrais une formule qui me renvoye dans la cellule B1 la lettre C et dans la cellule C1 la lettre H dans la celllule D1 la lettre A et dans la cellule D1 la lettre T , apres de mon coté j'ai trouvé ma petite idée bien sur ! merci pour vos prochaine reponse pas de vba s'yl vous plais bonne soirée a bientot !

 

[mapomme]

Bonsoir,

Dans ce cas, tout simplement la formule suivante en B1 à copier vers la droite

=STXT($A1;COLONNES($A:A);1)

 

[LEPATOCHE]

Merci genial ca marche ! mille fois merci bravo MAPOMME bonne soirée !