Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Userform Filtres ne fonctionne pas

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jcf6464
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

jcf6464

XLDnaute Impliqué
Bonjour à vous toutes et tous,

Je désire un éclaircissement sur le pourquoi le userform filtres ne fonctionne pas ,

Détail ; j'ai récupérer un classeur de (Partick toulon) je les mis à mon gout tout fonctionne ah j'ai mis dans le userform avec une listview à la place d'une listBox plus agréable à la vue,
Pour Patrick quand on valide une ligne de la listview normalement la cellule index ce met en jaune les premières jusqu’à 21 cela est aléatoire soit cet sur la date ou une autre cellule,

Notre amis ChTi160 à créer un code pour les filtres sur un autre classeur sur l’autre tout fonctionne,
Post :https://excel-downloads.com/threads/filtre-avec-userform-sur-tableau-structure.20086946/

J'ai voulu le transposer sur le nouveau classeur avec ses modules et là il ne fonctionne plus, dans les modules j'ai changer le nom du tableau et de la feuille,

Bonne soirée bon WE jcf6464
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Bonjour a vous tous,

J'ai modifier le code de jean marie il y a un petit problème quand tu sélectionne une ligne de la listview cela fonctionne l'index se met en jaune mais quand tu change de ligne l'index car tu à cliquer sur la mauvaise ligne l'index précédent reste en jaune,

De plus il n'y à plus le scroling de l'index sur la feuille cela veut dire que sur la listview tu sélectionne un index cela ne le met pas en visuel sur la feuille j’espère que je me suis bien exprimer ,


bonne continuation jcf6464
 
Dernière édition:
Vote positif 0 Vote négatif
Re ,
Pour la première demande .
Il doit y avoir dans la procédure avant de Colorer (dans le Tableau Structuré) la ligne sélectionnée (dans la ListView) une ligne qui efface toutes les couleurs présentent dans le Tableau Structuré.
VB: 
.DataBodyRange.Interior.ColorIndex=xlNone 
'Efface la couleur précédente
Pour la deuxième demande .
Je pense qu'il devrait y avoir un "Goto" quelque part. Lol
Depuis mon téléphone
Jean marie
 
Vote positif 0 Vote négatif
TooFatBoy à dit:
Toutafé, il y a. 😉
Cliquez pour agrandir...
Bonjour a vous tous,
j'ai rajouter la ligne entre /// cela fonctionne ,
Les couleurs sont effacer en fermant par le bouton fermer de userform

VB: 
Combo.Value = ListView_List.ListItems(Lg)
    LigneSel = CLng(Combo.Value)
   ' Set r = Range("Tbl_ListBowling[Index]").Find(CLng(LigneSel)) 'ancienne Ligne
    Set r = Range("Tbl_ListBowling[Index]").Find(what:=CLng(LigneSel), LookIn:=xlValues, lookat:=xlWhole) 'Nouvelle Ligne
'////
    Range("Tbl_ListBowling").ListObject.Range.Interior.Color = xlNone   ' Avec le tableau structuré on efface les Couleurs   'Nouvelle Ligne rajouter jcf
'////
   r.Interior.ColorIndex = 27      ' 42 est le code couleur qui permet de changer la couleur de la cellule sélectionnée

De plus il n'y à plus le scroling de l'index sur la feuille cela veut dire que sur la listview tu sélectionne un index cela ne le met pas en visuel sur la feuille j’espère que je me suis bien exprimer ,
Cliquez pour agrandir...
reste en suspend...



bon après midi au frais ici 34° jcf6464
 
Dernière édition:
Vote positif 0 Vote négatif
jcf6464 à dit:
j'ai rajouter la ligne entre /// cela fonctionne ,
Cliquez pour agrandir...
Il faut surtout le laisser là où il était déjà inscrit dans la macro donnée, entre autre, en #22 (corrigée par #29, bien sûr).
VB: 
Private Sub ListView_List_ItemClick(ByVal Item As MSComctlLib.ListItem)
'
Dim LigneSel As Long, r, Lg

    Application.ScreenUpdating = False

    Lg = ListView_List.SelectedItem.Index

    ' *****************Alimenter les Textbox"*************************
    Me.Txt_NumC = Item                          ' Numéro Ligne
    Me.Txt_Date = Item.ListSubItems(1)          ' Date
    Me.CmbLieux = Item.ListSubItems(2)          ' Lieux
    Me.TextDepDivers = Item.ListSubItems(3)     ' Dépenses diverses
    Me.TextInscription = Item.ListSubItems(4)   ' Inscription
    Me.TextMtParties = Item.ListSubItems(5)     ' MtPartie
    Me.TextBoisson = Item.ListSubItems(6)       ' Boisson
    Me.CmbMode = Item.ListSubItems(7)           ' Mode
    Me.TextObservation = Item.ListSubItems(8)   ' Observation
    Me.TextAutre = Item.ListSubItems(9)         ' Autre
    Me.TextCompet = Item.ListSubItems(10)       ' Compet
    Me.TextPau = Item.ListSubItems(11)          ' Pau
    Me.TextQLIbre = Item.ListSubItems(12)       ' QLibre
    Me.CmbDescripCompet = Item.ListSubItems(13) ' DescripCompet

    Range("Tbl_ListBowling").ListObject.Range.Interior.Color = xlNone   ' Avec le tableau structuré

    Combo.Value = Format(ListView_List.ListItems(Lg), "0")
    LigneSel = CLng(Combo.Value)    ' ListView_List.SelectedItem
    Set r = Range("Tbl_ListBowling[Index]").Find(what:=CLng(LigneSel), LookIn:=xlValues, lookat:=xlWhole)
    r.Interior.ColorIndex = 27      ' 42 est le code couleur qui permet de changer la couleur de la cellule sélectionnée

    Application.ScreenUpdating = True

