Contenu récent par modus57

  1. M

    Microsoft 365 Calculer les valeurs des cellules selon la couleurs de fond en VBA. Donc automatiquement

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

    Microsoft 365 Récupérer Item(s) sélectionné(s) de la ListBox dans une variable Array et filtre automatique tableau structuré

    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,",")
  3. M

    Microsoft 365 Récupérer Item(s) sélectionné(s) de la ListBox dans une variable Array et filtre automatique tableau structuré

    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...
  4. M

    Microsoft 365 Récupérer Item(s) sélectionné(s) de la ListBox dans une variable Array et filtre automatique tableau structuré

    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
  5. M

    Microsoft 365 Récupérer Item(s) sélectionné(s) de la ListBox dans une variable Array et filtre automatique tableau structuré

    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...
  6. M

    Microsoft 365 Récupérer Item(s) sélectionné(s) de la ListBox dans une variable Array et filtre automatique tableau structuré

    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.
  7. M

    Microsoft 365 Récupérer Item(s) sélectionné(s) de la ListBox dans une variable Array et filtre automatique tableau structuré

    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()...
  8. M

    Microsoft 365 MsgBox affichage et fermeture en 1 seconde

    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.
  9. M

    Microsoft 365 MsgBox affichage et fermeture en 1 seconde

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

    Microsoft 365 MsgBox affichage et fermeture en 1 seconde

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

    Microsoft 365 MsgBox affichage et fermeture en 1 seconde

    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 ?
  12. M

    Microsoft 365 LISTBOX REPERTOIRE ET SOUS REPERTOIRE

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

    Microsoft 365 LISTBOX REPERTOIRE ET SOUS REPERTOIRE

    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.
  14. M

    Microsoft 365 LISTBOX REPERTOIRE ET SOUS REPERTOIRE

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

    Microsoft 365 LISTBOX REPERTOIRE ET SOUS REPERTOIRE

    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 ...