Pb avec multisélection d'un listbox vers une feuille Excel

[Abel]

Bonjour tout le monde, et bonne année.

J'ai un soucis avec la remontée d'une multi sélection dans une feuille de calcul.

J'utilise un code de ce type :

For j = 0 To Truc - 1 'c'est le nb de ligne de mon listbox
If Lbx_Qui.Selected(j) Then
With Workbooks("fichier destination").Worksheets("feuille destination")
.Range("a" & 11 + i) = Lbx_Qui.List(j)
.Range("b" & 11 + i) = Tbx_Machin 'autre info pêchée dans mon userform
End With
i = i + 1
End If
Next j

Le problème est qu'à la première copie de la première information dans le fichier de destination, pof ! a p'us de sélection dans la listebox.
(C'est à dire au premier range(truc)=quelquechose)

Donc je retrouve bien les infos de la première ligne de ma multisélection mais pas le reste.

Une idée ? Je suis sur Excel 2003.

Merci d'avance

 

[pierrejean]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

Bonjour Abel

Mon idée:

Tu fait un petit fichier exemple sans données confidentielles et tu le postes
Tu verras il y aura un peu plus de reponses

 

[Abel]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

Re,

Bon, je suis un peu vert, là ...

En construisant un exemple à partir de mon fichier d'origine, ... ben, ... ça fonctionne.

Je vous le joint quand même.

Je prends toutes les suggestions.

Abel.

 

[Abel]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

Re,

Oups !

Je viens de voir que j'ai laissé trainer un mot de passe...

 

[Robert]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

Bonjour PierreJean, Abel, bonjour le forum,

Hé Abel ! fous ma gueule ? Tu protèges tes accès au code et tu demandes de l'aide. Arffff ! j'suis 'achement content de te revoir quand même... Ton post ma fait faire un petit voyage dans le temps vite fait... J'en suis revenu plein de nostalgie...

[Édition]
Évidemment tu as trouvé moyen de rectifier avant que je poste. J'suis sûr que tu l'as fait exprès pour me faire passer pour une trume épaisse...

 

[Robert]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

Bonjour le fil, bonjour le forum,

Oui en effet là ça marche... N'aurais-tu pas du code sur la textbox Tbx_Intervention qui ferait perdre la sélection dans la listbox Lbx_Qui ou une macro événementielle Change sur l'onglet Formulaire ?

 

[Abel]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

Re,

Vi vi ! Robert.
J'étais au coin du bois sachant bien que tu allais tomber dans la chausse trappe à Robert.
Marche bien, hein !!!

Oui j'ai de l'événementiel avec du Change sur la listbox.
Je teste les sélections au fur et à mesure des clicks dans la liste.
Certaines entrées ne doivent pas pouvoir être sélectionnées.
Mais je ne veux pas trier ma liste avant de la mettre dans ma liste.

Mais ma multisélection fonctionne tout de même.
J'explore cette piste à travers un autre exemple.

A+

 

[Abel]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

pierrejean, Robert, tous ...

Un nouveau fichier en exemple.
Avec une ou deux fonctions de plus se rapprochant de mon original.

Ca marche toujours ...

A+

 

[Robert]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

Bonjour le fil, bonjour le froum,

D'abord le fait d'enregistrer l'onglet uniquement sur un autre classeur, je trouve ça étrange. J'imagine qu'à la fin tu veux un classeur sans macro...

Ensuite tu boucle sur l'événement Change de la ListBox :
Private Sub Lbx_Qui_Change()
Dim k As Integer
k = Lbx_Qui.ListIndex
If Lbx_Qui.List(k, 1) <> "A" And Lbx_Qui.Selected(k) Then
MsgBox "Bien essayé ! Mais ..." & Chr(10) & Chr(10) & Lbx_Qui.List(k, 0) & _
" n'y a pas droit", vbExclamation
Select_ZO = Select_ZO - 2
Lbx_Qui.Selected(k) = False
End If
End Sub

Ne serait-il pas convenable d'utiliser soit Application.EnableEvents soit une variable boléenne test ?

Option Explicit
Private test As Boolean


Private Sub Lbx_Qui_Change()
Dim k As Integer

If test = True Then Exit Sub
k = Lbx_Qui.ListIndex
If Lbx_Qui.List(k, 1) <> "A" And Lbx_Qui.Selected(k) Then
    test = True
    MsgBox "Bien essayé ! Mais ..." & Chr(10) & Chr(10) & Lbx_Qui.List(k, 0) & _
    " n'y a pas droit", vbExclamation
    Select_ZO = Select_ZO - 2
    Lbx_Qui.Selected(k) = False
End If
End Sub

 

[Abel]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

Robert,

Oups, oublié le flag dans l'exemple. Bien vu Robert.

Dans la vraie vie, l'onglet devient un formulaire qui va vivre sa vie ailleurs. En fait, je supprime le bouton dans l'onglet.
Il reste un petit bout de code dans l'onglet mais ça ne me dérange pas.

On progresse mais ... marche toujours dans l'exemple et toujours pas dans la vraie vie ...

 

[Robert]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

Bonjour le fil, bonjour le forum,

Ouaip... Difficile d'aller de l'avant puisque ça fonctionne avec les exmples... As-tu essayer de repartir d'un fichier vierge, copier/coller les données de l'original, les codes etc. et retenter avec cette nouvelle base ?

 

[Abel]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

Re,

J'ai trouvé !!!! (enfin, j'espère que c'est ça et qu'il n'y a rien de planqué derrière).

Dans la base de ma vraie vie, les données qui alimentent la listbox sont issues de formules ...
Et pas dans l'exemple.

Il y avait plus que ça comme grosse différence.

Bon, ben, il n'y a plus qu'à repenser mon fichier.

Merci de m'avoir accompagné Robert. Tes questions et remarques m'ont permis indirectement de trouver cette piste.

A+

 

[Robert]

Re : Pb avec multisélection d'un listbox vers une feuille Excel

Bonjour le fil, bonjour le forum,

Content que tu aies trouvé... J'espère te recroiser dans d'autres fils.