Discussion :

[flo1411]

Bonjour à tous,
Tout d'abord, voici 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
 
Private Sub BT_OK_Click()
 
    ''Affiche une erreur si le lieu de l'intervention n'est pas entré
    If (CB_Lieu.Value = "") Then
        LB_Attention.Visible = True
    Else
        Dim k, DernLigne As Integer
        DernLigne = Range("J" & Rows.Count).End(xlUp).Row
        For k = 6 To DernLigne Step 1
            If Worksheets("Paramètres").Cells(k, 10).Value <> CB_Lieu.Text Then
                k = k + 1
            End If
        Next
        If Worksheets("Paramètres").Cells(k, 10).Value <> CB_Lieu.Text Then
            Form_Ajout_Site.Show
        Else
            ActiveCell.Value = CB_Lieu.Value & " - " & Worksheets("Paramètres").Cells(k, 11).Value & " - " & CB_CI.Value & " - " & TB_Description
            ActiveCell.WrapText = True
        End If
        Form_Eric.Hide
    End If
 
End Sub

Le problème vient au niveau de la ligne "Form_Ajout_Site.Show" où j'ai l'erreur : "Objet requis"...
Je ne comprends pas du tout ce qu'il se passe. Pouvez-vous m'aider s'il vous plait ?

[Igloobel]

Salut
c'est peut-être ridicule mais ton message semble dire que ton Userform n'existe pas.
Es-tu bien sur de l'orthographe du nom de ton Userform ?

a+

[flo1411]

Certain j'ai vérifié son orthographe au moins 20 fois tellement j'étais à cours d'idées...

[Invité]

bonjour,
place le curseur de ta sourie sur l'instruction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form_Ajout_Site.Show

appuis une foie sur la touche [F9]
puis quand le programme s'arrête sur l'instruction passe en pas à pas touche [F8] et dis nous si l'erreur est exactement là ou dans ton UserForm!

[Igloobel]

As tu essayer de lancer ton formulaire directement depuis Visual Editor et est-ce que ça fonctionne

[flo1411]

Bonjour rdurupt,
J'ai suivi tes consignes et j'ai la même erreur qui revient...

Rebonjour Igloobel,
Je ne sais pas comment lancer un fichier depuis Visual Editor (je suis débutant en VBA)...