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

 

[Jacky67]

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

Cordialement

Bonjour,
Dans le code présenté il n'y aucun remplissage de ListView, juste un filtre sur une feuille.
S'il faut absolument une ListView plus compliqué qu'une listebox
Une piste

Utiliser le contrôle ListView en VBA Excel

Utiliser le contrôle ListView en VBA Excel

silkyroad.developpez.com

 

[pelerin65]

bonjour

ci-joint le fichier avec listview

 

[ChTi160]

Bonjour le Fil
Une approche perfectible
Bonne Journée
Jean marie

 

[pelerin65]

Bonjour le Fil
Une approche perfectible
Bonne Journée
Jean marie

Bonjour Jean marie

C'est parfait comme d'hab.

Et pour avoir les couleurs dans cette listview comme les couleurs du tableau de l onglet journal

J'ai essaye comme mon autre listview mais nada

 

[ChTi160]

re
pas évident les couleurs du texte des cellules sont issues de Formats Conditionnels
Jean marie

 

[pelerin65]

Re,

J'ai remarqué un soucis dans le format des nombres pour la colonne "Du Pk" et "Au Pk"

A l'ouverture de l'userform.

ça inscrit 123000,234

et lorsque je coche "mesure"

ça se transforme en 123234

Merci d'avance

 

[pelerin65]

Bonjour,

Personne aurait une idée sur ce problème d'affichage des nombres dans les colonnes "Du Pk" et "Au Pk"

Cordialement

 

[ChTi160]

Re
Je pense qu'il faut formater les données des deux colonnes lors de la boucle de remplissage de la listview. Je n'ai pas le temps maintenant(petits enfants lol)
Je regarde ce soir , si pas de réponse .
Bonne journée
Depuis mon téléphone
Jean marie

 

[ChTi160]

Re
Voilà ce que j'ai chez moi !
Jean marie

 

[pelerin65]

Re

j'ai pareil mais quand je l'adapte à mon fichier définitif
J'ai ce problème avec les colonnes nombres

je joint mes deux fichier
Ouvrir le premier fichier "préparation"
et avec le premier créer le second

Preparation-Tournée-24.xlsb

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

Loc-Ng-24.xlsb

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

cordialement

 

[pelerin65]

Re le forum

Personne me peut me dire le pourquoi comment de mon problème d'affichage des nombres dans l'userform journal

Viendrait il du format personnalisé afin de ne pas taper de point ou de virgule,
ou c'est du a la copie dans la feuille journal afin de générer l'userform journal

Cordialement

 

[ChTi160]

Bonsoir le Fil
J'ai regardé mais je n'arrive pas à reproduire .
Bonne fin de soirée
Jean marie

 

[pelerin65]

Bonjour ChTi160,

j'espère que ton week-end sera bon, moi je suis au taf sniff

Regarde le lien en dessous, c'est une vidéo du problème

https://www.cjoint.com/c/NFpgvAx2K74

Cordialement

 

[ChTi160]

re
pas évident avec tout ces chemins ! Lol
je pense que cela vient du formatage que tu fais par exemple dans ton Userform "JOURNAL"

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

et au format de test Données dans la Feuille Source
Bonne journée
jean marie