Discussion :

[modus57]

Bonjour

Après de multiples recherches, je ne trouve pas la solution, voilà le problème.

Dans un formulaire qui contient 2 Listbox, si c'est des Listbox à sélection simple (donc, sans sélection multiple) un simple MaListe=Null suffit pour désélectionner l'élément sélectionné dans la Listbox précédemment utilisée.

Par contre si les 2 Listbox sont à sélection multiple, lorsque je passe d'une Listbox à l'autre, l'élément ou les éléments sélectionnés dans la Listbox précédemment utilisée restent sélectionnés en surbrillance dans la liste.

Comment désélectionner l'élément ou les éléments sélectionnés ou supprimer la surbrillance dans la Listbox précédemment utilisée lorsque j'en sélectionne un ou plusieurs dans l'autre Listbox .

Merci d'avance pour aide

[joe.levrai]

Bonjour,

dans le cadre d'un listbox à multiselection, il faut parcourir la collection des éléments et les déselectionner

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
    With Me.ListBox1
        For i = 1 To .ListCount
           .Selected(i - 1) = False
        Next i
    End With
End Sub

[patricktoulon]

salut joe
il y a beaucoup plus simple
réinitialiser la listbox par la listbox

Code :

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

1
2
3
Private Sub CommandButton1_Click()
ListBox1.List = ListBox1.List
End Sub

voila

[joe.levrai]

Yes tu as raison

En fait, à mes torts exclusifs, je pensais deviner un non-dit potentiel dans son explication : une possibilité d'ajouter par la suite un "transfert" d'une liste à l'autre, qui nécessite là d'identifier les éléments sélectionnés.

d'où la présentation de Selected(x)

mais à froid, en relisant, je crois que j'ai vu trop loin pour rien

[patricktoulon]

re
c'est pas un tord il a une vision globale des possibilités maintenant

1. aperçu de méthode (transfert)
2. désélection de tous

[modus57]

Bonjour et merci à vous.

Ça fonctionne avec les 2 solutions, celle de Patrick est plus simple et comporte qu'une ligne de code.

Bravo pour votre réactivité

Ma réponse s'est entre croisée, je prends note de la réponse de joe si besoin de transfert.

[modus57]

Bonsoir.

Je n'ai pas résolu mon problème, en effet avec un CommandButton1_Click pas de soucis.

Par contre ça ne fonctionne pas dans un ListBox1_Click en multi sélection ?

Ce que je veux faire :
- Désélectionner l'élément ou les éléments sélectionnés dans la ListBox1 (MultiSelect = fmMultiSelectMulti) lorsque je clicque dans la ListBox2 (MultiSelect = fmMultiSelectMulti) pour sélectionner un plusieurs ou plusieurs éléments.

Existe-t-il une solution ?

[joe.levrai]

tu peux nous montrer toutes ces procédures ?

je devine peut-être le problème, mais en VBA on ne devine pas, on analyse et on démontre

[patricktoulon]

re
je crois qu'on l'a perdu Joe entre 2 item

[modus57]

Bonjour à vous.

Je reviens à la surface après 2 jours d'immersion suite à une contrainte perso .

Voici le fichier que j'ai modifié pour mieux expliquer le problème.

[patricktoulon]

ca ressemble beaucoup au code que j'avais donné dans ton userform y compris le tri alpha
mais je crois qu'avec les fonctions native comme (name as,dir ,etc...) et tout plein d'autre chose on pourrais largement simplifier Scripting est lourdo quand même !!!!
en tout cas chez moi ca fonction le transfert (dans liste et dossier)
je n'ai pas tout regardé mais les fichier doivent il être supprimer de la source après copie ????

quoi que normalement déplace alors !!!!

[joe.levrai]

J'ai toute confiance en Patrick (qui a osé rigoler ? )

De mon côté, je ne suis pas en mesure de continuer sans l'élément demandé

tu peux nous montrer toutes ces procédures ?

