Discussion :

[frederic89]

Bonjour à tous,
Je souhaite, a partir d'un tableau de deux colonnes, obtenir un autre tableau avec une mise en forme spéciale.
Je vous joins un fichier XL afin d'expliquer plus facilement mon besoin.
Merci d'avance pour votre collaboration et a bientôt.
@+

[clementmarcotte]

Presque personne n'ouvre les fichiers-joints. Surtout quand ils sont balancés avec la première question.

[Marc-L]

Bonjour !

Je souhaite, a partir d'un tableau de deux colonnes, obtenir un autre tableau avec une mise en forme spéciale.

Si vraiment un code est nécessaire alors en activant l'Enregistreur de macro puis
en opérant manuellement une base de code est livrée sur un plateau !

___________________________________________________________________________________________________________
Je suis Paris, Manchester, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[78chris]

Bonjour

Ce qui se conçoit bien s'énonce clairement...

Ta demande n'a rien à voir avec une mise en forme.

Joins une copie d'écran et les explication dans ton post.

[frederic89]

Bonjour,
Désolé, mais je savais pas que les pièces jointes n'étaient pas souhaitées dans un premier temps. Je vous donne ci dessous plus d’informations. Merci d'avance,
Salutations,
Tableau d'origine (3 colonnes)

N° Test	Stagiaires	Classement
T00001	A	           1
T00001	B	           2
T00001	C	           3
T00002	B	           1
T00002	C	           2
T00002	D	           3
T00003	D	           1
T00003	B	           2
T00003	E	           3

Tableau souhaité (2 colonnes)

N° TEST	Combinaison
T00001	AB
T00001	AC
T00001	BC
T00002	BC
T00002	BD
T00002	CD
T00003	DB
T00003	DE
T00003	BE

Le nombre de test n'est pas défini
Le nombre de stagiaire n'est par défini
Le nombre de stagiaire par test peut atteindre 30 personnes

J'ai besoin dans ce tableau de connaitre par N° de test toutes les combinaisons de binomes de stagiaires
sachant que ne ne souhaite pas avoir de doublon. Pour moi AB = BA donc je garde l'un des deux
(je garde de préférence AB pour le test T0001 car A a un meilleur classement que B)

Merci d'avance,
SAlutations,

[unparia]

Bonjour
Je ne vois en ce qui me concerne pas le moindre code au moins tenté pour montrer que tu fais au moins un effort et ne viens pas chercher une solution toute faite.
Peux-tu nous montrer ce que tu as tenté (même si ne fonctionne pas) ?

[frederic89]

Re bonjour,
J'ai trouvé une macro qui fonctionne très bien. Le seul problème est que ne n'arrive pas a virer les doublons. Je ne connais pas beaucoup de chose en programmation
Voici le code
Salutations

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
37
38
Sub TLCPSTA()
'
' TLCPSTA Macro
'
 
'
   Dim i As Long, j As Long, nbLignes As Long, LigneDest As Long
    Dim Cas As String
 
    'Tri des données par CAS et Ordre
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    ActiveWorkbook.Worksheets("STA").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("STA").Sort.SortFields.Add key:=Range("A2:A" & nbLignes) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("STA").Sort.SortFields.Add key:=Range("C2:C" & nbLignes) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("STA").Sort
        .SetRange Range("A1:C" & nbLignes)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
    'Copie dans la feuille Feuil2
    LigneDest = 1
    For i = 2 To nbLignes
        Cas = Range("A" & i)
        For j = 2 To nbLignes
            If Range("A" & j) = Cas And i <> j Then
                LigneDest = LigneDest + 1
                Sheets("TLCPSTA").Range("A" & LigneDest) = Cas
                Sheets("TLCPSTA").Range("B" & LigneDest) = Range("B" & i) & " " & Range("B" & j)
            End If
        Next
    Next
End Sub