Option Explicit
Private Sub Ajouter_Click()
'RENDRE CHAMP OBLIGATOIRE Verifier que tous les champs ont bien été remplis
Dim i As Integer
If Ajoutclient.Nom = "" Or Ajoutclient.Prenom = "" Then
MsgBox "Merci de remplir tous les champs"
'VERIFIER PROCHAINE CELLULE LIBRE.
Else
i = 2 'la variable i est = a 2, car le tableau commence en 2eme ligne
Do While Cells(i, 1) <> "" 'Dès le clic sur ajouter, recherche cell different de nul dans col 1 cell 1 du tableau qui commence en ligne 2
Cells(i, 1).Offset(1, 0).Select 'se deplacer d'une ligne sur la meme colonne
i = i + 1 'On incrémente la variable i de 1
Loop
ActiveCell.Value = Ajoutclient.Nom.Value
ActiveCell.Offset(0.1).Value = Ajoutclient.Prenom
ActiveCell.Offset(0.2).Value = Ajoutclient.Ville.Value
'Unload (Ajoutclient)
End If
End Sub
Private Sub Annuler_Click()
'Pour que lorsque l'on fait annuler sur le formulaire, il ne fasse pas partir les infos déja saisies
Ajoutclient.Hide
End Sub
Private Sub UserForm_Click()
End Sub
'pour charger les données de Villes quand on appelle le formulaire
Private Sub UserForm_Initialize()
'declaration de la variable
Dim i As Integer
'initialisation de la variable
i = 1
'cells est un peu comme range, i de la variable en 1 cellule donc A1
Do While Worksheets("Villes").Cells(i, 1) <> ""
Ville.AddItem Worksheets("Villes").Cells(i, 1)
'incrémentation de la variable
i = i + 1
Loop
End Sub