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