Microsoft 365 Résolu : ListView avec Checkbox

D

danielco

XLDnaute Accro

• 30 Mai 2024

• #2

Bonjour,

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

VB:

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

 

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 30 Mai 2024

• #3

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)

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 30 Mai 2024

• #4

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

VB:

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

Renvoie la même erreur.

Daniel

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 30 Mai 2024

• #5

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

 

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 30 Mai 2024

• #6

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 30 Mai 2024

• #7

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

Daniel

 

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 30 Mai 2024

• #8

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

 

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 30 Mai 2024

• #9

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

VB:

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 30 Mai 2024

• #10

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

 

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 30 Mai 2024

• #11

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 30 Mai 2024

• #12

Essaie :

VB:

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

 

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 30 Mai 2024

• #13

Parfait ça fonctionne super,
Merci Daniel

 

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 30 Mai 2024

• #14

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.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 30 Mai 2024

• #15

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

 

Vote positif 0 Vote négatif