la question est de vider une sélection dans un ListBox, via l'évènement d'un autre contrôle (lui-même un ListBox)
du coup, la question étant assez ciblée et généraliste, le fichier ne sert à rien, les procédures contenues dans ton Userform vont suffire amplement à voir où est ton problème (mauvais évènement, mauvaise méthode, mauvais contrôle sur lequel on utilise l'évènement etc...), il suffit de les copier dans un message

[modus57]

J'ai modifié et adapter un classeur que j'avais trouvé sur un autre forum qui pouvait convenir que à ce que je souhaitai faire. En effet il faudrait en simplifier les procédures.

Remarque : si un ou plusieurs éléments sont sélectionnés dans la ListBox1, après déplacement dans la ListBox2 le premier élément est sélectionné dans celle-ci et forcément plus aucuns éléments est sélectionnés dans la ListBox1.

La question est comment : si un ou plusieurs éléments sont sélectionnés dans la ListBox1, lorsqu'on fait un clic dans la ListBox2 comment désélectionner le ou les éléments sélectionnés dans la ListBox1 ?

Voici le code qui ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
Private Sub ListBox1_Click()
Dim i
    With Me.ListBox2
        For i = 1 To .ListCount
           .Selected(i - 1) = False
        Next i
    End With
End Sub

Code :

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

1
2
3
4
5
6
7
8
Private Sub ListBox2_Click()
Dim i
    With Me.ListBox1
        For i = 1 To .ListCount
           .Selected(i - 1) = False
        Next i
    End With
End Sub

[patricktoulon]

@Modus
tout d'abords je tiens a m'excuser d'avance pour ta douleur que tu va ressentir quand tes yeux vont s'exorbiter

j'ai pris ton fichier et vider tout codes
et j'ai repris ta démarche sans Scripting et autre lourderie bien pourries

je pars du principe que :

tu a a chaque fois 2 controls interdépendants donc dans ma vision une fonction peut servir au deux (c'est ce que j'ai fait )


prépare ton sérum phy pour les yeux hahahaha

choisi un dossier pour la L1 un dossier pour la L2 et sélectionne en L1 ou L2 et selon la liste box dont tu a sélectionné X item clique sur un des bouton transfert correspondant

voila attention ca déplace même les sous dossiers c'é bo la vie non??

[modus57]

Bonsoir Patrick.

Je suis ébloui par ton code réduit de 310 à 93 lignes et personnellement cela me parait difficile de faire mieux.

N'étant pas un expert confirmé comme toi, néanmoins lorsque le fichier existe dans la source et dans la destination ça bug. Comment anticiper ce cas ?

D'autre part la question concernant la désélection d'un ou plusieurs éléments sélectionnés dans la ListBox1 lorsqu'on fait un clic dans la ListBox2 (avant transfert) ou inversement n'est pas résolue.

[patricktoulon]

j'ai ajouter la function presence
change ca

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
Function transfert(x, y)
'cette fonction sert aussi pour les deux listbox transfert les listbox et reellement les fichiers
    If Me.Controls("TextBox" & y) <> "" Then
        With Me.Controls("ListBox" & x)
            For i = 0 To .ListCount - 1
                If .Selected(i) = True Then
                    If presence(.List(i), y) = False Then
                        Me.Controls("ListBox" & y).AddItem .List(i)
                        'deplacement réel du fichier
                        Name Me.Controls("TextBox" & x) & "\" & .List(i) As Me.Controls("TextBox" & y) & "\" & .List(i)
                    End If
                End If
            Next i
        End With
    Else
        MsgBox "le dossier de destination n'est pas precisé"
    End If
    list_fich
End Function

'**************************************************************************************
et ajoute la fonction

Code :

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

1
2
3
4
5
6
7
8
9
 
Function presence(it, y) As Boolean
    presence = False
    With Me.Controls("ListBox" & y)
        For i = 0 To .ListCount - 1
            If .List(i) = it Then presence True
        Next
    End With
End Function

pour ton erreur du click elle est très simple

quand je boucle sur le listcount des listbox regarde ce que j'ajoute après listcount et demande toi pourquoi?

[modus57]

Re bonsoir Patrick et merci pour la correction.

J'ai bien remplacé la fonction Transfert et intégrer la fonction Présence.

Et je rencontre un petit souci avec :


Mon manque de compétence ne permet pas de corriger ce problème, je suis sûr que vous avez la solution.

[patricktoulon]

autant pour moi
"=true"

[modus57]

Autant pour moi aussi je n'ai pas percuter.

Excusez-moi d'insister mais le problème de la désélection que j'ai plusieurs fois invoquer dans mes précédents et dernier post n'est pas résolu.

Et comment sélectionné le ou les fichiers transférés dans la ListBox de destination ?

[patricktoulon]

cadeau

a partir du moment ou du appuie sur le bouton de la souris dans une listebox si dans l'autre il y a sélection elle est annulée
je vois ce que tu veux de plus