listview VBA Userform object required error 424

0
Salut tout le monde,
J'ai un problème avec listview.
Je veux un tableau avec quelques informations dans mes feuilles
lorsque je clique sur un bouton "CommandButton1"
mais j'ai un objet d'erreur 424 requis ici :

Erreur VBA Excel

Quelqu'un sait quel est mon problème ?
Merci par avance
voici mon code :
Code VBA :
Private Sub CommandButton1_Click()
    If Len(Num_SI) = 0 Then
        MsgBox "Vous devez remplir le champ commune avec la liste déroulante"
    ElseIf Len(ComboBox1) = 0 Then
        MsgBox "Vous devez remplir le champ NUM_PE avec la liste déroulante"
    Else
        Sheets("David").Range("I4") = ComboBox1
        Sheets("David").Range("I5") = ComboBox2
        If Sheets("David").Range("I6") = 1 Then
            MsgBox ("Ce site n'existe pas")
        Else
            If (IsError(Sheets("David").Range("I10"))) Then
                    With ListView1
                            With .ColumnHeaders
                            .Clear
                            .Add , , "Nom", 80
                            .Add , , "Ville", 50
                            .Add , , "Age", 50
                        End With
                        With .ListItems
                           .Add , , "Riri"
                        End With
                    .ListSubItems(1).Add , , Sheets("David").Range("I7")
                    .ListSubItems(1).Add , , Sheets("David").Range("I8")
                    .ListSubItems(1).Add , , Round(Sheets("David").Range("I9") * 100, 2)
                    End With
            Else
                MsgBox ("Le site indiqué a " & Sheets("David").Range("I7") & " Emplacements disponibles, " & Sheets("David").Range("I8") & " Nb de baies Max avec " & Round(Sheets("David").Range("I9") * 100, 2) & "% d'occupation 3YP et un taux d'occupation REPO de " & Round(Sheets("David").Range("I10") * 100, 2) & "%")
                Unload Me
            End If
        End If
    End If
End Sub
Posté le 8 juin, 09:59
par benjamin213
Répondre

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :