Discussion :

[maitrebanjo]

Bonjour a tous.

Je dois créer un fichier contenant une liste box, qui me permet de choisir plusieurs éléments dans la liste. Etant novice++ en VBA, j'ai demandé de l'aide a un ami, qui m'a aidé à créer ma listebox.
Sauf que cette fameuse listebox m’empêche de faire un copier coller et on ne trouve pas pourquoi (j'ai l'impression que des que je clique une fois ça me compte comme un double clic)?

J'en appel donc a votre aide et à votre incommensurable talent!

Je vous mets en pièce jointe mon fichier. Tout ce passe en feuil2 et la listbox est en C50

Merci par avance!

[Gado2600]

Bonjour,

Je ne sais pas si d'autres ont essayé mais je n'ai absolument pas compris ton problème.
Ta liste fonctionne bien et tu peux copier les données que tu affiches en C50.

Quel est le problème ???

Cordialement,

[joe.levrai]

bonjour,

je ne peux même pas dire si j'ai compris ou pas ...

on a des modules en option explicit avec des variables pas déclarées ... très pratique quand ça affecte des Evènements Selection_Change, histoire d'avoir des erreurs à chaque clic

j'enlève Option Explicit ok .... mais du coup je ne sais même pas à quoi doit correspondre la variable

Autre chose

Code :

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

1
2
3
ch2 = [Séparateur] & ch & [Séparateur]
For i = 0 To LbxVille.ListCount - 1
    If InStr(ch2, [Séparateur] & LbxVille.List(i) & [Séparateur]) > 0 Then

c'est quoi Séparateur ??? pourquoi il est encadré ? Il est déclaré en String mais aucune valeur ne lui est affectée dans ta procédure


on a aussi des boléen public (portée module) pour gérer les évènements .... un commentaire indiquant juste "' palliatif, EnableEvents ne marche pas" (???)


bref, j'ai refermé le fichier ... non sans avoir testé et réussi à faire un copier coller sur cette satanée feuille (en virant option Explicit)

[maitrebanjo]

Je me suis mal exprimé ^^' Désolé.
Je sais que ma liste fonctionne. Mais lorsque je veut copier coller des données sur la feuil2, je peut les copier mais pas les coller.
Par exemple le bouton Matrice de Kraljic, copie et colle un graphique se trouvant en page 3, celui fonctionnait avec que je mette en place la listebox et ce n'est plus le cas.

Cordialement

[joe.levrai]

tu perds probablement les données copiées quand ta procédure revient sur la Feuil2
car tu as une procédure évènementielle dans cette feuille qui rempli des listbox ...

essaye comme ça, dans ta procédure du Userform Matrice ... sait-on jamais ...

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Application.EnableEvents = False 
'Le code
Application.EnableEvents = True

EDIT : j'ai copié des valeurs dans ta feuille3, je suis retourné dans ta Feuil2, j'ai cliqué et sélectionné plusieurs cellules différentes ... et ensuite j'ai réussi à coller mes données.
donc ça ne doit pas venir de là

[maitrebanjo]

Donc je ne test pas ton code?
Car moi des que j'effectue un clic (que ce soit un gauche ou un droit) j'ai l'impression qu'il est doublé rendant le collage impossible vu qu'il me deselectionne mon copier

[joe.levrai]

N'arrivant pas à reproduire ton problème, je suis incapable de t'aider

essaye quand même ma proposition, ça mange pas de pain mais j'y crois absolument pas, puisque ton problème se produit également en dehors de cette procédure

[PMO2017]

Sauf que cette fameuse listebox m’empêche de faire un copier coller et on ne trouve pas pourquoi

Bonjour,

Le simple fait d'utiliser l'instruction

Code :

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

LbxVille.Visible = False

vide le Presse-Papiers et je ne sais pas pourquoi (on ne connait pas les mécanismes souterrains d'Excel).

Une grosse bidouille avec le code de l'événement Worksheet_SelectionChange. Changez y le code par celui-ci :

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ch As String, ch2 As String, pos As Long, i As Long
    Dim Plage, nomListe, numListe As Long, topIndex As Boolean
    ' plages avec sélection multiple sur cette feuille
 
If Target.Cells(1, 1).Address = "$C$50" Then
    Plage = Array("C50")
    ' nom des Feuil3 dans la feuille Feuil3 (en liaison avec les plages définies au-dessus)
    nomListe = Array("Ville")
    ' plage concernée ?
    For numListe = 0 To UBound(Plage)
        If Not Intersect(Target, Range(Plage(numListe))) Is Nothing Then Exit For
    Next numListe
 
    If numListe <= UBound(Plage) Then ' si plage de liste existant
        ' initialiser listbox
        LbxVille.ListFillRange = "Feuil3!" & Worksheets("Feuil3").Range(nomListe(numListe)).Address          ' A2:A17" ' [Feuil3!Ville].Address
        LbxVille.Top = Target.Offset(1, 0).Top
        LbxVille.Left = Target.Offset(0, 1).Left
 
        interne = True    ' palliatif, EnableEvents ne marche pas
        ch = ActiveCell
        ch2 = [Séparateur] & ch & [Séparateur]
        topIndex = False
        ' sélectionner selon contenu cellule
        For i = 0 To LbxVille.ListCount - 1
            If InStr(ch2, [Séparateur] & LbxVille.List(i) & [Séparateur]) > 0 Then
                ' l'item a été trouvé dans la cellule
                LbxVille.Selected(i) = True
                If Not topIndex Then
                    LbxVille.topIndex = i    ' le 1er sélectionné doit être visible dans la textbox
                    topIndex = True
                End If
            End If
        Next i
        interne = False
        ' afficher textbox
        LbxVille.Visible = True
    End If
Else
  ' ne plus afficher la textbox
  If Application.CutCopyMode = False Then
    LbxVille.Visible = False
  End If
End If
End Sub

On peut maintenant copier/coller avec la restriction suivante :
Le collage doit se faire en sélectionnant la cellule de destination et en appuyant sur Enter.

[maitrebanjo]

Ben merci en tout cas ^^, l'essentielle c'est que cela fonctionne.
Après si a l'utilisation cela devient trop lourd, je passerais pas une listbox je pense.

Merci a tous pour votre temps et pour vos réponse!