Discussion :

[franck.automaticien]

Bonjour

je voudrais Séparer en colonne un texte qui est dans une même cellule

cellule A1 :

Code :

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

1
2
 
Sb20 AT %I2.0 : EBOOL (*Mise en service (pupitre principal)*);

Je souhaiterais avoir le resultat suivant

A_______________B_____________C
sb20__________%I2.0__________BOOL


Merci d'avance
Cordialement
Franck

[wilfried_42]

Bonjour Franck

Tes lignes ont'elles la meme structure à chaque fois ?

@ te lire

[franck.automaticien]

Cela peut etre de cette façon la:

Code :

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

AT %I2.13 : EBOOL (*Libre*);

cela deonnerai sa

A_______________B_____________C______________D
[VIDE]__________%I2.13__________BOOL________Libre

oups pardon j'avais oublier ceux ci:

Code :

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

Sb20 AT %I2.0 : EBOOL (*Mise en service (pupitre principal)*);

A_______________B_____________C_________________D
sb20__________%I2.0__________BOOL____________Mise en service (pupitre principal)

Merci

[wilfried_42]

re:

voici un fichier en formule

si tu veux en Vba fais un signe

@ te lire

[franck.automaticien]

en faite en ce moment je modifie une macro en vba!

Donc je veux bien vba

Merci de ton aide
++

[ouskel'n'or]

Code :

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

1
2
3
4
5
NoLigne = 1
LeTableau = Split(Range("A" & NoLigne).value, " ")
For i = 0 to Ubound(LeTableau)
     Cells(NoLigne, i+1).value = LeTableau(i)
Next

Tu dis
A+

[franck.automaticien]

re:

voici un fichier en formule

si tu veux en Vba fais un signe

@ te lire

Tu as regardé a en VBA?
sa serait super sympa merci....
Cordialement

[wilfried_42]

re:

desolé je pensais que ouskel'nor avait donné la reponse

Nous allons conidérer les 3 occurences en colonne A, B, C.
la variable chaine contient la chaine de caractere à traiter

Code :

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

1
2
3
4
5
6
 
if instr(chaine,"AT")<2 then 
         range("A1") = "" ' Il n'y a pas de 1ère occurence)
else
         range("A1") = trim(left(chaine,instr(chaine,"AT")-1))
end if

2eme occurence

Code :

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

1
2
 
range("B1") = trim(mid(chaine,instr(chaine,"%"),(instr(chaine,":")-1)-instr(chaine,"%")))

3eme occurence

Code :

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

1
2
 
range("C1") = trim(mid(chaine,instr(chaine,":")+3,(instr(chaine,"(")-1)-(instr(chaine,":")+3)))

Bonne journée
@ +

[ouskel'n'or]

Voui, j'avais oublié le pb de ta phrase mais il peut se régler si... tes phrases commencent toujours par "(*"
Est-ce le cas ?
A+

oui c'est le cas... hiii

Youpi, alors si je reprends ta ligne, tu peux utiliser

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub separerLesMots()
Dim LeTableau As Variant, LaChaîne As String
Dim NoLigne As Long, NoCol As Byte
    NoLigne = 1
    If InStr(Range("A" & NoLigne).Value, "(*") <> 0 then _
        LaChaîne = Right(Range("A" & NoLigne).Value, Len(Range("A" & NoLigne).Value) _
                 - InStr(Range("A" & NoLigne).Value, "(*") + 1)
    LeTableau = Split(Left(Range("A" & NoLigne).Value, _
                InStr(Range("A" & NoLigne).Value, "(*") - 2), " ")
    ReDim Preserve LeTableau(UBound(LeTableau) + 1)
    LeTableau(UBound(LeTableau)) = LaChaîne
    For NoCol = 0 To UBound(LeTableau)
         Cells(NoLigne + 1, NoCol + 1).Value = LeTableau(NoCol)
    Next
End Sub

Tu dis
A+