Bonjour à tous,
Mon premier poste sur le forum, je vais essayer d'être le plus clair possible.
J'ai une liste de nom dans une feuille 1 dans la colonne A (sur plus de 10 000 lignes):
Nom1
Nom1
Nom1
Nom2
Nom2
Nom3
Nom4
Nom4
...
Je souhaite obtenir sur une feuille 2 la liste des noms mais à l'horizontal pour faire des tableaux de synthèses:
Nom1 Nom2 Nom3 Nom4 ....
Comme j'ajoute et retire des noms, il faudrait que tout ça se fasse automatiquement... (VBA ??).
J'avais pensé à quelque chose dans ce style:
Sub Test()
i = 2
While Worksheets("Feuille 1").Cells(1, i) <> ""
If Worksheets("Feuille 1").Cells(1, i) <> Worksheets("Feuille 1").Cells(1, i - 1) Then
Worksheets("Feuille 2").Cells(y, 1) = Worksheets("Feuille 1").Cells(1, i - 1)
Else: i = i + 1
End If
End Sub
Mais ça ne marche pas... Quelqu'un peut m'aider ?
Merci pour vos suggéstions.
Mon premier poste sur le forum, je vais essayer d'être le plus clair possible.
J'ai une liste de nom dans une feuille 1 dans la colonne A (sur plus de 10 000 lignes):
Nom1
Nom1
Nom1
Nom2
Nom2
Nom3
Nom4
Nom4
...
Je souhaite obtenir sur une feuille 2 la liste des noms mais à l'horizontal pour faire des tableaux de synthèses:
Nom1 Nom2 Nom3 Nom4 ....
Comme j'ajoute et retire des noms, il faudrait que tout ça se fasse automatiquement... (VBA ??).
J'avais pensé à quelque chose dans ce style:
Sub Test()
i = 2
While Worksheets("Feuille 1").Cells(1, i) <> ""
If Worksheets("Feuille 1").Cells(1, i) <> Worksheets("Feuille 1").Cells(1, i - 1) Then
Worksheets("Feuille 2").Cells(y, 1) = Worksheets("Feuille 1").Cells(1, i - 1)
Else: i = i + 1
End If
End Sub
Mais ça ne marche pas... Quelqu'un peut m'aider ?
Merci pour vos suggéstions.