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

nicobertiniak · 8 Août 2025

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 · 8 Août 2025

nicobertiniak à dit:
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 · 9 Août 2025

Bonjour nicobertiniak, bienvenue, salut halecs93,

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

VB:

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+

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

nicobertiniak

XLDnaute Nouveau

halecs93

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

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

nicobertiniak

XLDnaute Nouveau

halecs93

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency