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

B

Bebere

XLDnaute Barbatruc

• 30 Juillet 2016

• #2

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

 

Pièces jointes

• Essai suppression.xls

  117.5 KB · Affichages: 82

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 30 Juillet 2016

• #3

Bonjour,

Ci dessous quelques indications et solutions possibles , à adapter :

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

Code:

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

Code:

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

Code:

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

 

Vote positif 0 Vote négatif

T

Toine45

XLDnaute Junior

• 30 Juillet 2016

• #4

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

 

Vote positif 0 Vote négatif

T

Toine45

XLDnaute Junior

• 31 Juillet 2016

• #5

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 1 Août 2016

• #6

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

 

Pièces jointes

• EssaiSuppressionV1.xls

  117 KB · Affichages: 79

Vote positif 0 Vote négatif

T

Toine45

XLDnaute Junior

• 1 Août 2016

• #7

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 1 Août 2016

• #8

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 4 Août 2016

• #9

bonjour Toine,le forum
voilà une possibilité

 

Pièces jointes

• essaisuppressionlignes V1.xlsm

  18 KB · Affichages: 59

Vote positif 0 Vote négatif

T

Toine45

XLDnaute Junior

• 4 Août 2016

• #10

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 5 Août 2016

• #11

Toine
excuses trompé de fichier

 

Pièces jointes

• EssaiSuppressionV1.xls

  114.5 KB · Affichages: 78

Vote positif 0 Vote négatif

T

Toine45

XLDnaute Junior

• 5 Août 2016

• #12

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 6 Août 2016

• #13

bonjour Toine,le forum
fait les 3 boutons tri

 

Pièces jointes

• EssaiSuppressionTriV1.xls

  115.5 KB · Affichages: 68

Vote positif 0 Vote négatif

T

Toine45

XLDnaute Junior

• 6 Août 2016

• #14

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

 

Vote positif 0 Vote négatif