[XL-2003] Groupement de plages dans TCD [Résolu]

[Achil30]

Salut,

Je souhaite créer un TCD qui regroupe les différentes colonnes de nom du fournisseur avec la réference de telle sorte à ce que les noms n'apparaissent qu'une seule fois et les fournisseurs sur d'autres lignes

Voyez la pièce jointe si ma tentative d'explication n'est pas claire ;

Merci beaucoup pour votre aide.

[mercatog]

Bonjour et bienvenu au forum.
Malheureusement, l'explication est insuffisante même avec un fichier joint dès le départ.
Regarde ici et essaies d'expliquer davantage ton souci, en décrivant clairement la structuration des données et en formulant une question précise.

[Achil30]

ok
dans les colonnes G,H,I,J,K,L,M,N,O,P, il y a des noms de fournisseur + leurs references qui correspondent à un code "colonne C".
je souhaite faire un TCD ou une formule avec pour chaque code correspond à un nom & une reference avec un retour de ligne pour pouvoir faire une comparaison avec un autre tableau

[mercatog]

Une macro qui ferait l'affaire (si j'ai bien compris)
Crée une nouvelle feuille que tu nomme Resultat
lance ce code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Bouazizi()
Dim Lastlig As Long, i As Long
Dim Nb As Byte, j As Byte
 
Application.ScreenUpdating = False
With Sheets("Resultat")
    .UsedRange.ClearContents
    Sheets("Feuil1").UsedRange.Copy .Range("A1")
    .UsedRange.Replace "(vide)", ""
    Lastlig = .Cells(.Rows.Count, "C").End(xlUp).Row
    For i = Lastlig To 2 Step -1
        Nb = Application.CountA(.Range("I" & i & ":P" & i))
        If Nb > 1 Then
            .Rows(i).Copy
            .Rows(i & ":" & i + Int(Nb / 2) - 1).Insert
            For j = 0 To 6 Step 2
                If .Cells(i, j + 9).Value <> "" Then .Range(.Cells(i, j + 9), .Cells(i, j + 10)).Cut .Range("G" & i + Int(j / 2) + 1)
            Next j
        End If
    Next i
    .Range("I:Q").Delete
End With
End Sub

[Achil30]

Merci infiniment

[mercatog]

Bonjour
Vu tes explications sommaires sur le sujet, c'était une devinette qu'il fallait solutionner.
Si tu as encore besoin de quelque chose sur le forum, essaies de te donner le temps pour bien expliquer, d'abord pour avoir des réponses précises et secundo, par respect à tes "interlocuteurs" bénévoles.
Si c'est résolu, tu marque résolu (à l'aide du bouton Résolu).