Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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.
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 ?
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.
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 ...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.