Bonjour,
Dans le cadre d'un travail à réaliser, je me permets de vous solliciter, car avec mon groupe on a du mal à avancer.
Vous trouverez la réponse qui pose problème avec nos pistes pour la réponse 1 :
Private Sub CommandButton1_Click()
Dim i As Integer
'Identifier la ligne où on commence à enregistrer les informations renseignées dans le formulaire
i = Sheets("Base_de_donnée").Range("D1048576").End(xlUp).Row
For i = 5 To 31
Sheets("Base_de_donnée").Range("C5" & i) = UserForm1.TxtNom.Value 'Nom
Sheets("Base_de_donnée").Range("B5" & i) = UserForm1.TxtPrénom.Value 'Prénom
Sheets("Base_de_donnée").Range("E" & i) = UserForm1.TxtAp.Value 'Activité Professionnelle
Sheets("Base_de_donnée").Range("F" & i) = UserForm1.TxtAngl.Value 'Anglais
Sheets("Base_de_donnée").Range("G" & i) = UserForm1.TxtDroit.Value 'Droit
Sheets("Base_de_donnée").Range("H" & i) = UserForm1.TxtEco.Value 'Economie
Next i
End Sub
Dîtes moi ce que vous en pensez, à savoir si je suis oui ou non sur la bonne voie ?
Merci de votre aide !
Dans le cadre d'un travail à réaliser, je me permets de vous solliciter, car avec mon groupe on a du mal à avancer.
Vous trouverez la réponse qui pose problème avec nos pistes pour la réponse 1 :
Private Sub CommandButton1_Click()
Dim i As Integer
'Identifier la ligne où on commence à enregistrer les informations renseignées dans le formulaire
i = Sheets("Base_de_donnée").Range("D1048576").End(xlUp).Row
For i = 5 To 31
Sheets("Base_de_donnée").Range("C5" & i) = UserForm1.TxtNom.Value 'Nom
Sheets("Base_de_donnée").Range("B5" & i) = UserForm1.TxtPrénom.Value 'Prénom
Sheets("Base_de_donnée").Range("E" & i) = UserForm1.TxtAp.Value 'Activité Professionnelle
Sheets("Base_de_donnée").Range("F" & i) = UserForm1.TxtAngl.Value 'Anglais
Sheets("Base_de_donnée").Range("G" & i) = UserForm1.TxtDroit.Value 'Droit
Sheets("Base_de_donnée").Range("H" & i) = UserForm1.TxtEco.Value 'Economie
Next i
End Sub
Dîtes moi ce que vous en pensez, à savoir si je suis oui ou non sur la bonne voie ?
Merci de votre aide !
Dernière édition: