Problèmes suppression d'item dans listbox + problèmes tri

[Toine45]

Bonjour à tous
Petite compilation de mes petits problèmes :
Je n'arrive pas à enlever un ou des items d'une listbox
j'ai essayé (sans succès) : listbox1.items.remove ("toto")
et bien d'autres formules...rien à faire.

je souhaite ajouter un groupe d'items exemple (qui ne fonctionne pas)
listbox1.additem array ("toto", "titi", "truc")

je souhaite enlever un groupe d'items ; exemple (qui ne fonctionne pas):
listbox1.items.remove array ("toto", "titi", "truc")

je désire aussi Comparer 2 listBox
Si un item est présent à la fois dans Listbox1 et dans Listbox2 : le supprimer de Listbox1

Problèmes de tri dans listbox :
J'ai actuellement un module de tri qui fonctionne très bien, mais qui tient compte de la casse.
je désirerais qu'il n'en tienne pas compte (Je n'ai pas trouvé comment faire pour obtenir
1 - 4 - Août - autre1 - Autre 2 - Données - Février - machin - Mai - titi - Toto

Est-il possible de trier une listbox en tenant compte des dates ?
Exemple pour résultat : 1 - 4 - Février - Mai - Août - autre1 - Autre 2 - Données - machin - titi - Toto

En pièce jointe mon Userform (Les boutons gris sont ceux qui ne fonctionnent pas)
J'ai laissé dans certains, quelques uns de mes essais.
Si quelqu'un a la solution de mes problèmes, ce serait sympa

Merci d'avance

 

[Bebere]

bonjour Toine
pour le tri employe ucase ou lcase dans la comparaison
pour supprimer pas fait le tout

 

[Paf]

Bonjour,

Ci dessous quelques indications et solutions possibles , à adapter :

1) Je n'arrive pas à enlever un ou des items d'une listbox
pour un:

For i =ListBox2.ListCount - 1 To 0 Step -1
    If ListBox2.List(i) = "Global" Then
        ListBox2.RemoveItem (i)
        Exit For
    End If
Next

pour plusieurs

With ListBox2
For i = .ListCount - 1 To 0 Step -1
    If .List(i) = "Global" Or .List(i) = "Toto" Or .List(i) = "Titi" Then .RemoveItem (i)
    End If
Next
End With

2) je souhaite ajouter un groupe d'items

ListBox2.List = Array("Global", "Toto", "Titi")

3) je désire aussi Comparer 2 listBox

deux boucles imbriquées i et j (par exemple) , si ListBox1.List(i) = ListBox2.List(j) alors on supprime

4) J'ai actuellement un module de tri qui fonctionne très bien, mais qui tient compte de la casse.

faire le test en utilisant la fonction UCase() ou LCase() . UCase transforme une chaine en majuscules, LCase, en miniscules. Deux chaines de mêmes caractères mais de casse différentes seront alors identiques.

5) Est-il possible de trier une listbox en tenant compte des dates ?
Exemple pour résultat : 1 - 4 - Février - Mai - Août - autre1 - Autre 2 - Données - machin - titi - Toto

Sûrement, au prix d'une "bidouille" et de précisions sur ce qu'on fait de ce qui n'est pas date .

Bonne suite

Edit bonsoir Bebere

 

[Toine45]

Bonsoir Bebere & Paf, ainsi qu'à tous les autres Exceliens
Merci pour vos réponses Pour l'ajout et suppression d'items ; j'ai adapté et ça fonctionne impeccable
Merci beaucoup, ça m'a épargné des heures de recherches (j'en avais déjà passé pas mal à rechercher, essayer d'adapter sans succès.)

Pour le tri j'essaierai demain, si j'arrive à adapter "Ucase " et "Lcase" dans mon module de tri.

Pour le coup du tri avec les dates, j'avais penser "Grouper" les chiffres par ordre numérique, puis les mois par ordre calendaire, puis les autres noms par ordre alphabétique.
Si quelqu'un à une idée pour ce tri, je suis preneur

Si trop compliqué, je me rabattrai sur le tri ordinaire en ne tenant pas compte de la casse.

Merci pour votre aide
Bonne soirée à tous

 

[Toine45]

Bonjour à tous
pour le tri, j'ai résolu le problème en incorporant :
If UCase(.List(i)) < UCase(.List(j)) Then

'Tri de la liste par ordre alpha
With userform1.listbox1
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
If UCase(.List(i)) < UCase(.List(j)) Then
strTemp = .List(i)
.List(i) = .List(j)
.List(j) = strTemp
End If
Next j
Next i
End With
sinon, encore plus simple : il suffit d'ajouter, en haut de la macro de tri :

Option Compare Text

qui agit sur la globalité du tri.

Reste plus à trouver que le tri avec le regroupement des dates, parmi les autres noms.

Bonne journée

 

[Bebere]

bonjour Toine,Paf,le forum
mis un mot dans feuil1 et dans code

 

[Toine45]

Bonjour
Merci Bebere pour ta proposition de code
C'est une piste :Très bien pour les chiffres et les dates
mais ça ne m'affiche plus les autres noms

Exemple pour résultat désiré : 1 - 4 - Février - Mai - Août - autre1 - Autre 2 - Données - machin - titi - Toto

Je vais essayer de décortiquer le code pour tenter de modifier afin d'obtenir mon résultat souhaité (C'est pas gagné)

Merci et Bonne soirée

 

[Bebere]

Toine
je te laisse une chance de finir,si tu ne trouves pas tu nous reviens

 

[Bebere]

bonjour Toine,le forum
voilà une possibilité

 

[Toine45]

Bonsoir Bebere - Bonsoir à tous

Merci pour le fichier
....mais je n'ai pas compris son utilisation par rapport à mon besoin, d'autant plus qu'il n'y a pas de listbox dedans.

Bonne soirée à tous

 

[Bebere]

Toine
excuses trompé de fichier

 

[Toine45]

Bonjour Bebere et le Forum

Merci pour le fichier
Avec celui-ci, ça va tout de suite mieux...
J'ai testé, ça fonctionne bien mais je retombe dans la situation où les minuscules sont triées à part des Majuscules.
J'ai essayé de modifier pour que ça ne tienne pas compte de la casse, mais sans succès pour l'instant.
à part ça, c'est bien le principe de tri que je recherchais.

Bonne soirée à tous

 

[Bebere]

bonjour Toine,le forum
fait les 3 boutons tri

 

[Toine45]

Bonjour Bebere Et à tous
Merci pour le fichier
ça fonctionne super ! J'aurais jamais été chercher ça comme cela.
C'est pile ce qu'il me fallait
Merci beaucoup
Bonne soirée à tous