Discussion :

[a.ouguerzam]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a.ouguerzam]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a.ouguerzam]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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