Discussion :

[Kyrios92]

Bonjour,

Je souhaiterais créer une macro afin de passer de cette présentation :

Colonne A Colonne B Colonne C
Ligne 1 En tete 1 En tete 2 En tete 3
Ligne 2 Aa
Ligne 3 Ba
Ligne 4 Ca
Ligne 5
Ligne 6 Ab
Ligne 7 Bb
Ligne 8 Cb
Ligne 9 Ac
Ligne 10 Bc
Ligne 11 Cc


A celle-ci :

Colonne A Colonne B Colonne C Colonne D Colonne E Colonne F Colonne G Colonne H
Ligne 1 En tete 1 En tete 2 En tete 3 En tete 4 En tete 5 En tete 6 En tete 7 En tete 8
Ligne 2 Aa Ba Ca
Ligne 3 Ab Bb Cb
Ligne 4 Ac Bc Cc


Je remercie d'avance les personnes qui consacreront du temps à ma demande.

Ps : la mise en page n'a pas été concervée, je vous joins donc un fichier excel qui fait ressortir les deux présentations VBA copier coller en changeant la disposition des cellules.xlsm

[tototiti2008]

Bonjour,

Quelle est la règle (en français) pour choisir dans quelle colonne finale chaque contenu doit figurer ?
pourquoi un 2ème contenu en Col 1 une fois le fait passer en Col 2 dans le résultat, et une autre fois entraine la création d'une nouvelle ligne ?
Si la règle n'est pas claire, le résultat ne pourra pas correspondre a vos besoins

[Kyrios92]

Bonjour,

En faisant une extraction de données sur un site internet, et en le collant sur Excel, voila ce que j'obtiens :



(l'extraction comporte beaucoup plus de lignes, plusieurs centaines)

et je voudrais présenter l'extraction sous cette forme :


Les colonnes du milieu seront remplies manuellement avec des données perso.


En espérant avoir été plus clair !

[tototiti2008]

Re,

dans la mesure où les cellules vides sont bien vides, un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub TransfDonn()
Dim i As Long, Nom As String, Adresse As String, Gerant As String, LigDest As Long
    LigDest = 2
    Nom = ""
    Adresse = ""
    Gerant = ""
    With Sheets("Feuil1")
        For i = 2 To .Cells(Rows.Count, 3).End(xlUp).Row
            If .Cells(i, 3).Value <> "" Then
               Gerant = .Cells(i, 3).Value
               Sheets("Feuil2").Cells(LigDest, 1).Value = Nom
               Sheets("Feuil2").Cells(LigDest, 2).Value = Adresse
               Sheets("Feuil2").Cells(LigDest, 8).Value = Gerant
               Nom = ""
               Adresse = ""
               Gerant = ""
               LigDest = LigDest + 1
            ElseIf .Cells(i, 1).Value <> "" Then
                If Nom <> "" Then
                    Adresse = .Cells(i, 1).Value
                Else
                    Nom = .Cells(i, 1).Value
                End If
            End If
        Next i
    End With
End Sub