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 :
Nom : Capture d’écran 2021-12-08 072501.jpg
Affichages : 216
Taille : 203,6 Ko
Nom : Capture d’écran 2021-12-14 065300.jpg
Affichages : 178
Taille : 278,3 Ko

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