Incidence majuscule-minuscule sur filtrage Listview par Combobox

[Kim75]

Bonsoir le forum,

J’ai un petit souci avec le filtrage d’une Listview avec Combobox, souci par rapport à la différence majuscule/minuscule.

J’ai repris en exemple le fichier de notre ami Gaël avec lequel se pose déjà ce problème, et j’ai alors essayé d’intégrer le code notre ami Jacques BOISGONTIER, que je salue tous deux au passage, mais sans résultat.

Je me suis alors demandé si quelqu’un avait une idée sur la façon d’obtenir un filtrage de Listview avec Combobox de sorte que le Combobox affiche ses items triés où la différence majuscule/minuscule n’aurait aucune incidence.

Cordialement, Kim.

 

[mapomme]

Re : Incidence majuscule-minuscule sur filtrage Listview par Combobox

Bonjour Kim75,

En tête de chacun des modules de code, saisissez l'option :

Option Compare Text

 

[Kim75]

Re : Incidence majuscule-minuscule sur filtrage Listview par Combobox

Bonjour mapomme,

Merci mais j'avais essayé cette option là, et ça ne marche pas.

Cordialement, Kim.

 

[Papou-net]

Re : Incidence majuscule-minuscule sur filtrage Listview par Combobox

Bonjour Kim75, mapomme, le Forum,

@ Kim,

Il est inutile de supprimer les noms dans la liste. Il suffit d'effacer cette liste et d'y ajouter le nom sélectionné.

Ex :

Private Sub Cbx1_Click()
Dim x As Long
nom = Cbx1.Value
With ListView1
  .ListItems.Clear
  .ListItems.Add , , nom
End With
Combo_Cascade
End Sub

Je pense que cela répond à ta question, par contre une erreur se produit dans la procédure "Combo_Cascade".

Comme je ne connais pas la finalité de ton programme et qu'il est fastidieux d'étudier ton code sans autre information, j'arrête là mes recherches.

Espérant t'avoir avancé dans les tiennes.

Cordialement.

 

[Kim75]

Re : Incidence majuscule-minuscule sur filtrage Listview par Combobox

Bonjour Papou-net

Merci pour ta remarque, que j’ai essayée sur mon classeur, et qui ne marche pas
Dans le premier USF, les noms qui commencent pas une minuscule se placent en dernier dans la ComboBox
Dans le second USF, les noms qui ne sont pas totalement en majuscule ne s’affichent pas dans la ListView

Cordialement, Kim.

 

[Papou-net]

Re : Incidence majuscule-minuscule sur filtrage Listview par Combobox

RE :

OK, je n'avais pas bien compris la question. Le mieux, à mon humble avis, serait de transformer les noms en majuscule lors de l'ouverture du formulaire.

Exemple pour Le premier formulaire :

Private Sub UserForm_Initialize()
Dim i As Long
With ListView1
  With .ColumnHeaders
    .Clear
    .Add , , "Nom", 100
    .Add , , "Code", 70
    .Add , , "Date Adhésion", 80
    .Add , , "Spécialité", 110
    .Add , , "Adresse", 200
    .Add , , "Ville", 122
  End With
  For i = 2 To Sheets("Data").Range("A65536").End(xlUp).Row
    .ListItems.Add , , UCase(Sheets("Data").Cells(i, 1))
    .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 2)
    .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 3)
    .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 4)
    .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 5)
    .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 6)
    .ListItems(.ListItems.Count).ListSubItems.Add , , i
  Next i
End With
ListView1.LabelEdit = 1
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.AllowColumnReorder = True
ListView1.FullRowSelect = True
ListView1.CheckBoxes = False
ListView1.ListItems(1).Selected = False
Set ListView1.SelectedItem = Nothing
Alim_Combo
End Sub

Idem pour le second.

Espérant avoir répondu.

Cordialement.

 

[Kim75]

Re : Incidence majuscule-minuscule sur filtrage Listview par Combobox

Papou-net

Merci bien, mais la ListView n'affiche plus pas les items
C'est ce qui se passe justement dans le second formulaire

Bien à toi, Kim.

 

[Kim75]

Re : Incidence majuscule-minuscule sur filtrage Listview par Combobox

Papou-net

Juste une précision, il y a là 2 problèmes si j'ose dire :

-1°. l'affichage du ComboBox trié indépendamment de la différence majuscule/minuscule
-2°. et bien évidemment, l'affichage des items de la ListView qui doit fonctionner de son côté

Cordialement, Kim.

 

[mapomme]

Re : Incidence majuscule-minuscule sur filtrage Listview par Combobox

Bonjour Kim75

Et avec le fichier joint ? Y a t il un userform qui fonctionne ?

 

[Papou-net]

Re : Incidence majuscule-minuscule sur filtrage Listview par Combobox

RE :

Pour le premier point, et après mûre réflexion, je pense que le plus simple est de recopier la ListView1 dans Cbx1.

Par ex :

Private Sub Alim_Combo()
Cbx1.Clear
For k = 1 To ListView1.ListItems.Count
  Cbx1.AddItem ListView1.ListItems(k)
Next
End Sub

Pour la deuxième question, je n'ai toujours pas saisi le sens.

Cordialement.

Edit :

Bonjour Bebere, bon dimanche.

 

[Bebere]

Re : Incidence majuscule-minuscule sur filtrage Listview par Combobox

bonjour Kim,Papou-net,mapomme
pour la colonne A

Sub EcritureStandardisée()
    Dim Cell As Range, Nom As String, Prenom As String
    
    With Sheets("Data")
        For Each Cell In .Range(.Cells(2, 1), .Cells(.Cells(65536, 1).End(xlUp).Row, 1))
            Nom = Application.Proper(Mid(Cell, 1, InStr(Cell, " ") - 1))
              Prenom = Application.Proper(Mid(Cell, InStr(Cell, " ") + 1))
            Cell.Value = Nom & " " & Prenom
        Next
    End With
    
End Sub

à bientôt

 

[Kim75]

Re : Incidence majuscule-minuscule sur filtrage Listview par Combobox

Hello mapomme, Papou-net, Bebere,

Désolé mapomme, j’avais essayé « Option Compare Text » en tête du module standard

Maintenant que je te vois l’avoir mise en tête de l’USF et que ça marche, eh ben bravo et Merci

Merci aussi à vous Papou-net et Bebere pour vos idées que je garde sous le coude pour d’autres occasions

Cordialement, Kim.