Bonjour je rencontre actuellement un problème avec mon code VBA, pour résumer la situation je commence a utilisé le VBA je suis novice dans ce domaine, j'aurais besoin donc de vous pour pouvoir m'aider à régler mon petit problème.
Le problème que je rencontre, est que quand un utilisateur ne rentre pas de donnée dans la cellule occurrence je voudrais que celui-ci ignore la donnée.

voici le code en question

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
32
33
34
35
36
37
Private Sub Form_DblClick(Cancel As Integer)
 
        Dim i_jour As Integer
 
        Dim i_mois As Integer
 
        Dim i_annee  As Integer
 
        Dim s_date As String
 
 
            If mois_jour_annee = 1 Then
               libelle_date = DateAdd("yyyy", periode, Date)
            End If
 
            If mois_jour_annee = 2 Then
               libelle_date = DateAdd("m", periode, Date)
            End If
 
            If mois_jour_annee = 3 Then
               libelle_date = DateAdd("d", periode, Date)
            End If
 
            i_mois = DatePart("m", libelle_date)
            i_annee = DatePart("yyyy", libelle_date)
            i_jour = occurrence
 
                If IsNull(occurrence) Then
                  i_jour = 0
                Else
                  i_jour = occurrence
                End If
 
            s_date = CStr(i_jour) & "/" & CStr(i_mois) & "/" & CStr(i_annee)
            libelle_date = CDate(s_date)
 
End Sub