Bouton ajouté

Bonjour

comment allez vous ? j'utilise ce code ci

Private Sub CommandButton1_Click()

If ComboBox1.Value = "" Then
    MsgBox " Veuillez rentrer le nom svp"
    Else
    If MsgBox("Confirmer-vous l'insertion", vbYesNo, "demande") = vbYes Then
    ligne = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 2 To ligne

  x = Now

            Feuil1.Cells(ligne, 1).Value = ComboBox1.Text
            Feuil1.Cells(ligne, 2).Value = TextBox1.Text
            Feuil1.Cells(ligne, 3).Value = TextBox2.Text
            Feuil1.Cells(ligne, 4).Value = TextBox3.Text
            Feuil1.Cells(ligne, 5).Value = TextBox4.Text
            Feuil1.Cells(ligne, 6).Value = ComboBox2.Text
            Feuil1.Cells(ligne, 7) = x

Next i

     ComboBox1.Value = ""
     TextBox2.Text = ""
     TextBox3.Text = ""
     TextBox4.Text = ""
     TextBox5.Text = ""
     TextBox6.Text = ""
     TextBox1.Text = ""
     TextBox7.Text = ""

     MsgBox ("ENREGISTREMENT EFFECTUER")

End Sub

pour envoyer mes informations dans le classeurs, on me met une erreur au niveau de ligne = (erreur de compilation, variable non définie)

Bonjour,

DorelD a écrit :

une erreur au niveau de ligne = (erreur de compilation, variable non définie)

quelle ligne ??

Mets un fichier, ce sera plus simple !

j'ai trouvé ça va, j'ai mis dim ligne as integer (je pensais que je l'avait deja ecrit)