Discussion :

[sness]

Bonjour tout le monde,

Je suis en train de faire un formulaire qui permet de modifier les champs d'une base de données. J'an ai déjà réalisé d'autres mais je ne solutionne pas celui-ci.

Mes éléments s'affichent bien dans ma ListBox mais en cliquant dessus, au lieu de remplir les champs déjà complétés, il m'indique "Erreur d'exécution '-2147024809 (80070057)': Impossible de lire la propriété List. Argument non valide.

J'ai regardé un peu partout mais je ne vois pas l'anomalie….

Quelqu'un pourrait-il jeter un œil? Merci d'avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub ListBox1_Click()
Dim onglet As Worksheet
Dim ref_choix As String
Dim derniere_ligne As Long
Dim ligne_ref As Long
 
 
    'identifier la référence
    ref_choix = TextBoxREFERENCE.Value
 
    'identifier onglet
    Set onglet = Worksheets("Données")
 
    'identifier dernière ligne
    derniere_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row
 
    'boucle sur les infos de l'onglet pour trouver la ligne de la référence
    For i = 2 To derniere_ligne
        'comparer la référence de la ligne en cours avec la variable (colonne 42 "AQ")
        If onglet.Cells(i, 42) = ref_choix Then
            ligne_ref = i
        End If
    'fin de boucle
    Next
 
'Selection listbox et affichage des champs déjà complétés
ComboBoxENVOIMED = ListBox1.List(ListBox1.ListIndex, 30) 'MED envoyée (oui/non)
TextBoxDATEENVOIMED = ListBox1.List(ListBox1.ListIndex, 32) 'date envoi relance
ComboBoxMOTIFNONENVOI = ListBox1.List(ListBox1.ListIndex, 31) 'Motif de non envoi
TextBoxSUIVIDELEGATION = ListBox1.List(ListBox1.ListIndex, 33) 'Délégation
TextBoxDATEMEDCIE = ListBox1.List(ListBox1.ListIndex, 32) 'Date MED Compagnie
TextBoxSUIVIDATERESIL = ListBox1.List(ListBox1.ListIndex, 37) 'Date Prévue Résiliation
TextBoxNUMLRAR = ListBox1.List(ListBox1.ListIndex, 34) 'Num LRAR
ComboBoxARRETPROCEDURE = ListBox1.List(ListBox1.ListIndex, 38) 'Arrêt Procédure
ComboBox1 = ListBox1.List(ListBox1.ListIndex, 39) 'Motif Arrêt Procédure
TextBoxREFERENCE = ListBox1.List(ListBox1.ListIndex, 42) 'Référence ligne tableau de relance
 
End Sub

[clementmarcotte]

Bonjour,

Je peux me tromper, mais cela m'inspire qu'il y a un indice qui ne correspond à un indice d'un des contrôles. Quand à savoir si c'est vraiment dans la listbox ?

As tu un système quelconque pour vérifier ce que tu inscrit dans ton textbox a une correspondance exacte dans ton ListBox ? Parce que, avec du texte, la marge d'erreur n'est pas énorme...

[Pierre Fauconnier]

Salut.

Ne pas oublier qu'avec une listbox, on commence à compter les colonnes à partir de 0. Vu ton code If onglet.Cells(i, 42) = ref_choix Then, ça m'étonnerait que aies 43 colonnes => TextBoxREFERENCE = ListBox1.List(ListBox1.ListIndex, 42) signifie que tu vas en colonne 43 de ta listbox...

Questions:

• Est-il raisonnable d'avoir 43 colonnes dans un listbox?
• Sur quelle ligne as-tu l'erreur?
• Comment est chargée ta listbox?

[sness]

Bon à tous et merci pour votre aide.

Effectivement j'avais compté le nombre de colonnes dans mon tableau de données et non les colonnes de ma ListBox

En fait il s'agit d'un tableau de données d'envoi de courriers de relance. Là je viens de le terminer. il est disponible pour enregistrement "simultané" avec plusieurs personnes travaillant en même temps sur le fichier (un fichier formulaire qui en validant ouvre, enregistre et ferme sur un autre fichier "données")

Encore merci pour votre aide et bon weekend

ma prochaine étape est de m'améliorer sur Access pour éviter d'utiliser Excel comme base de données