Discussion :

[mosta2010]

MESSIEURS , AIDER MOI

JE VEUX CREER UN ESPACE ENTRE DEUX CHIFFRES.

EXEMPLE :
1 ) 22009888A VEUILLEZ LIRE 22009888 A INSERER UN ESPACE ENTRE 22009888 ET LA LETTRE A.

2) 22005785H VEUILLEZ LIRE 22005785 H INSERER UN ESPACE ENTRE 22005785 ET LA LETTRE H .................ETC

TOUS CES DONNES SE TROUVENT DANS UN COLONE Ai

SALUTATIONS
MOSTA2010

[ucfoutu]

Bonjoir,

Euh...

T'aider, certes, mais te servir la chose toute cuite, non ...

Voilà comment traiter une chaîne de caractères (exemple) commençant par des chiffres et se terminant par des lettres, en séparant les uns des autres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Command1_Click()
   Dim toto As String, titi As String, tata As String
   toto = "22009888ATTENTION"
   titi = CStr(Val(toto))
   tata = titi & " " & Mid(toto, Len(titi) + 1)
   MsgBox tata
End Sub

Et maintenant : au boulot (en lisant ton aide en ligne sur chacun des mots mis en rouge gras.

Puis adapte en réfléchissant

[Gorfael]

Salut mosta2010 et le forum
Par formule sur une colonne Vide eet mettre en ligne 1 :
=gauche(AIi1;nbcar(AIi1-1) & " " & droite(AI1;1)
tu copie jusqu'à la dernière ligne de Ai, tu fais un copier / collage spécial (Valeur) sur la colonne, puis tu la copies sur AI
Par macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Sep()
Dim Cel As Range
For Each Cel In Range([A1], [A65536].End(xlUp))
    If VarType(Cel) = vbString Then _
    Cel = Left(Cel, Len(Cel) - 1) & " " & Right(Cel, 1)
Next Cel
End Sub

on teste juste la présence de texte et on met un espace avant la dernière lettre
A+