End Sub



jcf6464 à dit:
Les couleurs sont effacer en fermant par le bouton fermer de userform
Cliquez pour agrandir...
Si tu veux que les couleurs soient supprimées lors de la fermeture du UserFrm, c'est peut-être plutôt dans "UserForm_QueryClose" qu'il faut supprimer lesdites couleurs.
VB: 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Range("Tbl_ListBowling").Interior.ColorIndex = xlNone
End Sub



Et tu dois pouvoir remplacer
VB: 
Private Sub Cdb_Fermer_Click()
'
Dim ws As Worksheet
Dim tbl As ListObject
Dim cell As Range

    ' Spécifiez le nom de votre feuille de calcul
    Set ws = Sheets("ListeBowling") ' Remplacez par le nom de votre feuille

    ' Spécifiez le nom de votre tableau
    Set tbl = ws.ListObjects("Tbl_ListBowling") ' Remplacez par le nom de votre tableau

    ' Effacez la couleur de remplissage de toutes les cellules du tableau
    For Each cell In tbl.DataBodyRange
        cell.Interior.ColorIndex = xlNone
    Next cell

    Range("G1").Select
    Unload Me

End Sub
par
VB: 
Private Sub Cdb_Fermer_Click()
'
    Range("Tbl_ListBowling").Interior.ColorIndex = xlNone

    Range("G1").Select
    Unload Me

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re
Merci TooFatBoy
cela fonctionne aussi

bonne soirée
 
Vote positif 0 Vote négatif
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Saisie par userform ne fonctionne pas
Réponses
10
Affichages
164
jcf6464
  • Résolu(e)
XL 2019 Création d'un second bouton qui ne fonctionne pas
Réponses
2
Affichages
102
Titof06
  • Résolu(e)
XL 2019 Fonction "Find" qui ne fonctionne pas selon le format de cellule
Réponses
12
Affichages
242
Titof06
D
  • Question Question
XL 2019 User Form
Réponses
9
Affichages
314
Debie
D
J
  • Question Question
Microsoft 365 userform avec contrôle image
Réponses
12
Affichages
288
JULLIEN Philippe
J
G
  • Question Question
Microsoft 365 Lenteur chargement ListView
2 3
Réponses
38
Affichages
888
GClaire
G
  • Résolu(e)
XL 2021 Formule ne fonctionne pas avec excel 2021
Réponses
4
Affichages
141
goube
  • Question Question
Autres Affichage d'un Userform
Réponses
6
Affichages
171
Poltoine
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
463
desto
D
  • Résolu(e)
XL 2021 Formule générée par IA ne fonctionne pas.
2
Réponses
28
Affichages
2 K
argyronet
A
T
  • Question Question
XL 2019 Tableau croisé dynamique connecté à des feuilles créée par un userform
Réponses
2
Affichages
473
Cousinhub
A
  • Question Question
XL 2021 Module d’envoi à la Corbeille qui ne fonctionne pas en 64 Bits
2
Réponses
20
Affichages
656
patricktoulon
S
  • Question Question
XL 2019 Formule RECHERCHEV avec des valeurs cherchées négatives qui ne fonctionne pas et renvoi #Réf
Réponses
2
Affichages
291
Phil69970
  • Question Question
Microsoft 365 Souci de copie
Réponses
8
Affichages
217
Electron24
  • Question Question
Microsoft 365 Résolu : ListView avec Checkbox
2
Réponses
27
Affichages
941
Angus HEYERDAHL
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
128
Yogean
Y
M
  • Question Question
XL 2021 Problème d'une formule qui ne fonctionne pas
2
Réponses
21
Affichages
1 K
marco22
M
P
  • Question Question
XL 2021 la macro ne fonctionne pas
2
Réponses
19
Affichages
1 K
TooFatBoy
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
317
tnion
T
D
  • Question Question
Microsoft 365 Application.WorksheetFunction.VLookup ne fonctionne pas au delà de 8500 lignes
Réponses
4
Affichages
673
DimiJuju
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…