Problème de valeur sur un userforme.

Version imprimable

J’ai un code VBA sur Excel avec un formulaire (Userform) pour insère les donnes sur une feuille Excel quand j’ai changé les combobox par un calandrie les colonnes ou je veux inséré les dates passe en vide malgré que la date renseigne sur le formulaire
Je pense juste un problème de valeur il faut mettre aa/mm/yyyy

Ci-dessous mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub CommandButton1_Click()
Dim numligneVide As Integer
numligneVide = [Abdel] + 8
ComboBox1.SetFocus
'on active la feuil "Demande"
Sheets("Feuil1").Visible = True
Sheets("IN").Visible = False
Sheets("IN").Activate
'on trouve la dérnier ligne vide du tableau et on enregistre le numéro de la ligne dans la variable numligneVide'numligneVide = ActiveSheet.colums(1).Find("").Row
'On verifie que les champs obligatoires sont correctement remplis'
If ComboBox1.Text = "" Then
MsgBox "Veuillez saisir le Nom de l'agent", vbCritical, "Champ obligatoir"
ComboBox1.SetFocus
'ElseIf ComboBox2.Text = "" Then
'MsgBox "Veuillez saisir la date de début", vbCritical, "Champ obligatoir"
'ComboBox2.SetFocus
'ElseIf ComboBox3.Text = "" Then
'MsgBox "Veuillez saisir la date de Fin", vbCritical, "Champ obligatoir"
'ComboBox3.SetFocus
ElseIf ComboBox4.Text = "" Then
MsgBox "Veuillez saisir le type de Congé ", vbCritical, "Champ obligatoir"
ComboBox4.SetFocus
Else
'on enregistre les données dans notre tableau'
Sheets("IN").Activate
ActiveSheet.Cells(numligneVide, 5) = ComboBox1.Text
'ActiveSheet.Cells(numligneVide, 6) = ComboBox2.Text
'ActiveSheet.Cells(numligneVide, 7) = ComboBox3.Text
ActiveSheet.Cells(numligneVide, 8) = ComboBox4.Text
End If

Cdt,
Ouga

Bonjour,
je ne voies pas de calendrier dans ton code.
ceci dit pas des select et autre active

Code:

1
2
3
4
5
6
With Sheets("IN")
        .Cells(numligneVide, 5) = ComboBox1.Text
        '.Cells(numligneVide, 6) = ComboBox2.Text
        '.Cells(numligneVide, 7) = ComboBox3.Text
        .Cells(numligneVide, 8) = ComboBox4.Text
 End With

J’ai un calendrier qui injecté sur le BoxDateD2 comme date de début et la même chose sur label7 comme date de fin

Voilà le code modifier :

'on enregistre les données dans notre tableau'

Code:

1
2
3
4
5
6
Sheets("IN").Activate
ActiveSheet.Cells(numligneVide, 5) = ComboBox1.Text
ActiveSheet.Cells(numligneVide, 6) = TextBox1.Text
ActiveSheet.Cells(numligneVide, 7) = BoxDateD2.Text
ActiveSheet.Cells(numligneVide, 8) = Label7.Text
ActiveSheet.Cells(numligneVide, 9) = ComboBox4.Text

Voilà j’ai rectifier le code mais j’ai toujours un message de debocage
par contre

Ci-dessous le code rectifier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
If ComboBox1.Text = "" Then
MsgBox "Veuillez saisir le Nom de l'agent", vbCritical, "Champ obligatoir"
ComboBox1.SetFocus
ElseIf TextBox1.Text = "" Then
MsgBox "Veuillez saisir la date de début", vbCritical, "Champ obligatoir"
TextBox1.SetFocus
ElseIf BoxDateD2.Text = "" Then
MsgBox "Veuillez saisir la date de Fin", vbCritical, "Champ obligatoir"
BoxDateD2.SetFocus
ElseIf Label7.Text = "" Then
MsgBox "Veuillez saisir le type de Congé ", vbCritical, "Champ obligatoir"
Label7.SetFocus
ElseIf ComboBox4.Text = "" Then
MsgBox "Veuillez saisir le type de Congé ", vbCritical, "Champ obligatoir"
ComboBox4.SetFocus
Else
'on enregistre les données dans notre tableau'
Sheets("IN").Activate
ActiveSheet.Cells(numligneVide, 5) = ComboBox1.Text
ActiveSheet.Cells(numligneVide, 6) = TextBox1.Text
ActiveSheet.Cells(numligneVide, 7) = BoxDateD2.Text
ComboBox5.Value = Format(BoxDateD2.Value, "dd/mm/yyyy")
ActiveSheet.Cells(numligneVide, 8) = Label7.Text
ComboBox5.Value = Format(Label7.Value, "dd/mm/yyyy")
ActiveSheet.Cells(numligneVide, 9) = ComboBox4.Text
End If

