182 résultats trouvés

par Boisgontierjacques
19 juin 2019, 01:27
Forum : Excel - VBA
Sujet : Afficher un partie d'un tableau dans une LISTBOX
Réponses : 4
Vues : 108

Re: Afficher un partie d'un tableau dans une LISTBOX

Bonjour, Option Compare Text Dim nomTableau, TBlBD() Private Sub UserForm_Initialize() nomTableau = "Tableau1" TBlBD = Range(nomTableau).Value Me.ListBox1.List = TBlBD Me.ListBox1.ColumnCount = UBound(TBlBD, 2) '--- ComboBox Set d = CreateObject("scripting.dictionary") d("*") = "" For i = 1 To UBoun...
par Boisgontierjacques
14 juin 2019, 19:10
Forum : Excel - VBA
Sujet : Tri Listbox trop long
Réponses : 3
Vues : 103

Re: Tri Listbox trop long

Bonjour,

Il faut :
-utiliser un vrai tri.
-ne pas trier directement le ListBox

Exemple:

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormTriListBoxMultiCol.xls

Boisgontier
par Boisgontierjacques
14 juin 2019, 17:52
Forum : Excel - VBA
Sujet : Chercher et filtrer par mots clés
Réponses : 2
Vues : 57

Re: Chercher et filtrer par mots clés

Bonjour,

-Sélectionner F2:H5
=prochemult(E2:E5;A2:A7)
-Valider avec maj+ctrl+entrée

http://boisgontierjacques.free.fr/pages_site/Dictionnaire.htm#Proche

Boisgontier
par Boisgontierjacques
11 juin 2019, 21:54
Forum : Excel - VBA
Sujet : Redondance/doublons dans Combobox
Réponses : 9
Vues : 138

Re: Redondance/doublons dans Combobox

Bonsoir, Private Sub UserForm_Initialize() Set f = Sheets("BD") Set d = CreateObject("Scripting.Dictionary") For Each c In f.Range("A2:A" & f.[A65000].End(xlUp).Row) d(c.Value) = "" Next c temp = d.keys Tri temp, LBound(temp), UBound(temp) Me.ComboBox1.List = temp End Sub Private Sub ComboBox1_click...
par Boisgontierjacques
11 juin 2019, 21:39
Forum : Excel - VBA
Sujet : Amélioration de ma liste déroulante avec saisie semi-automatique
Réponses : 10
Vues : 225

Re: Amélioration de ma liste déroulante avec saisie semi-automatique

Bonsoir,, >il ne prend en compte que les premiers caractères du premier mot inscrit dans la base de donnée Il suffit de remplacer tmp = UCase(Me.ComboBox1) & "*" par tmp = "*"& UCase(Me.ComboBox1) & "*" On peut avoir une recherche intuitive multi-mots: http://boisgontierjacques.free.fr/fichiers/Form...
par Boisgontierjacques
8 juin 2019, 19:43
Forum : Excel - VBA
Sujet : Filtre - Exclure une plage de valeurs texte
Réponses : 6
Vues : 104

Re: Filtre - Exclure une plage de valeurs texte

Bonsoir, http://boisgontierjacques.free.fr/pages_site/FiltreAuto.htm#InverseListe Sub FiltreInverseListe() Set f1 = Sheets("feuil2") Set d = CreateObject("scripting.dictionary") ' Liste à ne pas sélectionner d.CompareMode = vbTextCompare For Each c In f1.Range("H2:H" & f1.[H65000].End(xlUp).Row) d(c...
par Boisgontierjacques
8 juin 2019, 13:38
Forum : Excel - VBA
Sujet : Amélioration de cette macro
Réponses : 4
Vues : 48

Re: Amélioration de cette macro

Bonjour,

Une autre façon de faire des cases d'options avec un ListBox (plus facile à gérer).

Boisgontier