Bonjour
J'ai crée ce formulaire en VBA et d'un coup il est maintenant fiché, impossible de saisir dans les champs. C'est comme si une autre boite de dialogue était ouverte et empêchait la saisie dans le formulaire. Quelqu'un peut m'aider merci !
Voici mes captures :
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 Private Sub Button4Fermer_Click() Unload FormRegister End Sub Private Sub ButtonAjouter_Click() 'Double click sur le bouton ajouter If ComboBox2.Value = " " Then MsgBox "Veuillez remplir le champ nom et prénom" Else Dim ligne As Integer If MsgBox("Confirmez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbYes Then Worksheets("Feuil2").Select 'n° de la ligne vide de la colonne A ligne = Sheets("Feuil2").Range("A456541").End(xlUp).Row + 1 Cells(ligne, 1) = omboBox_civilite.Value Cells(ligne, 2) = ComboBox_nomprenom.Value Cells(ligne, 3) = Txt_adresse.Value Cells(ligne, 4) = Txt_codepostal.Value Cells(ligne, 5) = Txt_ville.Value Cells(ligne, 6) = Txt_telephone.Value Cells(ligne, 7) = Txt_email.Value Unload FormRegister FormRegister.Show Else End If End If End Sub Private Sub UserForm_Initialize() ComboBox_civilite.AddItem "Madame" ComboBox_civilite.AddItem "Mademoiselle" ComboBox_civilite.AddItem "Monsieur" FormRegister.Height = 500 FormRegister.Width = 500 End Sub
Partager