27/11/2014, 14h48
Invité

Code:

ComboBox5.Value = Format(BoxDateD2.Value, "dd/mm/yyyy")

que représent ComboBox5 car pour le reste tu enregistre dans un cellule!

Code:

ActiveSheet.Cells(numligneVide, 10) =Format(BoxDateD2.Value, "yyyy-mm-dd")

voila j'ai rectifier mais j'ai toujours le message d'erreur qui dit : membre de méthode ou de donnés introuvable sur la partie ci dessous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
If ComboBox1.Text = "" Then
MsgBox "Veuillez saisir le Nom de l'agent", vbCritical, "Champ obligatoir"
ComboBox1.SetFocus
ElseIf TextBox1.Text = "" Then
MsgBox "Veuillez saisir la date de début", vbCritical, "Champ obligatoir"
TextBox1.SetFocus
ElseIf BoxDateD2.Value = "" Then
MsgBox "Veuillez saisir la date de Fin", vbCritical, "Champ obligatoir"
BoxDateD2.SetFocus
ElseIf Label7.Value = "" Then
MsgBox "Veuillez saisir le type de Congé ", vbCritical, "Champ obligatoir"
Label7.SetFocus
ElseIf ComboBox4.Text = "" Then
MsgBox "Veuillez saisir le type de Congé ", vbCritical, "Champ obligatoir"
ComboBox4.SetFocus
Else
'on enregistre les données dans notre tableau'
Sheets("IN").Activate
ActiveSheet.Cells(numligneVide, 5) = ComboBox1.Text
ActiveSheet.Cells(numligneVide, 6) = TextBox1.Text
ActiveSheet.Cells(numligneVide, 7) = fomat(BoxDateD2.Value, "dd/mm/yyyy")
BoxDateD2.Value = Format(BoxDateD2.Value, "dd/mm/yyyy")
ActiveSheet.Cells(numligneVide, 8) = Format(Label7.Value, "dd/mm/yyyy")
Label7.Value = Format(Label7.Value, "dd/mm/yyyy")
ActiveSheet.Cells(numligneVide, 9) = ComboBox4.Text
End If

je demande toujours votre aide sur le point j'ai essayer plusieurs méthodes mais sans résultats.

merci de votre prise en charge de votre cote.*

Cdt,
ouga

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If ComboBox1.Text = "" Then MsgBox "Veuillez saisir le Nom de l'agent", vbCritical, "Champ obligatoir": ComboBox1.SetFocus: Exit Sub
If TextBox1.Text = "" Then MsgBox "Veuillez saisir la date de début", vbCritical, "Champ obligatoir": TextBox1.SetFocus: Exit Sub
If BoxDateD2.Value = "" Then MsgBox "Veuillez saisir la date de Fin", vbCritical, "Champ obligatoir": BoxDateD2.SetFocus: Exit Sub
If Label7.Value = "" Then MsgBox "Veuillez saisir le type de Congé ", vbCritical, "Champ obligatoir": Label7.SetFocus: Exit Sub
If ComboBox4.Text = "" Then MsgBox "Veuillez saisir le type de Congé ", vbCritical, "Champ obligatoir": ComboBox4.SetFocus: Exit Sub
 
'on enregistre les données dans notre tableau'
With Sheets("IN")
    .Cells(numligneVide, 5) = ComboBox1.Text
    .Cells(numligneVide, 6) = TextBox1.Text
    .Cells(numligneVide, 7) = fomat(BoxDateD2.Value, "yyyy-mm-dd")
    BoxDateD2.Value = Format(BoxDateD2.Value,"dd/mm/yyyy")
    .Cells(numligneVide, 8) = Format(Label7.Value, "yyyy-mm-dd")
    Label7.Value = Format(Label7.Value,"dd/mm/yyyy")
    .Cells(numligneVide, 9) = ComboBox4.Text
End With

bonjour,

j'ai toujours le message d'erreur au niveau de la ligne BOXDateD2

regarder ci dessous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
If ComboBox1.Text = "" Then MsgBox "Veuillez saisir le Nom de l'agent", vbCritical, "Champ obligatoir": ComboBox1.SetFocus: Exit Sub
If TextBox1.Text = "" Then MsgBox "Veuillez saisir la date de début", vbCritical, "Champ obligatoir": TextBox1.SetFocus: Exit Sub
If BoxDateD2.Value = "" Then MsgBox "Veuillez saisir la date de Fin", vbCritical, "Champ obligatoir": BoxDateD2.SetFocus: Exit Sub
If Label7.Value = "" Then MsgBox "Veuillez saisir le type de Congé ", vbCritical, "Champ obligatoir": Label7.SetFocus: Exit Sub
If ComboBox4.Text = "" Then MsgBox "Veuillez saisir le type de Congé ", vbCritical, "Champ obligatoir": ComboBox4.SetFocus: Exit Sub
 
