1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Sub EcritFeuille()
Dim Ws As Worksheet
Dim DerLig As Long
Set Ws = Sheets("LeNomDeTaFeuille") 'Affecte la feuille cible à la variable Ws
DerLig = Ws.Cells(Ws.Columns(1).Cells.Count, 1).End(xlUp).Row 'Détermine la dernière ligne remplie sur base de la colonne A
[A1].Select
'DerLig+1 indique le numéro de la première ligne vide
Ws.Cells(DerLig + 1, 1) = Text_nom.Text 'Ecrit en colonne A
Ws.Cells(DerLig + 1, 2) = Text_prenom.Text 'Ecrit en colonne B
Ws.Cells(DerLig + 1, 3) = Text_mail.Text 'Ecrit en colonne C
Ws.Cells(DerLig + 1, 4) = Text_tel.Text 'Ecrit en colonne D
Ws.Cells(DerLig + 1, 5) = IIf(RBT_homme.Value = True, "Homme", "Femme") 'Ecrit en colonne E; le Iif fonctionne +/- comme le If d'Excel
Ws.Cells(DerLig + 1, 6) = IIf(CBX_marie.Value = True, "Marié(e)", "Celibataire") 'Ecrit en colonne F
Me.Hide
Text_prenom.Text = ""
Text_nom.Text = ""
Text_mail.Text = ""
Text_tel.Text = ""
Unload Me 'Permet de décharger le userform, la mise à "" est théoriquement inutile du coup
End Sub |