Sortie texte d'une cellule

Question

Ma cellule contient 4 Duviler comaf + tuiles 0,25 Favier 0,75 Martin combes st germain 1 Ribstein Je souhaite eliminer les nombres et recuperer chaque mot dans une cellule differente afin de trier les noms dans excel par ordre alphabetique. merci de m'aider...

jmd · Answer

Combien de cellules de ce type ? peux-tu joindre un extrait du fichier (avec 30 lignes environ)...

Invité · Answer

Pour extraire, il faudrait avoir le résultat de 4 Duviler comaf + tuiles 0,25 Favier 0,75 Martin combes st germain 1 Ribstein Tu veux quoi ? Duviler comaf tuiles Favier Martin combes st germain Ribstein Sur des colonnes séparées ? Merci de fournir un exemple de fichier avec une dizaines de lignes. Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle. Recu par messagerie privé : Le lien du fichier Mytå P.S. Les miracles existent mais il faut les demander avec des précisions......

Invité · Answer

Re le forum

Sélectionne les cellules à extraire et lance la macro

Sub SplitAdresse()

Dim Cellule As Range
Dim x As Variant
Dim i As Byte, j As Byte

For Each Cellule In Selection

With Cellule
  If Len(.Text) > 0 Then
    x = Split(.Text)
    j = 1
      For i = 0 To UBound(x)
        If Not IsNumeric(x(i)) And Len(x(i)) > 0 Then
            Cellule.Offset(0, j) = x(i)
            j = j + 1
        End If
      Next i
  End If
End With

Next Cellule

End Sub

Mytå

Invité · Answer

A mettre en résolu Mytå Dès que votre problème est résolu, merci de le marquer en tant que &#91;Résolu&#93; grâce à l'utilitaire se trouvant en bas de page, aperçu ...