'on enregistre les données dans notre tableau'
With Sheets("IN")
    .Cells(numligneVide, 5) = ComboBox1.Text
    .Cells(numligneVide, 6) = TextBox1.Text
    .Cells(numligneVide, 7) = fomat(BoxDateD2.Value, "yyyy-mm-dd")
    BoxDateD2.Value = Format(BoxDateD2.Value,"dd/mm/yyyy")
    .Cells(numligneVide, 8) = Format(Label7.Value, "yyyy-mm-dd")
    Label7.Value = Format(Label7.Value,"dd/mm/yyyy")
    .Cells(numligneVide, 9) = ComboBox4.Text
End With

Cdt,
Ouga

merci d'avance

03/12/2014, 17h26
Invité

Bonjour,
place ton ficher xlsm en suppriment les données confodeciel!
04/12/2014, 15h37
a.ouguerzam

1 pièce(s) jointe(s)

bonjour,

ci joint mon fichier pour la gestion des congés.
C’est vous pouvez aussi me rectifier si vous avez des remarque sur mon fichier.

je reste disponible pour plus d'informations.

Cdt,
OUGA

Pièce jointe 163037

bonjour,
je ne me rappelais plus que tu utilisais mon calendrier!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub CommandButton1_Click()
Dim numligneVide As Integer
numligneVide = [Abdel] + 8
ComboBox1.SetFocus
'on active la feuil "Demande"
Sheets("Feuil1").Visible = True
Sheets("IN").Visible = False
Sheets("IN").Activate
'on trouve la dérnier ligne vide du tableau et on enregistre le numéro de la ligne dans la variable numligneVide'numligneVide = ActiveSheet.colums(1).Find("").Row
'On verifie que les champs obligatoires sont correctement remplis'
If TextBox1 = "" Then MsgBox "Veuillez saisir la date de début", vbCritical, "Champ obligatoir": TextBox1.SetFocus: BoxDateD2.SetFocus: Exit Sub
If BoxDateD2 = "" Then MsgBox "Veuillez saisir la date de Fin", vbCritical, "Champ obligatoir": Exit Sub
If Label7 = "" Then MsgBox "Veuillez saisir le type de Congé ", vbCritical, "Champ obligatoir": Label7.SetFocus: Exit Sub
If ComboBox4 = "" Then MsgBox "Veuillez saisir le type de Congé ", vbCritical, "Champ obligatoir": ComboBox4.SetFocus: Exit Sub
'on enregistre les données dans notre tableau'
With Sheets("IN")
.Cells(numligneVide, 5) = ComboBox1
.Cells(numligneVide, 6) = TextBox1
.Cells(numligneVide, 7) = Format(BoxDateD2, "yyyy-mm-dd")
'BoxDateD2.Value = Format(BoxDateD2.Value, "dd/mm/yyyy")
.Cells(numligneVide, 8) = Format(Label7, "yyyy-mm-dd")
'Label7.Value = Format(Label7.Value, "dd/mm/yyyy")
.Cells(numligneVide, 9) = ComboBox4
End With
 
Dim Ol As Object
Set Ol = CreateObject("Outlook.Application")
Dim OlMail As Object
Dim CurrFile As String
Dim ListeDEST As String
Dim ListeCC As String
 
Worksheets("IN").Activate
Sheets("IN").Visible = True
ActiveSheet.Range("E7:H44").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Introduction = ""
    .Item.To = Sheets("IN").Range("S1")
    .Item.CC = Sheets("IN").Range("S2") & (";") & Sheets("IN").Range("S3")
    .Item.Subject = " Congé à validé "
    .Item.Send
End With
Application.AlertBeforeOverwriting = False
ActiveWorkbook.Save
MsgBox "Votre congé en cours de validation." & vbCrLf & " Vous allez recevoir un mail de confirmation."
Sheets("Feuil1").Select
Sheets("Acces").Visible = False
Sheets("IN").Visible = False
Unload Me
End Sub

04/12/2014, 16h27
a.ouguerzam

Effectivement ton calandrie efficace comme model je te remercie bcq pour la conception

Mais juste une petite remarque rdurupt avant quand je termine la remplissage de formulaire et je clic sur valide automatiquement le mail et envoyé et les champs sur le formulaire se vide automatiquement.
Actuellement quand je clic le mail s’envoi sauf que les champs reste remplir.