Un tableau carré à partir de deux lignes?

Y compris Power BI, Power Query et toute autre question en lien avec Excel
E
Excel21
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 24 juillet 2015
Version d'Excel : 2013

Message par Excel21 » 24 juillet 2015, 11:36

Bonjour,

j'aurai une question bête

J'ai un tableau de deux lignes : Une ligne de date et une ligne de nom
en gros ca fait genre

11 11 11 11 11 12 12 12
Martin Martin Martin Jean Martin Pierre Martin

En gros j'aimerais passer à un tableau complet avec en ligne les dates (qui ne se répétent pas ) et en colonnes les noms (qui ne se répetent pas ) et dans la cellule le nombre de fois que le nom apparait à la date donnée

genre

11 12
Martin 4 2
Pierre 0 1
Jean 1 0

Que faire?

Ca me suffirait déjà d'avoir un tableau avec les date en lignes, les noms en colonne et un 1 ou un 0 dans la case (après je somme )


Merci beaucoup!
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'138
Appréciations reçues : 376
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 24 juillet 2015, 12:05

Bonjour,

proposition de solution via une macro
Sub test()
    i = 1
    l = 0
    k = 1
    While Cells(1, i) <> ""
        If i = 1 Then
        k = k + 1
        Cells(3, k) = Cells(1, i)
        ElseIf Cells(1, i) <> Cells(1, i - 1) Then
            k = k + 1
            Cells(3, k) = Cells(1, i)
        End If
        If l <> 0 Then
            Set re = Range(Cells(4, 1), Cells(l, 1)).Find(Cells(2, i), lookat:=xlWhole)
            If Not re Is Nothing Then
                Cells(re.Row, k) = Cells(re.Row, k) + 1
            Else
                l = l + 1
                Cells(l, 1) = Cells(2, i)
                Cells(l, k) = 1
            End If
        Else
            l = 4
            Cells(l, 1) = Cells(2, i)
            Cells(l, k) = 1
        End If
        i = i + 1
    Wend
End Sub
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'171
Appréciations reçues : 446
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 24 juillet 2015, 17:30

Bonsoir,

Une solution formules.

Les formules s'étendent. La cellule colorée en orange doit rester vide.

Bonne soirée.
Ferrand
excel21.xlsx
(10.25 Kio) Téléchargé 11 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message