Organisation

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
S
Sylvain37
Jeune membre
Jeune membre
Messages : 19
Inscrit le : 20 novembre 2019

Message par Sylvain37 » 2 avril 2020, 13:21

Bonjour.

J'ai télécharger une liste excel via internet et quand je l'ouvre il y toute les informations dans une seul cellule.

Comment je peux réorganisé ça automatiquement

Merci
Pays.csv
(14.6 Kio) Téléchargé 7 fois
Avatar du membre
mdo100
Membre dévoué
Membre dévoué
Messages : 931
Appréciations reçues : 39
Inscrit le : 25 mai 2013
Version d'Excel : 2010 FR

Message par mdo100 » 2 avril 2020, 13:38

Bonjour,

A tester en appuyant sur le bouton "Go"
Pays.xlsm
(23.82 Kio) Téléchargé 10 fois
Cordialement.
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'327
Appréciations reçues : 263
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 2 avril 2020, 13:43

Bonjour Sylvain37, le forum,

Tu sélectionnes ta colonne A
Tu cliques sur Données
Tu cliques sur Convertir
Tu coches Délimité puis suivant
Tu coches Virgule puis cliques sur Suivant
Cliques sur Terminer

Tu obtiens alors 6 colonnes distinctes.

viewtopic.php?f=2&t=53200

La même chose par macro....
Option Explicit
Sub Scinder()
 Dim Tablo
 Dim i As Integer
 Dim lig As Long, derlig As Long

 With ActiveSheet
  derlig = .Range("A" & Rows.Count).End(xlUp).Row
  .Range("A1:A" & derlig).Replace What:="""", Replacement:=""
   For lig = 1 To derlig
    Tablo = Split(.Range("A" & lig), ",")
     For i = 0 To UBound(Tablo)
        .Cells(lig, 1 + i) = Tablo(i)
     Next i
     Erase Tablo
   Next lig
  End With
End Sub
test.xlsm
(25.92 Kio) Téléchargé 3 fois

Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
S
Sylvain37
Jeune membre
Jeune membre
Messages : 19
Inscrit le : 20 novembre 2019

Message par Sylvain37 » 3 avril 2020, 06:45

merci ça fonctionne :)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message