XL 2019 renvoye lettre

LEPATOCHE

XLDnaute Occasionnel
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 !
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Lepatoche,
En PJ un essai simple avec :
VB:
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.
 

Pièces jointes

  • Lepatoche.xlsm
    15.7 KB · Affichages: 9

LEPATOCHE

XLDnaute Occasionnel
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 !
 

Discussions similaires

  • Question
Microsoft 365 resultat
Réponses
6
Affichages
503

Statistiques des forums

Discussions
311 720
Messages
2 081 913
Membres
101 837
dernier inscrit
Ugo