eclater une ligne

f69815

XLDnaute Occasionnel
bonjour à tous,

comment faire pour éclater une ligne en plusieurs lignes suivant les donées contenues dans une cellule.

explications du fichier joint

feuille 1 la donnée, feuille 2 le résultat

en colonne F j'ai une donnée celle ci est composée de pls Txxxx séparée par un '-' je désire faire autant de ligne que de Txxxx (feuille 2)

les txxxx ont tjs 5 caractères, mais la longueur de la colonne F peut atteindre x caractères mais <240.

merci
 

Celeda

XLDnaute Barbatruc
Bonjour,

Eclater dans plusieurs cellules contigües, avec la fonction
Données, COnvertir, et cocher -,

Celeda [file name=ConvertirDonnees.zip size=25337]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ConvertirDonnees.zip[/file]

Message édité par: Celeda, à: 10/09/2005 14:42
 

Pièces jointes

  • ConvertirDonnees.zip
    24.7 KB · Affichages: 39

ChTi160

XLDnaute Barbatruc
Salut f69815
bonjour Celeda

si j'ai bien compri une interprétation en pièce jointe via la fonction Split

bonne fin de journée [file name=Transfert_20050910154727.zip size=8059]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transfert_20050910154727.zip[/file]

Message édité par: Chti160, à: 10/09/2005 15:48
 

Pièces jointes

  • Transfert_20050910154727.zip
    7.9 KB · Affichages: 35

f69815

XLDnaute Occasionnel
bonjour celeda, ChTi160, le forum,

excusez-moi pour le retard à reprenfre le post, mais le routeur wifi a flashé suite à un orage.

je pense que je ne suis pas clair dans ma demande, ce n'est pas une utilisation de fonction 'convertir', car elle éclate en colonnes.

je vais essayer de traduire ma demande en pseudo langage :

si nbcar(Fx)>5 alors créer autan de lignes que de Txxxx trouvés et éventuellement supprimer les lignes sources.

je remet mon fichier car il me semble qu'il n'est pas passé.

bon courage, souhaitant à celeda une météo plus clémente et ensoleillée.

Message édité par: f69815, à: 11/09/2005 09:32
 

ChTi160

XLDnaute Barbatruc
Salut f69815
bonjour le Forum

pour ton fichier il faut utiliser Win Zip -50ko sans espaces ni caracteres Spéciaux dans le titre

tu mets un ou des exemples de ce que tu as et de ce que tu veux

Message édité par: Chti160, à: 11/09/2005 10:31
 

f69815

XLDnaute Occasionnel
salut à tous

le voili, le voilou,

feuille 1 les données, feuille 2 ce que je désire
merci [file name=eclater.zip size=1672]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/eclater.zip[/file]
 

Pièces jointes

  • eclater.zip
    1.6 KB · Affichages: 36

Hervé

XLDnaute Barbatruc
Bonjour f69815, celeda, jean marie

Une proposition, en suivant les conseils de jean marie pour le split

attention cette 'méthode' split , n'est pas compatible avec xl97.

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim i As Byte, j As Byte, k As Byte
Dim tablores As Variant
Dim derligne As Integer

tablo = Range('a1').CurrentRegion

For i = 1 To UBound(tablo)
&nbsp; &nbsp; tablores = Split(tablo(i, 6), '-')
&nbsp; &nbsp;
With Sheets('Feuil2')
&nbsp; &nbsp; &nbsp; &nbsp;
For j = 0 To UBound(tablores)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; derligne = .Range('a65536').End(xlUp).Row + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
For k = 1 To UBound(tablo, 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Select Case k
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Case 1 To 5, 7
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Cells(derligne, k) = tablo(i, k)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Case 6
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Cells(derligne, k) = tablores(j)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End Select
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Next k
&nbsp; &nbsp; &nbsp; &nbsp;
Next j
&nbsp; &nbsp;
End With
Next i
End Sub

salut
[file name=eclater_20050911150116.zip size=9176]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/eclater_20050911150116.zip[/file]
 

Pièces jointes

  • eclater_20050911150116.zip
    9 KB · Affichages: 44

ChTi160

XLDnaute Barbatruc
Salut f69815
salut Hervé

arff pas assez rapide(après le repas Lol)
Enfin ma version
[file name=eclaterV2.zip size=9732]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/eclaterV2.zip[/file]
 

Pièces jointes

  • eclaterV2.zip
    9.5 KB · Affichages: 56

f69815

XLDnaute Occasionnel
bonsoir herve, Celeda, ChTi160 et tous les autres,

encore en retard pour répondre mais après le routeur c'est le portable qui lache. d'ailleurs a ce propos je suis à la recherche du disque système qui est livré avec l'acer aspir 1520, le mien est 1522 wlmi.

alors la un grand merci pour votre , vos,contribution(s), j'ai eu un peu de mal à décortiquer les quelques lignes de vba, mais je pense avoir compris le principe.

en tout cas cela répond parfaitement à ma demande. c'est fou ce que l'on peut faire avec ce tableur.

merci, je souhaite que celeda a fini de vider les seaux.

salutations tardives à toutes et à tous et vive excel-downloads.
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 900
Membres
101 834
dernier inscrit
Jeremy06510