Discussion :

[FenX.]

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 :

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

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 :

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

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 !

[jfontaine]

Une proposition
Ici la feuille de destination est la feuil3

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
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

[FenX.]

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 ?

[jfontaine]

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

[FenX.]

Merci pour tout