Problème affichage userform

Version imprimable

Bonjour à tous,
Tout d'abord, voici mon code :

Code:

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 ?

16/04/2013, 13h49
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+
16/04/2013, 14h06
flo1411

[XL-2007] Problème affichage userform

Certain j'ai vérifié son orthographe au moins 20 fois tellement j'étais à cours d'idées...
16/04/2013, 14h12
Invité

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

Code:

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!
16/04/2013, 14h20
Igloobel

As tu essayer de lancer ton formulaire directement depuis Visual Editor et est-ce que ça fonctionne
16/04/2013, 15h10
flo1411

[XL-2007] Problème affichage userform

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)...
16/04/2013, 15h18
Igloobel

C'est tout simple tu selectionnes ton userform et tu appuis sur le triangle vert ou F5 cela lance le userform si ça le fait pas c'est que ton Userform à une erreur de conception.

Qu'as tu comme version d'Excel si c'est 2007 ou + es-tu bien en .xlsm ?

a+
16/04/2013, 17h43
flo1411

[XL-2007] Problème affichage userform

C'est bon j'ai trouvé. L'erreur faisait en fait référence à une autre fonction : celle où j'initialise le contenu de mes combobox. J'ai résolu le problème.
Merci à vous pour votre aide. :)