Microsoft 365 Créer une fenêtre de vente qui alimentera un cumul dans un tableau

[nicobertiniak]

Bonjour,
j'ai besoin d'une aide pour créer un tableau de vente. Voici l'idée.

La feuille 1 sera la feuille de vente avec 3 fenêtres distinctes pour recevoir des valeurs chiffrées.
Au préalable, le vendeur doit sélectionner son agence via un menu déroulant.
Dès que l'on complète les 3 cadres, il doit y avoir un bouton "fin de la vente" qui transmettra les données à un tableau en feuille 2.

La feuille 2 compilera toutes les ventes par agence.
En colonne, les 3 ventes issues des fenêtres et en lignes, le nom de l'agence concernée.

je ne suis pas doué sur les macros, mais j'ai de la patience.

merci pour votre aide
nicolas

 

[halecs93]

Bonjour,
j'ai besoin d'une aide pour créer un tableau de vente. Voici l'idée.

La feuille 1 sera la feuille de vente avec 3 fenêtres distinctes pour recevoir des valeurs chiffrées.
Au préalable, le vendeur doit sélectionner son agence via un menu déroulant.
Dès que l'on complète les 3 cadres, il doit y avoir un bouton "fin de la vente" qui transmettra les données à un tableau en feuille 2.

La feuille 2 compilera toutes les ventes par agence.
En colonne, les 3 ventes issues des fenêtres et en lignes, le nom de l'agence concernée.

je ne suis pas doué sur les macros, mais j'ai de la patience.

merci pour votre aide
nicolas

Bonjour... peut-être une ossature à nous proposer ? Exemple des tableaux sans formule.... ?

 

[job75]

Bonjour nicobertiniak, bienvenue, salut halecs93,

Voyez le fichier joint et le code de la feuille VENTES :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$4" Then [F4,H4,J4].ClearContents 'RAZ
End Sub

Sub Transfert()
Dim a(1 To 4), i&
If [D4] = "" Then MsgBox "Choisissez l'agence...": Exit Sub
If Application.Count([F4,H4,J4]) < 3 Then MsgBox "Les 3 ventes doivent être renseignées...": Exit Sub
a(1) = [D4]: a(2) = [F4]
a(3) = [H4]: a(4) = [J4]
With [Tableau1] 'tableau structuré
    i = IIf(.Cells(1) = "", 1, .Rows.Count + 1)
    .Cells(i, 1).Resize(, 4) = a
    Application.Goto .Cells(i, 5) 'facultatif
End With
End Sub

A+