[VBA-E] Organiser un tableau

Bonjour à tous :)

Je ne savais pas trop comment nommer le sujet, mais voici mon problème :

J'ai un classeur dont la première feuille est :

Code:

---

1 2 3 4 5 6 7 8 9

classe1 objet1 classe1 objet2 classe2 objet3 classe2 objet4 classe1 objet5 classe1 objet6 classe2 objet7 classe2 objet8

---

Je souhaiterais obtenir sur la deuxième feuille :

Code:

---

1 2 3 4 5 6 7

classe1 classe2   objet1 objet3 objet2 objet4 objet5 objet7 objet6 objet8

---

Comment réorganiser les cellules pour passer du tableau 1 au tableau 2 ?

Merci d'avance ! ;)

Une proposition
Ici la feuille de destination est la feuil3

Code:

---

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 28 29 30 31 32 33 34 35 36

Dim i As Long Dim iCol As Integer Dim iLigne As Long   i = 1     Do While Range("A" & i).Value <> "" iCol = 1 iLigne = 1   'recherche si champ titre existant Do While Feuil3.Cells(1, iCol).Value <> "" If Feuil3.Cells(1, iCol).Value = Range("A" & i).Value Then GoTo suite End If iCol = iCol + 1 Loop   suite:   'Ajoute le titre si innexistant If Feuil3.Cells(1, iCol).Value = "" Then Feuil3.Cells(1, iCol).Value = Range("A" & i).Value   'Cherche la prochaine ligne disponible Do While Feuil3.Cells(iLigne, iCol).Value <> "" iLigne = iLigne + 1 Loop   'Ajoute la donnée Feuil3.Cells(iLigne, iCol).Value = Range("B" & i).Value   i = i + 1 Loop

---

Merci ça marche nickel :)

Petite question pour ma culture :

Pourquoi si je copie le contenu de "suite" à la place du GoTo cela freeze Excel ? Le comportement ne devrait-il pas être équivalent ?

Suite sert a sortir de la boucle. Ce n'est pas une procèdure appelée dans la boucle

Merci pour tout :)