Conversion des données séparées par ; en ligne

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Conversion des données séparées par ; en ligne

shmider

Bonjour tou le monde;

Voilà je souhaiterai mettre en ligne (la conversion par excel permet de le mettre en colonne) des données séparées par ;

En effet, dans l'option excel>données>convertir on peut mettre ces données en colonne.

Cf. fichier joint pour exemple.

Merci de votre aide et bonne journée à toutes et tous !!! :pt1cable:

[http://www.excel-pratique.com/~files/doc2/VFJa8conversion_donnees_en_ligne.xls]

Message édité par shmider le 05-06-2009 à 09:29:32

Publicité

Ctplm

Hi,

Je t'ai fait le début (extraction de tes ref), reste plus qu'à appliquer la même méthode pour le reste + mise en page et clearcontents du tableau que tu obtiens.
Pour que ce soit plus propre j'ai séparé les deux tableaux sur deux onglets, voir fichier.

Code :

Dim Ref, Statut, Quantite As String
Dim Com, nbLigneTest2, nbLigneData, a As Integer
'************************************************************************
'*
'* Procédure principale : Extraction des ref, appel des autres sub.
'*
'************************************************************************
Sub Test2()
'On calcule le nombre de lignes dans les tableaux.
Call CalculNbLignes
'On parcourt le tableau
For a = 3 To nbLigneData
'On extrait les Ref puis on boucle dessus
Reference = Sheet3.Range("A" & a)
Reference = Split(Reference, ";" )
For i = 0 To UBound(Reference)
Ref = Reference(i)
Call Affectation
nbLigneTest2 = nbLigneTest2 + 1
Next i
Next a
End Sub
'*******************************************************************************
'*
'* Cette procédure sert à remplir le tableau Test2 (tableau que l'on veut obtenir)
'*
'*******************************************************************************
Sub Affectation()
Sheet2.Range("A" & nbLigneTest2 + 1) = Ref
Sheet2.Range("B" & nbLigneTest2 + 1) = Sheet3.Range("B" & a)
Sheet2.Range("C" & nbLigneTest2 + 1) = Sheet3.Range("C" & a)
Sheet2.Range("D" & nbLigneTest2 + 1) = Sheet3.Range("D" & a)
Sheet2.Range("E" & nbLigneTest2 + 1) = Sheet3.Range("E" & a)
End Sub
'**************************************************************************
'*
'* Cette procédure sert à calculer le nombre de lignes des deux tableaux.
'*
'**************************************************************************
Sub CalculNbLignes()
Sheet2.Select
nbLigneTest2 = Range("A65536" ).End(xlUp).Row
Sheet3.Select
nbLigneData = Range("A65536" ).End(xlUp).Row
End Sub

http://dl.free.fr/osWWSqahG

Message cité 1 fois

---------------
"That kind of information doesn't just grow on trees."

shmider

Super ça marche bien. merci à toi.

:bounce:

Ctplm a écrit :

Code :

Dim Ref, Statut, Quantite As String
Dim Com, nbLigneTest2, nbLigneData, a As Integer
'************************************************************************
'*
'* Procédure principale : Extraction des ref, appel des autres sub.
'*
'************************************************************************
Sub Test2()
'On calcule le nombre de lignes dans les tableaux.
Call CalculNbLignes
'On parcourt le tableau
For a = 3 To nbLigneData
'On extrait les Ref puis on boucle dessus
Reference = Sheet3.Range("A" & a)
Reference = Split(Reference, ";" )
For i = 0 To UBound(Reference)
Ref = Reference(i)
Call Affectation
nbLigneTest2 = nbLigneTest2 + 1
Next i
Next a
End Sub
'*******************************************************************************
'*
'* Cette procédure sert à remplir le tableau Test2 (tableau que l'on veut obtenir)
'*
'*******************************************************************************
Sub Affectation()
Sheet2.Range("A" & nbLigneTest2 + 1) = Ref
Sheet2.Range("B" & nbLigneTest2 + 1) = Sheet3.Range("B" & a)
Sheet2.Range("C" & nbLigneTest2 + 1) = Sheet3.Range("C" & a)
Sheet2.Range("D" & nbLigneTest2 + 1) = Sheet3.Range("D" & a)
Sheet2.Range("E" & nbLigneTest2 + 1) = Sheet3.Range("E" & a)
End Sub
'**************************************************************************
'*
'* Cette procédure sert à calculer le nombre de lignes des deux tableaux.
'*
'**************************************************************************
Sub CalculNbLignes()
Sheet2.Select
nbLigneTest2 = Range("A65536" ).End(xlUp).Row
Sheet3.Select
nbLigneData = Range("A65536" ).End(xlUp).Row
End Sub

http://dl.free.fr/osWWSqahG

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Conversion des données séparées par ; en ligne

Sujets relatifs
Base de données et interface en Python	Quel est le coût de la création d'un objet ne contenant pas de donnée
parse ligne par ligne	Ressources géographiques Bases de données et webservices
Bug sur Boucle for sur une ligne et sur un test supérieur à	conversion poiteur sur fonrtion membre vers arguement de CreateThread
Conversion ASCII ISO-8859-1	comparaison de deux bases de données
Caractères accentués, fichier batch et ligne de commande	Créer un formulaire et récupérer les données saisies ds un tableau
Plus de sujets relatifs à : Conversion des données séparées par ; en ligne

Page générée en 0.058 secondes