XL 2019 Probléme de foncitonnement

[ciarab8442]

Bonjour,

J'ai un problème de fonctionnement dans le userForm.

Lorsque je sélectionne les premières lignes aucun soucis.
Lors que je sélectionne dans le tableau pas de soucis.

Par contre lorsque j'applique le Filtre sur la recherche Lieu et ou Zone (au dessus du tableau). Soucis

Il vient me mettre en jaune la dernière ligne Me.Txt_Qte = Item.ListSubItems(9) 'Qtite_op .. Je n'arrive pas à voir ce que je dois modifier

Private Sub ListView_Articles_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim LigneSel As Long, r, Lg, i
Dim ws As Worksheet
Dim Tbl As ListObject
Dim idx As Long

Lg = ListView_Articles.SelectedItem.Index

'*****************Alimenter les Textbox"*************************
    For i = 2 To 7
        Me.Txt_Zone = Item.ListSubItems(2) 'Zone
        Me.Txt_Marque = Item.ListSubItems(4) 'Marque
        Me.Txt_Type = Item.ListSubItems(5) 'Type
        Me.Txt_NumSerie = Item.ListSubItems(6) 'Numéro de Série
        Me.Txt_Ref = Item.ListSubItems(7) 'Référence
        Me.Txt_Designation = Item.ListSubItems(8) 'Désignation
        Me.Txt_Qte = Item.ListSubItems(9) 'Qtite_op

Merci pour le coup de main

 

[cathodique]

Bonjour,

@ciarab8442 : à l'exception de la variables i qui doit être déclarée ainsi: Dim i as Byte (de 2 à 7).
les autres variables sont inutiles plus qu'elles ne sont pas utilisées dans la procédure.

Bonne journée.

 

[Piment]

Bonjour,

J'ai un problème de fonctionnement dans le userForm.

Lorsque je sélectionne les premières lignes aucun soucis.
Lors que je sélectionne dans le tableau pas de soucis.

Par contre lorsque j'applique le Filtre sur la recherche Lieu et ou Zone (au dessus du tableau). Soucis
Regarde la pièce jointe 1228297

Il vient me mettre en jaune la dernière ligne Me.Txt_Qte = Item.ListSubItems(9) 'Qtite_op .. Je n'arrive pas à voir ce que je dois modifier

Merci pour le coup de main

Bonjour à tous.
ciarab8442, c'est normal dans la mesure où la sub "Private Sub RemplirListView()" la ligne en question n'existe pas.
Rajoutez : "ItemStock.SubItems(9) = ws.Cells(i, 10).Value" à la fin de cette sub, et cela devrait résoudre votre problème.
Cordialement.

 

[cathodique]

Bonjour à tous.
ciarab8442, c'est normal dans la mesure où la sub "Private Sub RemplirListView()" la ligne en question n'existe pas.
Rajoutez : "ItemStock.SubItems(9) = ws.Cells(i, 10).Value" à la fin de cette sub, et cela devrait résoudre votre problème.
Cordialement.

Bonjour Piment,

Bien vu.

@ciarab8442 : Cependant, ces variables ne sont pas utilisées (image)

Bonne journée.

 

[Piment]

Bonjour Piment,

Bien vu.

@ciarab8442 : Cependant, ces variables ne sont pas utilisées (image)
Regarde la pièce jointe 1228299
Bonne journée.

Bonjour cathodique.
Apparemment ciarab8442 a modifé en profondeur le fichier que je lui avais fourni : ce qui est son droit le plus absolu.
C'est aussi une façon d'apprendre.
J'avais également remarqué ce que tu soulignes, mais j'ai décidé de la laisser faire pour qu'elle voit elle-même les erreurs lorsqu'elles vont apparaître.
Elle a décidé de ne pas utiliser le tableau structuré : de mon point de vue elle s'est compliqué la tâche, mais bon tant que ça fonctionne...
Cordialement.

 

[Saboh12617]

Bonjour Piment,

Bien vu.

@ciarab8442 : Cependant, ces variables ne sont pas utilisées (image)
Regarde la pièce jointe 1228299
Bonne journée.

Bonjour,
D'où est tirée cette interface de révision du code ?

 

[ciarab8442]

Bonjour,
D'où est tirée cette interface de révision du code ?

Bonjour, j'ai potassé pour essayer d'apprendre. Je maitrise un peu mieux excel. Mais comme le dit @Piment je teste et je verrais par la suite. Je veux apprendre le code un peu mieux.
=)

 

[ciarab8442]

Bonjour Piment,

Bien vu.

@ciarab8442 : Cependant, ces variables ne sont pas utilisées (image)
Regarde la pièce jointe 1228299
Bonne journée.

Bonjour à tous.
ciarab8442, c'est normal dans la mesure où la sub "Private Sub RemplirListView()" la ligne en question n'existe pas.
Rajoutez : "ItemStock.SubItems(9) = ws.Cells(i, 10).Value" à la fin de cette sub, et cela devrait résoudre votre problème.
Cordialement.

Merci =)