Discussion :

[leloup84]

Bonjour,

Je débute dans Excel.
J'ai créé un fichier avec 3 onglets.
Base de donnée : Là où mes enregistrements doivent s'enregistrer
Formulaire : Les quelques questions que j'ai pour l'instant créé
Choix : Qui permet dans le formulaire d'alimenter la liste déroulante

Avant d'aller plus loin je voudrais savoir quoi mettre dans ma macro du bouton "Enregistrement" onglet formulaire pour que les données de mon formulaire s'enregistre les uns en dessous des autres dans l'onglet base de donnée et que les champs formulaire s'initialise à blanc pour refaire un nouvel enregistrement.

Merci de votre aide

[QuestVba]

Bonjour

Ta discussion doit être en VBA

Voici un bout de code, j'ai créé un feuille "formulairebis"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Prise des données
Sheets("formulairebis").Activate
dat = Cells(4, 3).Value
cl = Cells(6, 3).Value
typ = Cells(8, 3).Value
ref = Cells(10, 3).Value
'Mise à vide
Range("C6") = ""
Range("c8") = ""
Range("c10") = ""
'Copie des données
Sheets("base de donnée").Activate
Columns("a").EntireColumn.Select
Range("a1").Activate
Selection.Find("", After:=ActiveCell).Select
ActiveCell.Value = dat
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell.Value = cl
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell.Value = typ
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell.Value = ref

[leloup84]

Merci beaucoup, je vais pouvoir m'appuyer sur ce que tu as fait pour avancer et comprendre le principe via un exemple concret.

[QuestVba]

Re,

Je rejoins le fichier car je me rends compte que la macro n'est pas liée à ton bouton. Sorry.

J'ai ajouté un test pour vérifierque l'encodage est complet.

Code :

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

1
2
3
4
5
'Vérification encodage
If Cells(6, 3).Value = "" Or Cells(8, 3).Value = "" Or Cells(10, 3).Value = "" Then
MsgBox "Votre encodage n'est pas complet !", vbCritical
GoTo line1:
End If