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]

merci

Mais cela decoupe le commentaire en colonne
_______a_______b_____c____d_______e__________f
: EBOOL (*Mise hors service (pupitre principal)*);

je voudrais juste recupérer

Code :

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

Mise hors service (pupitre principal)

dans une colonne
merci d'avance
++

[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+

[franck.automaticien]

oui c'est le cas... hiii

[wilfried_42]

re:

je reprends en cours, un ptit boulot

Code :

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

mid(chaine,instr(chaine,"(*")+2, instr(chaine,"*)") - instr(chaine,"*(") -2

j'ai pas testé, à ajuster le -2 en rouge

salutations

[franck.automaticien]

J'ai pas trop compris... desoler..??

[wilfried_42]

re:

je voudrais juste recupérer

Code :
Mise hors service (pupitre principal)
dans une colonne

excuse moi, je suis allé trop vite

voici une fonction

Code :

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

1
2
3
Function extraire(chaine As String) As String
 extraire = Mid(chaine, InStr(chaine, "(*") + 2, InStr(chaine, "*)") - (InStr(chaine, "(*") + 2))
End Function

Chaine et la chaine de caracteres à traiter

@ plus

[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+

[AlainTech]

Je n'ai pas testé la solution d'ouskel'n'or (salut ousk) mais le problème m'amusait.
Alors voici le résultat de mon amusement:

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 Separation()
  Dim rCell As Range
  Dim rRange As Range
  Dim t1() As String
  Dim t2() As String
  Set rRange = Range([A1], Cells(Cells.SpecialCells(xlLastCell).Row, 1))
  For Each rCell In rRange
    t1 = Split(rCell, "AT")
    t2 = Split(t1(1), ":")
    rCell.Offset(0, 1) = Trim(t1(0))
    rCell.Offset(0, 2) = Trim(t2(0))
    rCell.Offset(0, 3) = Left(Trim(t2(1)), InStr(1, Trim(t2(1)), " "))
    rCell.Offset(0, 4) = Trim(Mid(Trim(t2(1)), InStr(1, Trim(t2(1)), " ")))
  Next rCell
End Sub