listview VBA Userform object required error 424

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

signaler

Répondre

Ajouter un commentaire

Bonjour

Vous avez solutionné à votre problème ?

Posté le 21 juillet 2022, 08:40

signaler

Ajouter un commentaire

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 Sub

Bonne Journée

Jean marie

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

signaler

Ajouter un commentaire

listview VBA Userform object required error 424

Questions similaires

Erreur

Signaler un problème