vba formulaireRésolu

Question

Bonjour, Voila le probl&#232;me je saisis un nombre de salari&#233; dans une textbox, a chaque fois que je l'archive en cliquant sur une commandbutton le nombre de salari&#233; saisie descent de 1; jusqu'a la tout va bien mais quand je saisie un salari&#233; a la fin de ma saisie je doit affich&#233; un msgbox en disant "saisir un nouveau salari&#233;" et je voudrais que quand je saisie le dernier salari&#233; qu'il y ait un arret du msgbox ! Voila merci de vos r&#233;ponses !

ps: je pense que c'est possible avec les boucles mais je ne vois pas comment faire
do while .....

cs_pitros · Accepted Answer

En faite ce que je voudrais c'est a chaque fois que je saisie un nombre de salari&#233; le compteur descende de un et que quand j'arrive a 0 la boucle s'arrete !

jpleroisse · Answer

Bonjour,

Pourra&#238;t tu montrer ton code, cel&#224; irait mieux pour t'aider et explique un peu mieux, parceque l&#224;?



jpleroisse

cs_pitros · Answer

Private Sub saisie_salari&#233;_Click()
'archivage


    'Nom salari&#233;


    Range("a2").Select
    Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop


    ActiveCell.Value = nom_salari&#233;.Text


    'Chiffre d'affaire
    Range("b2").Select
    Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop


    ActiveCell.Value = ca_r&#233;alis&#233;.Text


    'Nombre d'abscences
    Range("c2").Select
    Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop


    ActiveCell.Value = jours_abscences.Text
'fin archivage


nb_salari&#233; = nb_salari&#233; - 1


MsgBox ("saisir un nouveau salari&#233;")


'remise a vide
nom_salari&#233; = ""
ca_r&#233;alis&#233; = ""
jours_abscences = ""



End Sub

Voila tout mon code mais dedans ya l'archivage et la remise a vide pour la saisie d'un nouveau salari&#233; voila ...

jpleroisse · Answer

bonjour,

Tu as valider ton post, donc je suppose que ta as trouv&#233; ?

Au cas o&#249; .



nb_salari&#233; = nb_salari&#233; - 1

If  nb_salari&#233; .= 0 Then

MsgBox ("saisir un nouveau salari&#233;")

End If



jpleroisse

Vba formulaire

4 réponses

Discussions similaires