[VBA_E] Séparation Colonne

Bonjour

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

cellule A1 :

Code:

---

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

Bonjour Franck

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

@ te lire

Cela peut etre de cette façon la:

Code:

---

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:

---

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

---

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

Merci

re:

voici un fichier en formule

si tu veux en Vba fais un signe

@ te lire

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

Donc je veux bien vba

Merci de ton aide
++

Code:

---

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+

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:

---

Mise hors service (pupitre principal)

---

dans une colonne
merci d'avance
++

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:yaisse2:

re:

je reprends en cours, un ptit boulot :mrgreen:

Code:

---

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

---

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

salutations

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

re:

Citation:

---

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:

---

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

Citation:

---

Envoyé par wilfried_42

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....:king:
Cordialement

re:

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

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

Code:

---

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:

---

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

---

3eme occurence

Code:

---

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

---

Bonne journée
@ +

Citation:

---

Envoyé par 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+

---

Citation:

---

Envoyé par franck.automaticien

oui c'est le cas... hiii:yaisse2:

---

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

Code:

---

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+

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:

---

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

---