Structurer des données

Bonjour,

J'ai crée un macro qui me permet d'importer les données d'un site internet. Mais lorsque l'import est effectué j'ai un petit soucis,

les données sont importées sur une seule colonne, alors que je voudrais quelles le soient sur 4.

Il y a t-il un moyen de faire cela avec un macro?

Je joint dans le sujet, le fichier excel mentionné ci-dessus.

Merci d'avance pour votre aide !

Bonjour,

J'ai presque trouvé une solution, j'ai d'abord converti les espaces en virgules, puis j'ai supprimé les éléments inutiles.

Ne me reste plus qu'à mettre en forme en séparant les éléments entre virgules.

Bonjour et bienvenue sur le forum

Pour tenter quelque chose, il faudrait au moins quelques exemples de ce que tu veux mettre dans tes 4 colonnes ...

Bye !

Bonjour

Ok pour la base à transformer mais il faudrait le résultat final au moins sur une ligne pour voir ou il faut segmenter la cellule

Si le séparateur est l'espace, enregistre l'extraction sous un format texte et ferme le classeur.

Ouvre Excel, puis ouvre le fichier texte, Excel va te proposer de segmenter tes cellules en fonction de séparateurs que tu peux aussi modifier

A ta dispo

Cordialement

FINDRH

Bonsoir Inveeent et le forum,

Apparemment, la conversion de données ne convient pas.

J'ai fait un éclatement sur 6 colonnes en virant ce qui ne me paraissait pas nécessaire, c'est une première approche, regarde et dit nous si cela te va :

Option Explicit

Sub Eclat6C()
   Dim sTexte As String, aTexte As Variant, Sh As Worksheet
   Dim Lig As Long, Col As Long

   Set Sh = ActiveSheet
   Sh.Range("B:G").Clear
   For Lig = 2 To Sh.UsedRange.Rows.Count
      If Sh.Cells(Lig, "A") <> Empty Then
         sTexte = Sh.Cells(Lig, "A")
         sTexte = Replace(sTexte, "Rank: ", Empty)
         sTexte = Replace(sTexte, " ", ":", 1, 2)
         sTexte = Replace(sTexte, " - ", ":", 1, 1)
         sTexte = Replace(sTexte, "[LA MAD MAX] Honor: ", ":", 1, 1)
         sTexte = Replace(sTexte, " Bosses: ", ":", 1, 1)
         aTexte = Split(sTexte, ":")
         For Col = 0 To UBound(aTexte)
            Sh.Cells(Lig, Col + 2) = aTexte(Col)
         Next Col
      End If
   Next Lig
End Sub