Userforme1

Bonjour,

je travaille sur un projet de base de donnée VBA

malheureusement à la phase finalisation visualiser F5

j'ai toujours le code erreur 9

et je n'arrive pas à trouver mon erreur.

pourriez-vous regarder sur les codes du userforme1

j'aimerais également que le fichier me créé un numéro client automatiquement lorsque je clic sur le bouton nouveau

qq'un sait-il comment faire?

merci pour votre aide,

oups il y a un mot de passe sur le fichier : pomme569

Bonjour

voila des correction

A+

Maurice

Dim Ws As Worksheet

Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Long
Set Ws = Sheets(Feuil1.Name) 'Correspond au nom de votre onglet dans le fichier Excel
   With ComboBox1
      For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
        .AddItem Ws.Range("A" & J)
      Next J
   End With
 ComboBox2.List() = Array("", "M.", "Mme")
End Sub

Private Sub CommandButton1_Click()
 Dim L As Long
    If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
     L = Ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
         Range("A" & L).Value = Application.Max(Columns(1)) + 1
         Range("B" & L).Value = ComboBox2
         Range("C" & L).Value = TextBox1
         Range("D" & L).Value = TextBox2
         Range("E" & L).Value = TextBox3
         Range("F" & L).Value = TextBox4
         Range("G" & L).Value = TextBox5
         Range("H" & L).Value = TextBox6
         Range("I" & L).Value = TextBox7
    End If
End Sub

je vous remercie

il me reste néanmoins

la ligne ci-dessous qui ne fonctionne pas

je ne sais pas insérer un nouveau contact

'Pour le bouton Nouveau contact

Private Sub CommandButton1_Click()

Dim L As Integer

If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then

L = Sheets("Clients").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide

Range("A" & L).Value = ComboBox1

Range("B" & L).Value = ComboBox2

Range("C" & L).Value = TextBox1

Range("D" & L).Value = TextBox2

Range("E" & L).Value = TextBox3

Range("F" & L).Value = TextBox4

Range("G" & L).Value = TextBox5

Range("H" & L).Value = TextBox6

Range("I" & L).Value = TextBox7

End If

End Sub

bonjour

il faut mettre des lunettes

A+

Maurice

Bonjour le forum

Ne faudrait-il pas ajouter pour les combo et les textbox

.Value

Bye