Renvoyer des données d'un tableau "bizarre"

Bonjour à tous,

Je poste sur cette section car je pense qu'il s'agit de VBA et je me suis trituré l'esprit pendant longtemps... C'est problématique pour mon taf d'ailleurs...

Voici mon problème : J'ai un tableau avec un nom de groupe de marchandise, j'aimerais pouvoir traiter le total de ce groupe, dans mon fichier, par exemple, j'aimerais avoir dans une autre feuille le total du groupe jus (61.74 en D10 et 0 en E10) et ainsi de suite avec tous les autres groupes jusqu'à la fin de mon tableau.

Mon soucis est que c'est un tableau qui est sans cesses modifié, le mois prochain, il est possible que pour le groupe jus, j'ai une ligne article en moins, etc... Cependant la structure ne change pas.

L'idée que j'avais c'était de donner l'instruction suivante : "Si en colonne B tu me trouves "Jus", alors descend jusqu'à la première valeur nulle, déplaces toi de 2 colonnes afin d'arriver en D et copie moi cette donnée dans l'autre feuille." Sauf que j'ai beau avoir essayé, pas réussi...

J'ai bien essayé de faire avec des fonctions index et equiv, ou des rechercheh et recherchev mais j'ai rien réussi...

Merci à tous :)

Bonjour,

Tu aurais dû mettre un exemple du résultat attendu pour gagner du temps sur la compréhension.
Le tableau se met à jour lorsque tu quitte Sheet1

eric

Re-bonjour et merci pour votre réactivité.

Ca n'a pas fonctionné. Enfin je ne vois rien marqué.

Je vous joins le fichier avec ce que je veux comme résultats à peu près pour plus de clarté. :)

Merci encore !

Je joins une image parce que je n'arrive pas à envoyer de pièce jointe du bureau.. désolé

Il faut accepter les macros à l'ouverture.
Voici ce que ça donne (par contre la 3ème colonne n'était pas demandée, précise s'il la faut) :

eric

...
J'ai un peu modifié le code, et ajouté Reduzierung.
Il n'y a que GM et WG comme articles ?

à mettre dans le module de Sheet1 :

Private Sub Worksheet_Deactivate()
    Dim datas, result, lig As Long, lig2 As Long
    Dim gr As String
    datas = [A1].CurrentRegion.Value
    ReDim result(1 To UBound(datas), 1 To 3)
    For lig = 2 To UBound(datas)
        Select Case datas(lig, 1)
            Case "GM", "WG"
                gr = datas(lig, 2)
            Case "Total groupe de ma"
                lig2 = lig2 + 1
                result(lig2, 1) = gr
                result(lig2, 2) = datas(lig, 4)
                result(lig2, 3) = datas(lig, 5)
        End Select
    Next lig
    With Worksheets("sheet2")
        .[A1].CurrentRegion.Offset(1).ClearContents
        .[A2].Resize(UBound(result), 3) = result
    End With
End Sub

eric

Merci énormément Eric !

C'est exactement ce que je voulais comme résultat ! :)

Bonjour,

tu n'as pas répondu à ma question...
Complète Case "GM", "WG" si besoin
eric