Microsoft 365 problème de filtre avec une checkbox

[pelerin65]

Bonjour le forum,

Voila, j'ai un tableau, je voudrais lorsque, je coche la checkbox, elle filtre par rapport à un critère.

J'ai bien réussi à faire ce que je recherchais
Ca filtre bien dans le tableau dans l'onglet journal
Mais le filtre ne se fait pas dans l'userform

Ci-joint le code

WitM ListView5
If CheckBox4.Value Then 'Si coché
Feuil2.Range("A1:I1").AutoFilter Field:=1, _
Criteria1:="MESURE"

Else 'Si décoché
Feuil2.Range("A1:I1").AutoFilter Field:=1
End If
End With
End Sub

Cordialement

 

[pelerin65]

Re,
Ok donc le probleme viendrait de là

.ListItems(Ligne).ListSubItems.Add , , Format(c.Offset(, 4), "000.000")
.ListItems(Ligne).ListSubItems.Add , , Format(c.Offset(, 5), "000.000")

Donc J'ai modifié le code par ca.

.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 4)
.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 5)

avec ce code ca donne ça comme résultat

Il manque le séparateur grrr!!!!

Cordialement

 

[ChTi160]

Re
Tu avances lol
Tu as quoi comme format sur ta feuille ?
Peut être en mettant le résultat du transfert en texte.
Exemple ; Cstr(c.Offset(, 4)) non testé.
Tu n'as pas ce problème pour d'autre chargement de listview?
Bonne continuation
Depuis mon téléphone.
Jean marie

 

[pelerin65]

Re,

j'ai essayé ton format ca ne change rien hélas

et le format est un format personnalisé "000.000"
pour l'onglet Notes Loc Ng et l'onglet "Journal"

ce qui est dommage car c'est le seul truc qui me reste à régler grrrr!!!!!

Cordialement

 

[ChTi160]

Bonjour
Pas d'ordi
Je regarde desque possible !
Bonne journée
Jean marie