Discussion :

[Tm7555555]

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 :

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
 
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

[Docmarti]

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 :

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
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

[casefayere]

Bonjour,

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

Code :

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

On Error GoTo errorhandler

Il suffit de :

Code :

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

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

A mon avis.....