Discussion :

[modus57]

Bonjour,

Je souhaiterais renommer, déplacer un ou plusieurs fichiers d'une ListBox dans la deuxième ListBox, puis sélectionner et mettre en surbrillance dans cette dernière les fichiers renommés et déplacés.

Voici le code que j’utilise pour renommer et déplacer les fichiers aucuns soucis, en revanche ça ne fonctionne pas pour sélectionner et mettre en surbrillance tous les fichiers renommés et déplacés dans la deuxième ListBox, seul le dernier fichier est sélectionné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub CommandButton11_Click() 'RENOMMER ET DÉPLACER LE OU LES FICHIERS SÉLECTIONNÉS VERS LA DROITE
    Dim GestionFichier As New Scripting.FileSystemObject
    Dim Extention, SourceG, DestinationD
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim dict As Object
    Dim i As Long, j As Long, x As Long
    ' Créer un dictionnaire
    Set dict = CreateObject("Scripting.Dictionary")
    Dim nouveauNom As String
    'boucle sur les éléments de la listbox Source
    For i = 0 To Source.ListCount - 1
        If Source.Selected(i) = True Then
            ' vérifier si le fichier existe
            If GestionFichier.FileExists(TextBox1 & Source.List(i)) Then
                Confirme = MsgBox("Confirmer renommer et déplacer le document sélectionné vers côté droit !")
                If Confirme = vbYes Then
                    Extention = Mid(Source.List(i), InStrRev(Source.List(i), ".") + 1)
                    SourceG = TextBox1 & Source.List(i)
                    nouveauNom = InputBox("Saisir le nouveau nom sans l'extention")
                    DestinationD = Application.WorksheetFunction.Trim(TextBox2 & nouveauNom & "." & Extention)
                    'renome et déplace le document sélectionné vers côté droit
                    Name (SourceG) As (DestinationD)
                Else
                    MsgBox "Abandon de la procédure"
                End If
            Else
                MsgBox "Le fichier n'existe pas"
                GoTo Line1
            End If
Line1:
        End If
    Next i
 
    Call MajListeFichiers
 
    trouve = False
    ' Parcourir les éléments de la ListBox
    For i = 0 To Dest.ListCount - 1
        If InStr(1, Dest.List(i), nouveauNom, vbTextCompare) > 0 Then
            ' Sélectionner et mettre en surbrillance l'élément trouvé
            Dest.Selected(i) = True
            trouve = True
        Else
            ' Désélectionner les autres éléments
            'Dest.Selected(i) = False
        End If
    Next i
End Sub

J’ai passé beaucoup temps et de recherches sans trouver de solution.

Comment modifier mon code pour sélectionner et mettre en surbrillance tous les fichiers renommés et déplacés dans la deuxième ListBox.

Merci d’avance pour votre aide.

[tototiti2008]

Bonjour,


Est-ce que la seconde ListBox a la propriété Multiselect en fmMultiSelectMulti (1) ?

[modus57]

Bonjour & merci tototiti2008,

Oui la seconde ListBox a la propriété Multiselect en fmMultiSelectMulti (1)

@+

[tototiti2008]

Re,

Ce code fonctionne sur une ListBox en MultiselectMulti, peut-être analyser quand il est censé les sélectionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
Dim i As Long
    For i = 1 To 10
        Me.ListBox1.AddItem i
    Next i
    For i = 1 To 10 Step 2
        Me.ListBox1.Selected(i) = True
    Next i
End Sub

[modus57]

Re,

Sauf erreur de ma part cela me parait difficile à l’initialisation de l’UserForm.

Dans mon code voici les phases principales :
1 – Sélection dans la ListBox1 des fichiers à renommer et à déplacer
2 – Renommage et déplacement des fichiers d’un dossier source vers un dossier destination
3 – Mise à jour de la liste des fichiers du dossier cible dans la ListBox2
4 - Sélection et mise en surbrillance des fichiers renommés et déplacés dans la ListBox2

[Qwazerty]

Salut

Tu aurais un fichier démo pour éviter d'avoir à tout reconstruire pour tester?

++
Qwaz

[modus57]

Bonjour Qwazerty,

Merci pour votre intérêt à cette discussion.

Ci-joint le fichier qui vous permettra de mieux cerner la question.

@+

[Qwazerty]

Salut

Le problème vient du code.

Dans ta dernière boucle, celle qui doit sélectionner les éléments de la liste Dest, tu lui demandes de sélectionner les lignes correspondant à NouveauNom, hors NouveauNom contient un seul nom, le dernier à avoir été traité.

Soit tu les selectionnes au fur et à mesure que tu les ajoutes (je ne sais pas s le fait d'ajouter un élément annule la sélection courante (fait un test).
Soit tu conserves l'ensemble des nouveaux noms, le plus simple c'est de les mettre les uns à la suite des autre dans une variable texte avec ";" entre chaque, puis de faire un split(MaVariable,";") pour récupérer un tableau de noms.

Attention aux Msgbox a répétition, j'imagine que c'est pour faire des tests mais si ça n'est pas le cas, c'est pénible.
Il faudrait pouvoir donner les correspondance de noms dans un tableau, ou pouvoir donner un schéma de renommage, parce que les faire un par un, faut pas qu'il y en ait de trop.

++
Qwaz