Re : Alimenter une feuille via Userform en fonction des choix dans Checkbox
Bonjour Paritec,bonjour a tous,
Merci pour ta reponse.Desole je me suis effectivement mal exprime sur ce coup.Je veux recopier les infos saisis dans le userform . Mon souci est que je ne saisis qu une fois le numero de semaine, le mois et le nom de la personne mais je peux avoir a recopier plusieurs fois les infos concernant les rubriques voiture, camion et moto et pour une meme personne.
J ai pour le moment bidouille le code suivant (j ai un peu honte de mon bricolage
):
If QTECAM.Value <> "" Then
Sheets("Recap").Range("d65536").End(xlUp).Offset(1, 0).Value = "Camion"
Sheets("Recap").Range("e65536").End(xlUp).Offset(1, 0).Value = HRCAM.Value
Sheets("Recap").Range("f65536").End(xlUp).Offset(1, 0).Value = QTECAM.Value
If QTEVOIT.Value <> "" Then
Sheets("Recap").Range("d65536").End(xlUp).Offset(1, 0).Value = "Voiture"
Sheets("Recap").Range("e65536").End(xlUp).Offset(1, 0).Value = QTEVOIT.Value
Sheets("Recap").Range("f65536").End(xlUp).Offset(1, 0).Value = HRVOIT.Value
If QTEMOT.Value <> "" Then
Sheets("Recap").Range("d65536").End(xlUp).Offset(1, 0).Value = "Moto"
Sheets("Recap").Range("e65536").End(xlUp).Offset(1, 0).Value = QTEMOT.Value
Sheets("Recap").Range("f65536").End(xlUp).Offset(1, 0).Value = HRMOT.Value
Neanmoins mes questions sont les suivantes:
-Comment puis je copier vers le bas les lignes contenant le numero de semaine, le mois et le nom de la personne dans le cas de figure ou j ai plusieurs lignes concernant les vehicules ?
-Et il possible de faire apparaitre un message si aucun nom de personne n a ete choisis lors de la saisie ? Faut il grouper les "optionbutton" par exemple avec une "frame" et creer un code a partir de la ?
Cet userform est un exemple mais celui sur lequel je bosse dans le cadre de mon boulot comporte 38 categories et 13 personnes.Y a t'il un moyen (probablement) de simplifier le code ci dessus ?
Ci-joint le fichier au cas ou
Obiwan