Bonjour à tous,

J'ai créé plusieurs formulaires sous Excel grâce à Visual Basic.
Jusque là, je n'ai jamais rencontré de problème dans la mesure où je reprenais mon template initiale dont je suis sûre du bon fonctionnement.

Cependant, aujourd'hui cela ne fonctionne pas. Mes projets précédent fonctionnent toujours correctement mais impossible de faire obéir celui-ci

Le code refuse de compiler car il m'indique une "erreur de compilation : variable non définie".
Ce que je ne comprends pas c'est que c'est la ligne "Private Sub CommandButton1_Click()" qui est surlignée en jaune par le débogage alors que je l'ai utilisé à l'identique sur mes autres projets.

Merci de noter que je suis débutante en VBA, je ne m'en sers que depuis 10 jours. Il n'est pas impossible que mes autres projets aient fonctionné par magie !

Si l'un d'entre vous peut éclairer ma lanterne, ça serait super.
Je vous mets le code entier plus bas.

Merci d'avance et bonne soirée !
Waldy


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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Option Explicit
 
Dim Ws As Worksheet
 
'Pour le formulaire
 
Private Sub UserForm_Initialize()
 
'Pour la liste déroulante prénom
 
ComboBox1.List() = Array("Alexandre", "Sophie", "Yves")
End Sub
 
'Pour le bouton Valider
 
Private Sub CommandButton1_Click()
Dim L As Integer
 
 If MsgBox("Confirmez-vous l'insertion de cette nouvelle entrée ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
     L = Sheets("Saisie").Range("a65536").End(xlUp).Row + 1  'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
 
 
    Range("A" & L).Value = ComboBox1
 
    If OptionButton1.Value = True Then
    Range("B" & L).Value = Fixe
    End If
    If OptionButton2.Value = True Then
    Range("B" & L).Value = Portable
    End If
    If OptionButton3.Value = True Then
    Range("B" & L).Value = Tablette
    End If
 
    If OptionButton4.Value = True Then
    Range("C" & L).Value = Windows_7
    End If
    If OptionButton5.Value = True Then
    Range("C" & L).Value = Windows_10
    End If
    If OptionButton6.Value = True Then
    Range("C" & L).Value = Je_ne_sais_pas
    End If
 
    If OptionButton6.Value = True Then
    Range("D" & L).Value = Oui
    End If
    If OptionButton7.Value = True Then
    Range("D" & L).Value = Non
    End If
 
     Range("E" & L).Value = TextBox1
     Range("F" & L).Value = TextBox2
     Range("G" & L).Value = Now
 
 End If
 
     ComboBox1 = ""
     TextBox1 = ""
     TextBox2 = ""
     OptionButton1 = ""
     OptionButton2 = ""
     OptionButton3 = ""
     OptionButton4 = ""
     OptionButton5 = ""
     OptionButton6 = ""
     OptionButton7 = ""
     OptionButton8 = ""
 
End Sub
 
'Pour le bouton Quitter
 
Private Sub CommandButton2_Click()
 
   Unload Me
 
End Sub