Aide recap vente

[adsebsau]

Bonjours à vous tous .
Je suis de plus en plus nul dans mes formules car même ça ça ne fonctionne plus .
J'arrive à faire les chose de base mais après ça va plus .
Donc si vous pouvez m'aider cela serais super géniale.

Dans le ficher que je vous joint il y a

Premier onglet le récapitulatif des règlement suivant l'onglet du client.
Deuxième onglet il y à le récapitulatif de toute les ventes suivant les onglet (21)
Troisième, Quatrième, ...... jusqu’à 21 les ventes des clients .

Merci de votre aide.

Sébastien

PS ce que j'aimerais c'est savoirs faire tous cela avec les terme que vous utiliser mais quant je vois qu'une formule simple comme =E21*F21 ne fonctionne pas et je cherche et cela m’énerve oula .

merci de votre aide

 

[Jacou]

Re : Aide recap vente

Bonjour Sébastien, bonjour à tous

dans la dernière version que je t'ai jointe, tu peux changer le nom d'un onglet à condition que tu fasses le même changement dans le feuillet récap.
exemple : si tu changes le nom de l'onglet "Client(4)" en "Toto", il faut que dans la cellule B5 tu mettes aussi "Toto"

Bonne après-midi

 

[adsebsau]

Re : Aide recap vente

Merci beaucoup pour tes infos c'est ce que j'ai pus remarquer


Cordialement

Sébastien

 

[sourcier08]

Re : Aide recap vente

Salut,

Bon j'étais parti hier pour tenter via une fonction d'intégrer les onglets. Après quelques verres hier soir et une bonne nuit, j'ai eu une idée d'événementielle à l'activation de l'onglet récap. Après mûre réflexion, même si l'idée est bonne et moins fastidieuse, elle comporte un gros inconvénient que j'explique plus bas.

La macro récupère sur tous les onglets des cellules en colonne E et F et fais la somme dans l'onglet Récap.
Le nom des onglets n'a plus aucune importance en utilisant la macro.


L'inconvénient est qu'il faudra impérativement changer les coordonnées, dans les lignes qui déterminent les plages, s'il te vient à l'esprit d'ajouter un article dans tes onglets.

Si tu es sûr de ne jamais avoir un article à ajouter dans ta liste, c'est une bonne alternative sinon... bien peser le pour et le contre avant d'opter pour ce fichier.


Voici le code mis dans l'onglet RECAP COMMANDE

Private Sub Worksheet_Activate()

Dim i As Long
Dim Somme As Double

Application.ScreenUpdating = False

For Each cel In Range("E12:E14,E17:E21,E24:E27,E29:E31,E33:E35,E38:E44,E48:E55," & _
"E59:E61,E76:E80,E82:E83,E87:E100,E104:E108,E112:E118,E141:E167," & _
"E170:E178,E182:E183,E206:E210,E212:E219,E221:E226,E228:E237," & _
"E239:E242,E244:E250")

    lig = cel.Row
    col = cel.Column
    
    For i = 3 To Worksheets.Count
        Somme = Somme + Worksheets(i).Cells(lig, col).Value
    Next i
    If Somme = 0 Then
    cel.Value = ""
    Else
    cel.Value = Somme
    End If
    Somme = 0
Next cel

For Each cel In Range("F12:F14,F17:F21,F24:F27,F29:F31,F33:F35,F38:F44,F48:F55," & _
"F59:F61,F76:F80,F82:F83,F87:F100,F104:F108,F112:F118,F141:F167," & _
"F170:F178,F182:F183,F206:F210,F212:F219,F221:F226,F228:F237," & _
"F239:F242,F244:F250")

    lig = cel.Row
    col = cel.Column
    
    For i = 3 To Worksheets.Count
        Somme = Somme + Worksheets(i).Cells(lig, col).Value
    Next i
    If Somme = 0 Then
    cel.Value = ""
    Else
    cel.Value = Somme
    End If
    Somme = 0
Next cel

Application.ScreenUpdating = True

End Sub

 

[adsebsau]

Re : Aide recap vente

Woua Woua Woua là ça deviens plus compliqué.

Sébastien