Séparation chiffres & lettres

Re: Séparation chiffres & lettres

Dim L As Integer, K As Integer

Sheets("Feuil1").Select
K = Sheets("Feuil1").Range("A65536").End(xlUp).Row
For L = K To 1 Step -1
If Range("B" & L).Value = "" Then

Range("B" & L + 1).Select

'on ne travaille pas sur les lignes vides

Else:
Range("B" & L).Select
Selection.TextToColumns Destination:=Range("H" & L), DataType:=xlFixedWidth

'J'ai mis H mais tu peux mettre n'importe quelle nom de colonne

End If
Next
End Sub

Voila

Re: Séparation chiffres & lettres

Normalement ca devrait marcher mais vérifie bien le contenu de tes lignes et les correspondances entre elles.

Dans la précipitation je n'ai pas vu que j'avais déjà posté mon aide...

Pour L et K tu devrais faire la recherche sur la colonne qui concerne tes données c plus sur.

Allez bonne journée

Re: Séparation chiffres & lettres

Merci ca fonctionne tres bien

Avec une petite modification il envoie chaque mot entre un espace dans les colonnes suivantes

123 aaa bbbb

123....col F
aaa....col G
bbbb....col H

Merci et bonne journée

Temjeh