Discussion :

[AudreyAQF]

Bonjour !

J'ai lu cette discussion.

Je veux exécuter cette macro dans mon classeur mais je ne vois pas à quel moment de la macro je dois renseigner que c'est telle colonne dont je veux dupliquer les champs ?

Merci pour votre réponse !

[Daniel.C]

Bonjour,

"Plage" est la plage des cellules de la colonne A. C représente chaque cellule de cette plage. "C.Offset(, 10)" représente un décalage de 10 colonnes par rapport à la colonne A, soit la colonne K.
N'hésite pas à demander si ce n'est pas clair.

[AudreyAQF]

Donc si je veux que ce soit la colonne en 13è position, je remplace le 10 par 13 ?

[AudreyAQF]

J'ai exécuté ma macro en faisant les modifications mais cela me met un message d'erreur: L'indice n'appartient pas à la selection.

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
Dim C As Range, Tabl, Plage As Range, Ligne As Long
    With Sheets("Datas")
        Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    With Sheets("Duplicate Datas")
        For Each C In Plage
            Tabl = Split(C.Offset(, 14), ",")
            .[A:C].NumberFormat = "@"
                For i = 0 To UBound(Tabl)
                    Ligne = Ligne + 1
                    .Range(.Cells(Ligne, 1), .Cells(Ligne, 14)).Value = C.Resize(, 14).Value
                    .Cells(Ligne, 14) = Tabl(i)
                Next i
            Next
        .[N:N].EntireColumn.AutoFit
    End With

[Kiouane]

Sur quelle ligne? Lance la macro en mode pas à pas en appuyant sur F8. Et indente ton code en le sélectionnant et appuie sur le bouton # pour une meilleure visibilité dans ton message.

[AudreyAQF]

Code :

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

With Sheets("Datas")

[Kiouane]

Donc vérifie le nom de la feuille. Il y a un espace peut être.

[AudreyAQF]

C'était bien cela merci !

Mais ma macro ne fonctionne pas, elle me décale la deuxième ligne sur la première et me supprime la colonne où se situent les champs que je veux dupliquer en plusieurs lignes.