Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
J'y arrive par macro, mais je suis obligé de relier les mots ensembles si au début de la cellule il y a plus d'un mot. ( manuellement avant de lancer la macro ).
Ex: BEUR FM devient BEUR_FM
Code:
Sub Explose()
Dim cell As Range
Dim t, oldcell
Dim i As Integer
Application.ScreenUpdating = False
For Each cell In Range("A11:A" & Range("A65536").End(xlUp).Row)
oldcell = cell
cell = Replace(cell, " -", "")
t = Split(cell, " ")
For i = 0 To UBound(t)
If IsNumeric(t(i)) Then cell.Offset(0, i + 3).Value = t(i)
Next
cell = oldcell
Next
Application.ScreenUpdating = True
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD