Comment séparer les lettres d'un mot pour avoir une lettre par colonne ?

Bonjour,

Je suis en galère et dans l'urgence et j'espère que quelqu'un pourra m'aider. Je vous préviens c'est un peu de Excel pour les nuls dans ma façon d'exprimer mon besoin et je vous joins un dessin pour que ce soit plus clair.

J'ai une colonne avec beaucoup de lignes et dans chaque ligne un mot. Je souhaiterais pouvoir transposer chaque lettre du mot dans une colonne, comme ci-dessous :

Un grand merci par avance pour votre aide

Marie

Bonjour MLC,

Une proposition.

Cordialement.

Mille mercis Zébulon. C'est formidable. Ensuite j'aurais besoin de compter le nombre total de A, de B, de C....

une solution ?

Merci

MLC

bonjour

pour compter

cordialement

Bonjour toutes et tous

coucou et merci Zebulon2

@MLC

EDIT: arf non la formule ne compte pas les minuscule grrr

--

Re,

Bonsoir tulipe_4, Andre13,

@Andre13, il vaut mieux utiliser le NB.SI préconisé par tulipe_4.

Cordialement.

Re,

Exact Zebulon, je me suis mélangé les pinceaux merci -;)

Salut MLC,
Salut l'équipe,

petite incursion VBA, si vous le permettez...
Un changement en colonne [B'] ou un double-clic sur la feuille recalcule l'item ou la feuille entière.

Public Sub Splitting(ByVal iRow%)
'
Application.EnableEvents = False
Application.ScreenUpdating = False
'
Range("C" & iRow).Resize(1, UsedRange.Columns.Count) = ""
sData = Range("B" & iRow).Value
Range("A" & iRow) = IIf(sData = "", "", Len(sData))
Range("C2").Resize(1, Columns.Count - 2).Borders.LineStyle = xlLineStyleNone
Range("C2").Resize(1, UsedRange.Columns.Count - 2).BorderAround LineStyle:=xlContinuous
Range("C1:Z1").Borders.LineStyle = xlContinuous
If Len(sData) > 0 Then
    For x = 1 To Len(sData)
        Cells(iRow, 2 + x) = Mid(sData, x, 1)
    Next
End If
For x = 1 To 26
    Range(Chr(64 + x) & 1).Value = WorksheetFunction.CountIf(Range("C3").Resize(UsedRange.Rows.Count, UsedRange.Columns.Count), Chr(64 + x))
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
'
End Sub

A+

re

pour les "accros" au SOMMEPROD

=SOMMEPROD(--(ESTNUM(CHERCHE((R1);$B2))))

Merci à tous ! vraiment sympa. Je regarde tout cela demain matin (couvre feu oblige) et je reviens vers vous si besoin. Vraiment vous avez été top ! Bonne soirée