listview VBA Userform object required error 424

2
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 2022, 09:59
par benjamin213
Répondre
0

Bonjour

Vous avez solutionné à votre problème ?

Posté le 21 juillet 2022, 08:40
0

Bonjour 

Juste pour vous permettre d'avancer

[Code=vb]

Private Sub CommandButton1_Click()

Dim LstVItem As MSComctlLib.ListItem 'ici

'    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 Me.ListView1

                            With .ColumnHeaders

                                 .Clear

                                 .Add , , "Nom", 80

                                 .Add , , "Ville", 50

                                 .Add , , "Age", 50

                            End With

                        Set LstVItem = .ListItems.Add(, , "Riri") 'Ici

                        With LstVItem 'Ici

                               .ListSubItems.Add , , "Lille"

                               .ListSubItems.Add , , "22"

                        End With

                           .Gridlines = True 'Ici

                           .View = lvwReport 'Ici

                    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

Bonne Journée

Jean marie

Posté le 19 mars 2023, 08:52
par Chti160

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 :