Discussion :

[vertical_sud]

Bonjour à tous,

pas facile à expliquer mais je me lance et je suis sur que la question a déjà été posé mais j'ai trouvé.

j'ai une feuille avec un ensemble de ligne où l'on retrouve une ville de départ et une ville d'arrivée et pour aller d'une ville à l'autre, je passe par des étapes.
Je voudrai obtenir sur une autre feuille le détail à savoir ville de départ et d'arrivée et le détail du premier troncon. (Cf exemple)

Par exemple :
DEPART / ARRIVEE - ETAPE
Lille-Marseille / Reims-Troyes-Lyon-Valence

et je voudrai
Lille-Marseille / Reims-Troyes
Lille-Marseille / Troyes-Lyon
Lille-Marseille / Lyon-Valence

Merci à tous de me pencher sur mon problème

[Invité]

Sans doute optimisable et à adapter (j'ai changer un peu la mise en forme) mais ça marche (voir PJ):

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
Option Explicit
Option Base 1
 
Private Sub TriageDonnees()
Dim intLigne, intCol, i, j, k As Integer
Dim strTrajet() As String
 
    With Sheets("Parcours")
        intLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        intCol = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
        ReDim strTrajet(intLigne * (intCol - 3), 4)
 
        k = 1
        For i = 2 To intLigne
            intCol = .Cells(i, .Cells.Columns.Count).End(xlToLeft).Column
            For j = 3 To intCol
                If .Cells(i, j + 1) <> "" Then
                    strTrajet(k, 1) = .Cells(i, 1)
                    strTrajet(k, 2) = .Cells(i, 2)
                    strTrajet(k, 3) = .Cells(i, j)
                    strTrajet(k, 4) = .Cells(i, j + 1)
                    k = k + 1
                End If
            Next j
        Next i
    End With
 
    With Sheets("Détails")
        .Range(.Cells(2, 1), .Cells(UBound(strTrajet, 1), UBound(strTrajet, 2))) = strTrajet
    End With
 
End Sub

[vertical_sud]

C'est la magie des forums et pourtant j'ai une présence sur d'autres forums mais là c'est une réponse expresse.
ça marche nickel, maintenant il me reste à détaillé le code surtout qu'il y a des instructions que je ne connais pas.

Encore un grand

Je passe en résolu quand j'aurai validé

[Invité]

Je me suis trompé sur la dimension du tableau c'est plutôt:

Code :

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

ReDim strTrajet(intLigne * (intCol - 3), 4)

à la place de:

Code :

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

ReDim strTrajet(intLigne * (intCol - 1), 4)

Mais bon même dans ce cas là le tableau peut être trop grand mais ça n'a pas d'impact sur le résultat final.
Si tu as des questions n'hésite pas.