Erreur sur récupération de ligne excel en vba

Version imprimable

3 pièce(s) jointe(s)

Bien le bonjour a tous,
Finalement, mon silence n'auras pas duré longtemps, j'ai essayé de me sortir de pas mal de situation jusque la, mais je bloque sévère sur quelque chose de mystérieux.

Pour l'histoire, je suis en train de me coder une gestion de stock qui est pas mal abouti maintenant, (cela va peut être en intéresser ici éventuellement, je vais essayer de répondre a vos questions si jamais), et ces derniers soirs je codais deux macros :

Une qui filtre des 'purchase order' suivant leur numéros.
Et une deuxième qui me permet d'effacer des lignes d'articles.

La première fonctionne a merveille, tout est beau, aucune erreur.
Je code la deuxieme, tout fonctionne a merveille, aucune erreur.

Je re essaye la premiere dans la foulée, et bam, poteau télégraphique en pleine face mes amis. Un beau message d'erreur apparait.

Je vous fais des captures d'écrans pour que vous vous fassiez une idée de mon bousin, suivi du message d'erreur.

Je sélectionne A23034 dans ma combobox pour filtrer le contenu de ma listview, ca fonctionne. Youpi.
Pièce jointe 637258

Je sélectionne ma ligne que je veux effacer, je presse frénétiquement le bouton effacer, ca fonctionne. La ligne est effectivement effacée dans mon tableau...
Pièce jointe 637259

Puis vlan ! Un message d'erreur sauvage apparait.
Pièce jointe 637260

J'ai essayé de tourner le problème dans tout les sens pour savoir pourquoi cette erreur maintenant, j'ai rien trouvé jusque là.
Ensuite, j'ai réécris la ligne manuellement dans mon tableau, histoire de voir si l'erreur persiste.
Et bah non, l'erreur disparait ! Ca filtre de nouveau correctement.
Je suis un vicieux, je re execute ma macro pour effacer la ligne, et re nouveau erreur.

Je seche literalement sur le pourquoi. Avez vous été confronté a ceci aussi ? Avez vous une piste d'exploration a me proposer ?

Je vous met aussi les codes VBA de mes deux macros, cela pourrais nous aider ensemble a comprendre le pourquoi.

