Private Sub CommandButton1_Click()
Dim CTRL As Control 'Variable pour la collection des controls
Dim i As Integer
Dim Response As Byte
'Si le User tente de change le nom de la ComboBox en Mode Modification
If Me.ComboBoxParNom.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection
'Ici un message demandant d'accepter les changement en les listant
Response = MsgBox("Acceptez vous les changements ? ", vbQuestion + vbOKCancel, T & " Modification de : " & Nom)
'Si Réponse OK on continue
If Response = 1 Then
'ici avec la Feuille on va faire :
Set WS = Worksheets("Base client")
With WS
.Range("A" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxDate ' On écrit dans chaque colonne les valeurs des différents controls
.Range("C" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxnom ' Idem
.Range("D" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxAdresse ' Idem
.Range("E" & Me.ComboBoxParNom.ListIndex + 3) = Val(TextBoxcodepostal) ' Idem
.Range("F" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxville ' Idem
.Range("G" & Me.ComboBoxParNom.ListIndex + 3) = Format(Val(TextBoxNtelephone), "000 000 00 00")
.Range("H" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxnuméroCI
.Range("I" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxmail
.Range("j" & Me.ComboBoxParNom.ListIndex + 3) = CInt(TextBoxNbrAdultes)
.Range("k" & Me.ComboBoxParNom.ListIndex + 3) = CInt(TextBoxNbrEnfants)
.Range("l" & Me.ComboBoxParNom.ListIndex + 3) = CInt(TextBoxNbrAnimaux)
End With 'On evoie un message de confirmation
MsgBox "Opération accomplie", vbInformation, T
Else
MsgBox "Opération annulée", vbInformation, T
End If
' On décharge le formulaire
Unload Me
'on ferme le formulaire
usfnouveauclient.Hide
End Sub