Propriété list

Bonjour a tous je suis entrain de rajouter un morceau a mon programme mais il me fait une erreur:

"erreur d'execution '380:

impossible de définir la propriété List. valeur de propriété non valide."

voici le fichier

UP

Bonjour,

70 feuilles, 12 userforms, 6 modules, aucune indication...

Et tu te demandes pourquoi tu n'as pas de réponse ?

Devant tant de légèreté je crois que j'éviterai même de perdre du temps à lire tes questions à l'avenir.

eric

Bonjour Eriiic,

je ne vois pas ou est le problème d'avoir beaucoup de feuille... si tu me le dit je serait avancé dans mon apprentissage

Une explication? et bien tu ouvre le fichier et il va faire une erreur.

Après je ne vois pas pourquoi tu me parle comme ça j'ai fait quoi de mal?

Je suis débutant en vba, oui il doit y avoir des multiples choses que j'ai écrit qui doivent s'écrirent bien plus simplement... mais comme tu marque dans ta signature "en essayant continuellement on fini par réussir..."

Tu ne laisse pas de place aux débutant avec toi on est expert vba ou rien pourquoi ce forum existe il alors?

Avant de courir tu as marché non? c'est pareil!

Bonjour,

ce que je veux dire c'est que tu dois donner tous les renseignements pouvant aiguiller.

Tu dois bien savoir sur quelle procédure de quel module tu travaillais lorsque le problème est apparu par exemple.

Une indication au feeling : le fait que tu ne partes pas en débogage me fait penser que l'erreur doit être dans un Sub UserForm_Initialize().

Met un Stop au début de chaque, que tu exécutes ensuite en pas à pas avec F8 jusqu'à trouver la ligne qui provoque l''éjection du code.

Ici en espionnant les variables tu trouveras peut-être le pourquoi

eric

Il s'agit d'une Listbox quand je le rempli à l'avant dernière ligne: "dest.list(index_row_dest, 10) = dateprochvisitesct"

il se trouve dans l'onglet "détail visite interne" sous-onglet "Liste"

Sub listesac()

    Dim source As Range
    Dim dest As Variant
    Dim index_row As Integer
    Dim index_row_dest As Integer
    Dim numapave As String
    Dim numapave_filtre As String
    Dim numapave_ok As Boolean
    Dim datemois_intervention As String
    Dim numerosct_filtre As String
    Dim numsct_ok As Boolean
    Dim type_intervention As String
    Dim type_intervention_filtre As String
    Dim type_intervention_ok As Boolean
    Dim temps_intervention As Currency
    Dim temps_arret As Currency
    Dim intervenant_filtre As String
    Dim intervenant As String
    Dim intervenant_ok As Boolean
    Dim Commentaire As String
    Dim dateannée_intervention As String
    Dim dateannée_intervention_filtre As String
    Dim dateannée_intervention_ok As Boolean
    Dim proprietaire As String
    Dim localisation As String
    Dim numsct As Integer
    Dim numfab As String
    Dim annéefab As Integer
    Dim datederepreuveregl As Date
    Dim dateprochepreuvregl As Date
    Dim nbdejourepreuve As Integer
    Dim datedervisitesct As Date
    Dim dateprochvisitesct As Date
    Dim nbdejoursct As Integer

    Set source = Sheets("Controle_moule_sct").Range("listesct")
    Set dest = Me.Listemoulesct

    dest.Clear
    dest.ColumnCount = 11
    index_row_dest = 0

    ' on lit les filtres
    numapave_filtre = Me.C_listeapave.Value
    numerosct_filtre = Me.C_listesct.Value

    ' on lit la source
    For index_row = 5 To source.Rows.Count
        proprietaire = source.Cells(index_row, 5)
        localisation = source.Cells(index_row, 7)
        numapave = source.Cells(index_row, 9)
        numsct = source.Cells(index_row, 11)
        numfab = source.Cells(index_row, 21)
        annéefab = source.Cells(index_row, 23)
        datederepreuveregl = Format(source.Cells(index_row, 24))
        dateprochepreuvregl = Format(source.Cells(index_row, 26))
        If Not IsNumeric(source.Cells(index_row, 27)) Then
            nbdejourepreuve = ""
        End If

        If IsNumeric(source.Cells(index_row, 27)) Then
            nbdejourepreuve = source.Cells(index_row, 27)
        End If

        If Not IsDate(source.Cells(index_row, 28)) Then
        End If

        If IsDate(source.Cells(index_row, 28)) Then
            datedervisitesct = source.Cells(index_row, 28)
        End If

         If Not IsDate(source.Cells(index_row, 30)) Then
         dateprochvisitesct = 0
        End If

        If IsDate(source.Cells(index_row, 30)) Then
            dateprochvisitesct = source.Cells(index_row, 30)
        End If

        If Not IsNumeric(source.Cells(index_row, 31)) Then
        End If

        If IsNumeric(source.Cells(index_row, 31)) Then
            nbdejoursct = source.Cells(index_row, 31)
        End If

        ' on test les critères de sélection
        numapave_ok = True
        If numapave_filtre <> "" Then
            If numapave_filtre <> "" And numapave_filtre <> numapave Then
                numapave_ok = False
            End If
        End If

        numsct_ok = True
        If numerosct_filtre <> "" Then
            If numerosct_filtre <> "" And numerosct_filtre <> numsct Then
               numsct_ok = False
            End If
        End If

                ' si  tous les critères sont bons, on ajoute une ligne à la listbox
        If numapave_ok And numsct_ok = True Then
            dest.AddItem
            dest.list(index_row_dest, 0) = proprietaire
            dest.list(index_row_dest, 1) = localisation
            dest.list(index_row_dest, 2) = numapave
            dest.list(index_row_dest, 3) = numsct
            dest.list(index_row_dest, 4) = numfab
            dest.list(index_row_dest, 5) = annéefab
            dest.list(index_row_dest, 6) = datederepreuveregl
            dest.list(index_row_dest, 7) = dateprochepreuvregl
            dest.list(index_row_dest, 8) = nbdejourepreuve
            dest.list(index_row_dest, 9) = datedervisitesct
            dest.list(index_row_dest, 10) = dateprochvisitesct
            dest.list(index_row_dest, 11) = nbdejoursct

            index_row_dest = index_row_dest + 1
        End If

    Next index_row

End Sub

Toujours le même problème après plus d'une semaine de recherche à essayer de bidouille

https://drive.google.com/open?id=1HSVl4hp3JndLdKDyZk_x_dWLZw4mGv0X

bonsoir,

Va falloir que tu te serves de cjoint pour joindre ton fichier parce ton google, nous autres... pour cet usage, il ne nous inspire pas grand chose !

A+

salut j'utilise google car justement je ne peux pas le joindre car trop gros

Rechercher des sujets similaires à "propriete list"