Probléme de formulaire incrémenter derniere ligne d'un tableau

Question

Bonjour à tous;

Mon tout premier post!

Ci-joint un essai de formulaire

Je me suis renseigné sur internet mais je ne trouve pas "l'erreur" faite pour que mes données s'insère dans le tableau.

Private Sub CommandButton2_Click()

If ComboBox1.Value = "" Then
MsgBox "Veuillez renseigner les champs"
Else
Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
Worksheets("Planning2").Select
ligne = Sheets("Planning2").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 2) = ComboBox1.Value
Cells(ligne, 3) = ComboBox2.Value
Cells(ligne, 4) = TextBox3.Value
Cells(ligne, 5) = TextBox4.Value
Cells(ligne, 6) = TextBox5.Value
Cells(ligne, 7) = TextBox6.Value
Cells(ligne, 8) = TextBox7.Value
Cells(ligne, 9) = ComboBox3.Value
Unload UserForm1
UserForm1.Show
Else
End If
End If

End Sub

D'avance merci

Patty5046 · Answer

Déjà Où est ton commandbutton2 ?? Où est ton userform ?? Après , on verra peut-être mieux ... A+...

Patty5046 · Answer

Le code corrigé : Private Sub CommandButton2_Click() If ComboBox1.Value = "" Then MsgBox "Veuillez renseigner les champs" Else Dim ligne As Integer If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then Set ws = Sheets("Planning2") ligne = ws.Range("B:B").Find(What:="*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 ws.Cells(ligne, 2) = ComboBox1.Value ws.Cells(ligne, 3) = ComboBox2.Value ws.Cells(ligne, 4) = TextBox3.Value ws.Cells(ligne, 5) = TextBox4.Value ws.Cells(ligne, 6) = TextBox5.Value ws.Cells(ligne, 7) = TextBox6.Value ws.Cells(ligne, 8) = TextBox7.Value ws.Cells(ligne, 9) = ComboBox3.Value Unload UserForm1 UserForm1.Show Else End If End If End Sub A+...