Résultats de la recherche

Bonjour Staple1600, Votre fonction est intéressante. Petite remarque : si on colorie A1 D3 ne change pas ?

Est-ce que If temp <> "" Then temp = temp & """, """ & Me.ListBox1.List(i) est bien une chaine de caractère ? Faut-il écrire Tabl = Split(Temp,", ") au lieu de Tabl = Split(Temp,",")

Bonjour Hasco, C'est désespérant j'ai fait plein de tests avec différentes variantes : For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) Then If temp <> "" Then temp = temp & """, """ & Me.ListBox1.List(i) Else temp = Me.ListBox1.List(i) 'If...

Bonjour Hasco, Encore une fois merci pour votre réponse. Si je remplace Tabl = Array(temp) parTabl = Split(Temp,",") Cela envoi un message : Erreur d’exécution 13 Incompatibilité de type

Bonjour, Je reviens sur ma demande initiale, et je modifie la question. Dans un UserForm je récupère dans une variable Array les Items sélectionnés dans la ListBox contenant les extensions de fichiers les plus courants, ensuite je souhaiterai avec cette variable faire un filtre automatique sur...

Bonjour Hasco 👍👏 Bravo et merci. Je viens de tester ça fonction hyper bien, votre solution et bien plus simple que la mienne. Je vous suis reconnaissant pour votre réactivité et votre contribution. Exellente après midi et bonne soirée.

Bonjour, Dans un UserForm je récupère les Items sélectionnés dans une variable Array, ensuite je souhaiterai avec cette variable faire un filtre automatique sur un tableau structuré. Avec un Array en dur ça fonctionne : Range("Tableau1").AutoFilter Field:=1 'supprime le filtre Dim Tabl()...

Bonjour patricktoulon 👍 Je n'étais pas là depuis le 31, je viens à nouveau de tester et cela fonctionne super bien. Bravo et merci beaucoup pour cette excellente solution.

Re & merci, Vous avez toujours une solution, je viens de la testée mais j'ai un petit souci :

Bonjour patricktoulon, :) Merci pour votre réponse et c'est bien dommage. Excellente journée.

Bonjour, L'idée d'un message temporaire est intéressante j'essaye de l'utiliser de cette manière mais le message est permanent : CreateObject("Wscript.shell").Popup "Le Message", 1, "Le Titre", 0 Faut-il activer une référence ?

C'est bon j'ai trouvé pour compter le nombre de fichiers dans le TextBox4 : Me.TextBox4 = Me.ListBox3.ListCount

Bonjour Patrick TOULON, Pour faire cour le fichier de Chti60 post#2 me convient. Chti60, je me suis permis d'adapté un petit peu votre fichier mais je n'arrive pas à coder la liste des fichiers dans la Listbox3 et le nombre de fichiers dans le TextBox4.

Bonjour ChTi60, :) Merci de réponde de nouveau à cette discussion. Ci-joint mon fichier, @+

Bonsoir, Je déterre cette discussion car je comptai me servir du code de Patrick TOULON, mais j'ai un petit soucis avec cette ligne: If .SelectedItems.Count > 0 Then Choixdossier = .SelectedItems(1): Dir_Commun Choixdossier, liste1 Ça plante sur "liste1" et cela affiche le message suivant ...

Je me suis absenté cet a-m, je viens de consulter vos derniers posts et c'est toujours aussi pointu. Merci pour votre réactivité et disponibilité. Cette abondance de code me permet d'approfondir mes connaissances ainsi qu'à ceux qui débute et qui non pas votre expertise.

Une question à patricktoulon Comment formaté la 3ème colonne du ComboBox "000" Merci @+

Bonjour patricktoulon , Voici le fichier.

Bonjour Laurent, Merci de vous intéresser à cette discussion. Voici une copie d'écran de l'UserForm :

J'ai trouvé une discussion sur ce forum concernant ce sujet. Le code d'Hervé XLDnaute Barbatruc fonctionne bien sauf que les données dans le ComboBox sont juxtaposées et non pas alignées. Voici mon code légèrement modifié : Private Sub UserForm_Initialize() Dim Coll As New Collection Dim Cellule...