Discussion :

[jonat57]

Bonjour,

J'aimerai effectué un formulaire de saisie où je rentrerai chaque chiffre d'affaire de différents magasins. Est-il possible qu'à l'ouverture du formulaire, j'ai automatiquement les 3 magasins ( Magasin A, Magasin B, Magasin C) qui s'affiche et que je puisse saisir les montants à droite ( voir fichier ci-joint). Puis lors de la validation, 3 nouvelles lignes se rajoutent avec le nom du magasin et son chiffre d'affaire.
J'ai commencé le code VBA mais je bute.

PS : les noms des magasins figurent seulement en libellé dans le fichier joint et non automatiquement

[casefayere]

Bonjour,
Une première approche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub b_validation_Click()
Dim derlg As Long, x As Integer
With Sheets("Saisie des données")
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    For x = 0 To 2
        .Range("A" & derlg + x) = Me.Controls("label" & x + 1) 'mais méfies-toi, tes labels ne sont pas dans l'ordre, corriges ceux-ci
        .Range("B" & derlg + x) = Val(Me.Controls("ca" & x + 1))
    Next x
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row + 1
End With
End Sub