Microsoft 365 Résolu : ListView avec Checkbox

[Angus HEYERDAHL]

Bonjour à tous,

Je viens vers vous car, sur mon fichier j'ai une userform avec une listview (avec checkbox). la listview se charge normalement mais quand je selectionne une ou plusieurs checkbox et que je veux clicker sur le bouton pour faire les modification désirer, il me met argument ou appel de procédure incorrect.
Pourtant sur un autre fichier, j'ai déjà utilisé cette procédure et tout fonctionne correctement.
Je ne trouve pas le problème.
l'erreur se produit sur la ligne

 t_tab.ListColumns("Sort final").DataBodyRange(Me.List_Archives.ListItems(i)) = "Destruction"

Pourriez-vous m'aider, merci d'avance

ps vous verrez en commentaire le code (qui fonctionne) de l'autre fichier

 

[danielco]

Bonjour,

J'ai dû me servir de l'autre bouton. J'ai une erreur sur la ligne :

t_tab.ListColumns("Sort final").DataBodyRange(Me.List_Archives.ListItems(i)) = "tes"

La valeur de "Me.List_Archives.ListItems(i)" est "boîte 3". Or cette valeur n'existe pas dans le range indiqué.

Daniel

 

[Angus HEYERDAHL]

ok,

mais du coup comment résoudre le problème, et pourquoi sur l'autre fichier tout fonctionne (alors que je n'ai changer que ce qui est spécifique au fichier, pas le code)

 

[danielco]

Je pense que tu ne peux pas indexer un Range par la valeur d'une cellule :

Var = Range("A1:A10").Cells("aaa")

Renvoie la même erreur.

Daniel

 

[danielco]

Dans quelle colonne dois-tu inscrire la valeur "tes" ?
Daniel

 

[Angus HEYERDAHL]

dans la colonne P "Sort final",

mais ce que je ne comprend pas c'est que j'ai repris le code que j'ai déjà utilisé 3 fois sur un autre fichier (tout fonctionne correctement) et là ça déconne

 

[danielco]

Dans ton autre classeur, quelles sont les valeurs possibles de "Me.ListView1.ListItems(i)". Tu peux partager également ton autre classeur.

Daniel

 

[Angus HEYERDAHL]

j'ai fait un copié/coller donc à part les éléments spécifiques rien ne change

 

[Angus HEYERDAHL]

là, quand je fais avec point d'arrêt, l'erreur argument ou appel de procédure incorrect, se met sur la ligne

t_tab.ListColumns("Sort final").DataBodyRange(Me.List_Archives.ListItems(i)) = "tes"

 

[danielco]

Oui, mais si tu n'expliques pas ce que tu veux faire...

 

[Angus HEYERDAHL]

qu'il me mette "Tes" dans la colonne "Sort final" du tableau de la feuille "Inventaire" pour les lignes de la listview dont les case à cocher sont cochées

 

[danielco]

Essaie :

Private Sub CB_Accord_Click()
    Dim i As Integer, Ligne As Long
    For i = 1 To Me.List_Archives.ListItems.Count
      If Me.List_Archives.ListItems(i).Checked Then
        With t_tab.ListColumns("Titre boite")
          Ligne = Application.Match(Me.List_Archives.ListItems(i), .DataBodyRange, 0)
          t_tab.ListColumns("Sort final").DataBodyRange(Ligne) = "tes"
        End With
      End If
    Next i

    Call LoadListView(Me.List_Archives, "Titre boite/Sort final", t_tab)
End Sub

Daniel

 

[Angus HEYERDAHL]

Parfait ça fonctionne super,
Merci Daniel

 

[Angus HEYERDAHL]

Pardon de t'embeter encore, mais je viens de remarquer que lorsque 2 lignes ou plus portaient le même intitulé (par exemple 2, 3 ou plus porte le nom boite 1, le code fonctionne très bien sur la première, mais si on coche toutes ces boites "Boite 1" seule la première disparait, mais les autres restent.

 

[danielco]

Dans quel cas de figure je peux avoir ces doublons ?
Daniel