Formulaire saut de ligne

Bonjour,

J'aimerai savoir ce qu'il faut modifier dans le code VBA ci-joint, pour qu'il insère les noms des différents magasins sur chaque ligne de la colonne A et non seulement le dernier.

Merci d'avance.

Cordialement.

Bonjour

Un essai

Bonjour

Pour rester dans le style de code que tu as créé :

Private Sub b_validation_Click()
   '--- Positionnement dans la base
   [A65000].End(xlUp).Offset(1, 0).Select
   '--- Transfert Formulaire dans BD
    ActiveCell.Value = Application.Proper(nom1)
   ActiveCell.Offset(0, 1).Value = CLng(annee1)
   ActiveCell.Offset(0, 2).Value = mois1
   ActiveCell.Offset(0, 3).Value = CDbl(ca1.Value)
   ActiveCell.Offset(1, 0).Value = Application.Proper(nom2)
   ActiveCell.Offset(1, 1).Value = CLng(annee2)
   ActiveCell.Offset(1, 2).Value = mois2
   ActiveCell.Offset(1, 3).Value = CDbl(ca2.Value)
   ActiveCell.Offset(2, 0).Value = Application.Proper(nom3)
   ActiveCell.Offset(2, 1).Value = CLng(annee3)
   ActiveCell.Offset(2, 2).Value = mois3
   ActiveCell.Offset(2, 3).Value = CDbl(ca3.Value)
   End Sub

Amicalement

Nad

Merci à vous.

Cordialement.