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
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