Formulaire excel 2007

Version imprimable

Bonjour j'ai crée un formulaire de saisie via Excel qui alimente une base de donnée, mon code fonctionne, mais j'aimerai qu'il gère les cases à cocher, de plus les données s'incrémentent à partir d'une sélection, je souhaiterai que ce soit à partir de la première colonne.

Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub Valider_Click() Dim i As Integer If UserForm1.TextBox1 = "" Or UserForm1.ComboBox1 = "" Or UserForm1.ComboBox2 = "" Then MsgBox "Veuillez saisir tout les champs" Else i = 2 Do While Cells(i, 1) <> "" Cells(i, 1).Offset(1, 0).Select i = i + 1 Loop ActiveCell.Value = UserForm1.TextBox1.Value ActiveCell.Offset(0, 1).Value = UserForm1.ComboBox1.Value ActiveCell.Offset(0, 2).Value = UserForm1.ComboBox2.Value Unload UserForm1 End If End Sub Merci d'avance

Pour éliminer les SELECT et les ACTIVECELL, il faut nommer (grâce à la commande Set) la cellule pour pouvoir l'identifier et s'y référer.

J'ai nommé la cellule C
et j'ai aussi nommé la feuille : elle s'appelle maintenant F

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButton1_Click()
On Error GoTo errorhandler
Dim i As Integer
Dim f As Object
Dim c As Object
Set f = ThisWorkbook.Worksheets("feuil1")
 
If UserForm1.TextBox1 = "" Or UserForm1.ComboBox1 = "" Or UserForm1.ComboBox2 = "" Then
    MsgBox "Veuillez saisir tout les champs"
    Else
    i = 2
    Set c = f.Cells(i, 1)
    Do While f.Cells(i, 1).Value <> ""
    Set c = f.Cells(i, 1).Offset(1, 0)
    i = i + 1
    Loop
    c.Value = UserForm1.TextBox1.Value
    c.Offset(0, 1).Value = UserForm1.ComboBox1.Value
    c.Offset(0, 2).Value = UserForm1.ComboBox2.Value
    Unload UserForm1
    End If
Exit Sub
Resume
errorhandler:
MsgBox Error
End Sub

Bonjour,

Sans regarder plus loin, pourquoi s'embêter avec

Code:

On Error GoTo errorhandler

Il suffit de :
Code:

1 2 If UserForm1.TextBox1 = "" Or UserForm1.ComboBox1 = "" Or UserForm1.ComboBox2 = "" Then MsgBox "Veuillez saisir tout les champs" : Exit Sub
A mon avis.....