La premiere qui permet d'effacer la ligne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub CommandButton8_Click() 'effacer article If MsgBox("Confirmez vous la suppression ?" & vbNewLine & "Fortement déconseillé, inactivez l'article de préférence.", vbYesNo + vbCritical + vbDefaultButton2, "ATTENTION : Action définitive") = vbYes Then Set zone = Feuil3.Columns("A").Find(ListView1.SelectedItem, LookIn:=xlValues, lookat:=xlPart) If Not zone Is Nothing Then Call secu_visi(Feuil3, False, False) 'feuille, proteger Y/N, visibilité Y/N zone.EntireRow.Delete Call secu_visi(Feuil3, True, False) 'feuille, proteger Y/N, visibilité Y/N End If End If ThisWorkbook.Save UserForm_Initialize End Sub
la deuxieme qui me permet de filtrer ma listview selon les infos de ma combobox
Code:

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 Sub filtrer() Dim couleur As Variant, plage As Variant plage = Feuil3.Range("A1:N" & Feuil3.Range("A65000").End(xlUp).Row).Value With ListView1 .ListItems.Clear For i = 2 To UBound(plage, 2) If plage(i, 14) = "Open" Then couleur = RGB(255, 0, 0) Else couleur = RGB(0, 0, 255) End If If CStr(plage(i, 2)) = ComboBox3 Then .ListItems.Add , , plage(i, 1) ligne = .ListItems.Count .ListItems(ligne).ListSubItems.Add , , plage(i, 2) .ListItems(ligne).ForeColor = couleur .ListItems(ligne).ListSubItems.Add , , plage(i, 3) .ListItems(ligne).ListSubItems.Add , , plage(i, 5) .ListItems(ligne).ListSubItems.Add , , plage(i, 6) .ListItems(ligne).ListSubItems.Add , , Format(plage(i, 8), "####.00") '.ListItems(ligne).ForeColor = couleur End If Next i End With End Sub
La macro plante sur le For i = 2. Je récupère les bonnes valeurs pourtant :(

J'ai essayé d'être le plus précis possible dans ma requête, en esperant vous aider a mieux comprendre mon probleme.

Bien a vous !

13/04/2023, 03h58
Steph_de_Glen

Complément d'info

J'ai oublié de mentionner que je suis sur Excel 365. Désolé pour ceci.
13/04/2023, 14h27
deedolith

Hello,

A mon avis, tu expérimente des problème de synchronisation de tes données et des contrôles les affichant.
Quelques pistes:
- Utilise des tableaux structurés, ce sera plus facile à manipuler.
- Décorrèle les données de leurs représentation (combo-box, list-view ect ...).
- Fait toi des fonction qui rafraichissent tes liste.
- Lorsque tu met à jour tes données (suppression / ajout / maj), rafraichit tes listes.
- Tu n'as aucune raison d'appeler UserForm_Initialize manuellement (c'est une faute de conception).
14/04/2023, 06h02
Steph_de_Glen

1 pièce(s) jointe(s)

Je me demande si j'ai bien choisi le titre de mon fil...

Hello Deedolith, merci de t'être penché sur mon probleme.

J'ai supprimer l'appel de l'userform_initialize dans mes sub, maintenant je fais appel a une macro qui initialise la totalité de ma form, listview, etc.., remet en forme, et popule le tout.
Pas de problème de ce coté ci, et tu as raison, ca rends le tout + propre. (pour ceux qui sont intéressés, je peux poster le code).
J'appelle cette fonction a chaque fois que j'ai agi sur le tableau (ajout, suppression, modif).

Que veux tu dire par tableaux structurés ? J'utilise déjà des tableaux dans mes feuilles Excel. Voir image ci dessous a titre d'exemple, est ce ceci dont tu parles ?
Pièce jointe 637304

Que veux tu dire par décorréler les données de leurs représentation ?
14/04/2023, 07h12
Steph_de_Glen
Je me suis aperçu d'une coquille que je me suis mis dans les jambes.

Cette ligne de code :
Code:

1 2 For i = 2 To UBound(plage, 2)
Je l'ai remplacée par :
Code:

1 2 For i = 2 To UBound(plage)
En corrigeant ceci, l'erreur n'existe plus.

J'ai fait des multiples tests dans tout les sens, c'est résolu. Merci pour tes remarques qui m'ont permis de me faire ouvrir les yeux et de rendre plus logique mon code Camarade !
15/04/2023, 09h30
deedolith

Les tableaux structurés sont ceux que tu créée via le menu: Insertion ==> Tableau.
Il y a également des articles pour les manipuler sur dvp.com, je t'invite à les consulter.

Par décorréler les données de leur représentation, j'entend que les contrôle ne sont en charge que de l'affichage, les mises à jour doivent se faire à la source.
En clair, si tu veux supprimer des lignes, ce n'est pas dans les listes qu'il faut le faire, mais à la source, et rafraichir les listes ensuite.
Ainsi, pas de problème de synchronisation.

1 pièce(s) jointe(s)

bon bah fausse joie... :(

Salut Deedolith,

Finalement je dois basculer le fil en non résolu car je viens de tester mon code de test et ca replante.

Donc oui, je te confirmes que j'utilisais les tableaux structurés depuis le début.
Merci pour le vocabulaire, décorréler, je comprends le principe.

Voici ce qui se passe en détail cette fois ci, et tu va comprendre que mon nouveau cas est similaire au probleme initiale.

J'ai une liste de produit, on va dire dix.
J'en supprime 4, un par un, via mon formulaire. Tout va bien. Il m'en reste 6, tout fonctionne.
J'en rajoute 4, un par un, aucun bug. Je reviens donc a dix, tout fonctionne parfaitement.
J'en rajoute un cinquième, pour arriver a 11, et la, plantage.

Du coup, si j'analyse le truc, si mon code était faux, ca devrait planter a chaque coup !
Mais la, non ! On dirait qu'excel garde en mémoire un truc ou je ne sais quoi...

Ca plante exactement au listrows.add. Evidemment, le point d'arrêt me donne rien, voir l'image ci dessous.
Pièce jointe 637443

Si tu veux jeter un œil sur mon code d'ajout :

Code:

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
 
Private Sub CommandButton1_Click() ' ajouter
    Dim derniereligne As Long
    'Application.ScreenUpdating = False
    If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" And TextBox5 <> "" And ComboBox1 <> "" And ComboBox2 <> "" Then
        'Call secu_visi(Feuil2, False, True) 'feuille, proteger Y/N, visibilité Y/N
        Feuil2.ListObjects(1).ListRows.Add
        'ListObjects("table_article").ListRows.Add
        derniereligne = Feuil2.Range("A" & Rows.Count).End(xlUp).Row
        Feuil2.Range("a" & derniereligne) = ComboBox1
        Feuil2.Range("b" & derniereligne) = TextBox1
        Feuil2.Range("c" & derniereligne) = TextBox2
        Feuil2.Range("d" & derniereligne) = TextBox3
        Feuil2.Range("e" & derniereligne) = CCur(TextBox4)
        Feuil2.Range("h" & derniereligne) = CInt(TextBox5)
        Feuil2.Range("j" & derniereligne) = "x"
        Feuil2.Range("k" & derniereligne) = ComboBox2
        Feuil2.Range("l" & derniereligne) = chemin
        Feuil2.Range("m" & derniereligne) = TextBox6
        'Call secu_visi(Feuil2, True, True) 'feuille, proteger Y/N, visibilité Y/N
        'ThisWorkbook.Save
    Else
        MsgBox "Des informations sont manquantes. Les renseignements obligatoires sont marqués d'une étoile.", vbInformation + vbOKOnly, Range("titreapp")
    End If
    'Application.ScreenUpdating = True
    initialiser
End Sub

Mon code de suppression :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton8_Click()  'effacer article sur reference article
    Dim zone As Range
    If MsgBox("Confirmez vous la suppression ?" & vbNewLine & "Fortement déconseillé, inactivez l'article de préférence.", vbYesNo + vbCritical + vbDefaultButton2, "ATTENTION : Action définitive") = vbYes Then
        Call secu_visi(Feuil2, False, False) 'feuille, proteger Y/N, visibilité Y/N
        Set zone = Feuil2.Columns("B").Find(TextBox1, lookat:=xlWhole)
        If Not zone Is Nothing Then zone.EntireRow.Delete
        Call secu_visi(Feuil2, True, False) 'feuille, proteger Y/N, visibilité Y/N
    End If
    ThisWorkbook.Save
    initialiser
End Sub

Mon code d'initialisation :

Code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Sub initialiser()
    Dim plage As Variant, filtre As Object, ligne As Long, liste As ListItem, i As Long, couleur As Variant
    plage = Feuil2.Range("A1:I" & Feuil2.Range("A" & Rows.Count).End(xlUp).Row).Value
    Set filtre = CreateObject("Scripting.Dictionary")
    For ligne = 2 To UBound(plage)
        filtre(plage(ligne, 1)) = ""
    Next ligne
    ComboBox3.Clear
    ComboBox3.List = filtre.keys    'populer le combobox
 
    ComboBox1 = ""
    ComboBox1.RowSource = Feuil6.[tab_fournisseur[nom]].Address(External:=True)
    ComboBox2 = ""
    ComboBox2.RowSource = Feuil13.[tab_glarticle[titregl]].Address(External:=True)
 
    For i = 1 To 6
        Controls("TextBox" & i) = ""
    Next i
 
    CheckBox2 = False
    chemin = ""
    Image1.Picture = Nothing
    TextBox1.enabled = True
    CommandButton1.enabled = True
    CommandButton7.enabled = False
    CommandButton8.enabled = False
 
    With ListView1
        .ListItems.Clear
        With .ColumnHeaders
            .Clear
            .Add , , "fournisseur", 50
            .Add , , "code", 50
            .Add , , "description", 180
            .Add , , "format", 50
            .Add , , "prix", 50
        End With
        .Gridlines = True
        .FullRowSelect = True
        .BorderStyle = ccFixedSingle
        .View = lvwReport
 
        For ligne = 2 To UBound(plage)
            If plage(ligne, 9) = 1 Then
                couleur = RGB(255, 0, 0)
            Else
                couleur = RGB(0, 0, 255)
            End If
            Set liste = .ListItems.Add(, , plage(ligne, 1))
            liste.ForeColor = couleur
            With liste
                .ListSubItems.Add , , plage(ligne, 2)
                For i = 3 To 5
                    .ListSubItems.Add , , plage(ligne, i)
                Next i
            End With
        Next ligne
    End With
End Sub

Depuis que ca plante, j'ai presque laissé tombé ce projet perso, car je ne comprends décidément pas pourquoi et d'où viens le problème
A un moment donné, j'ai même essayé Screenupdating false, alors que ca n'a aucun rapport, mais au point ou j'en suis, autant tester n'importe quoi.
Bref, découragé pour le coup, alors que je suis a deux doigts de le terminer ce bousin.

Note : est ce que quelqu'un peut me dire comment changer le titre de ce fil ? Finalement il est tres mal choisi en fait.

Bien cordialement

18/04/2023, 08h21
Philippe Tulliez

Bonjour,

Citation:

Donc oui, je te confirmes que j'utilisais les tableaux structurés depuis le début.

La lecture de votre code VBA laisse penser le contraire.
En VBA un tableau structuré est un ListObject ce que vous n'utilisez pas.

Je vous conseille la lecture de ce tutoriel Excel: Les tables de données en VBA

Il serait plus intéressant également de créer une procédure générique de lecture et une autre d'écriture d'enregistrement dans une table que vous invoquerez lorsqu'il y aura lieu de supprimer, de modifier, d'ajouter ou de consulter un enregistrement. Cela sera plus simple à gérer et surtout à maintenir.

Un autre tutoriel à lire Excel VBA: Modélisation des échanges entre table de données et userform
18/04/2023, 21h45
deedolith

1 pièce(s) jointe(s)

Tu trouveras ci-joint une demo (fait à l'arrache) avec une formulaire qui présente dans une listbox les données issues d'un tableau structuré (type: Excel.ListObject).

Le formulaire recoit le tableau en paramètre, lie la contrôle listbox à ce dernier.
Via les boutons ajouter et supprimer, le formulaire se contente de mettre à jour le tableau structuré.
Du fait de la mécanique de lien (RowSource) du contrôle ListBox, ce dernier est mis à jour automatiquement, il est donc inutile de s'en préoccuper.Pièce jointe 637481
19/04/2023, 07h04
Steph_de_Glen

Bonjour Philippe et Deedolith,

Au Mon Dieu ! C'est démoniaque ! Je suis en train de suivre le tutoriel pour bien comprendre la solution que tu me propose Philippe, c'est une tuerie.

Je me rends compte a nouveau de la puissance de l'usage de classe (20 ans sont passées depuis mes études, j'ai perdu des bouts...), et je comprends encore plus le terme décoreler. C'est l'exemple typique !

Je vais terminer mes tests dans tout les sens en fonction de mon avancement, je vous tiendrais au courant.

Deedolith, je vais terminer le tutoriel proposé par Philippe, et je me penche sur ton fichier pour voir ce qu'il y a dedans. Toutes idées sont bonnes a prendre ;)

Merci a vous deux encore une fois. (note, je bascule en résolu).