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 ?