Traiter les infos d'une table dimensionnée

[sasjm37]

Bonjour le forum,
Je cherche à récupérer les infos d'une table a deux dimensions.
je joins la partie du code qui me permet d'obtenir la table (il n'est pas de moi, mais je n'ai plus l'auteur...) dans le fichier joint.
J'espère que ce sera assez limpide.
Merci d'avance
(Excel 2003 sur PC)

 

[Efgé]

Re : Traiter les infos d'une table dimensionnée

Bonjour sasjm37, le fil, le forum,
Une proposition (le code est commenté dans le fichier):

Private Sub CommandButton1_Click()
Dim sDat(), sRng, i&, sReport(), z&, NbrPers&, NbrH&, NbrF&
sDat = Sheets("BASE").UsedRange.Value
Set Dico = CreateObject("Scripting.Dictionary")
For i = LBound(sDat, 1) + 1 To UBound(sDat, 1)
   Dico(sDat(i, 1)) = sDat(i, 1)
Next i
sRng = Dico.Keys
For i = LBound(sRng, 1) To UBound(sRng, 1)
    z = z + 1: NbrPers = 0: Salaires = 0: NbrF = 0: NbrH = 0
    ReDim Preserve sReport(1 To UBound(sRng, 1), 1 To z)
    For j = LBound(sDat, 1) + 1 To UBound(sDat, 1)
        If sDat(j, 1) = sRng(i) Then
            NbrPers = NbrPers + 1
            Salaires = Salaires + sDat(j, 7)
            If sDat(j, 8) = "homme" Then NbrH = NbrH + 1
            If sDat(j, 8) = "femme" Then NbrF = NbrF + 1
        End If
    Next j
    sReport(1, z) = sRng(i)
    sReport(2, z) = NbrPers
    sReport(3, z) = Salaires
    sReport(4, z) = NbrF
    sReport(5, z) = NbrH
Next i
Range(Cells(2, 1), Cells(Rows.Count, 5).End(xlUp).Offset(2, 0)).ClearContents
Cells(2, 1).Resize(UBound(sReport, 2), UBound(sReport, 1)) = Application.Transpose(sReport)
End Sub

Cordialement

 

[sasjm37]

[Résolu] Re : Traiter les infos d'une table dimensionnée

Bonjour Efgé, le fil
Je dis 'Mes Respects', c'est tout simplement formidable. je vais l'adapter à mon programme (en citant ta participation) et me permettrai de te recontacter en MP (si tu es d'accord) si j'ai besoin d'ajustements particuliers.
très cordialement
Jean marc