Discussion :

[jehhej]

Bonjour,

J'ai une feuille "Saisie" sur laquelle je dois permettre à des utilisateurs de remplir des données via un Userform qui s'affiche en faisant un clic droit sur les cellules. Chaque ligne contient des types de données différentes. Par exemple, sur la ligne 10 on doit choisir la marque du véhicule, sur la ligne 11 le nom du concessionnaire, etc. Donc quand on fait clic droit dans une cellule de la ligne 10, il affiche un Userform avec la Listbox contenant la liste des marques de voiture, et quand on clic droit sur une cellule de la ligne 11, il affiche le même Userform avec la même Listbox mais qui celle-ci contient la liste des concessionnaires. On fait son choix dans la Listbox, on clique sur le bouton "Valider" et la cellule récupère le texte choisi dans la Listbox.

Le contenu de la Listbox dépend d'un numéro que j'ai mis dans la colonne 2 de la ligne active. Par exemple, si dans la colonne 2 de la ligne active j'ai "24" alors il met dans la Listbox les données présentes dans la colonne 24 de la feuille "Liste".

Voilà pour le contexte.

Mes souhaits :

1) Je souhaite lorsque je clic-droit sur une cellule déjà rempli que la sélection dans la Listbox soit déjà faite en fonction du contenu de la Cellule. Par exemple : Si Cellule=vide, pas de présélection dans la Listbox, Si Cellule = renseigné alors la Sélection de Listbox = Contenu de la Cellule. Cela permettrait à l'utilisateur de garder le même choix sans être obliger de resélectionner dans la Listbox ce qu'il existe déjà dans la Cellule.

2) Dans le même Userform, je souhaite ajouter un Textbox dans lequel on noterait des commentaires. En cliquant sur le bouton "Valider" de L'Userform, le Texte du Textbox se mettrait dans une bulle de commentaire de la cellule sélectionnée.

3) La combinaison entre le 1 et le 2. C'est-à-dire qu'en ouvrant l'Userform via le clic droit de la cellule, la Listbox aurait sa sélection selon le contenu de la cellule mais aussi le Textbox serait alimenté selon le texte du commentaire.

Pour le point 1, j'ai déjà fait plein d'essai mais sans succès dont le code suivant :

Code :

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

1
2
3
4
5
6
7
 
            Dim i As Integer
            For i = 0 To ListeLB.ListCount - 1 
                If ListeLB.List(i) = ActiveCell Then
                    ListBox1.ListIndex = i
                End If
            Next i

Pour le point 2, je n'ai rien trouvé à ce sujet. Peut-être mal cherché.

Donc je viens vers vous pour savoir si vous auriez une piste s'il vous plait ?

A bientôt

[bellande]

Bonjour,

Voici deux pistes :

Pour faire les présélections dans la liste, il faut utiliser selected

Code :

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

1
2
3
4
5
6
Dim i As Integer
For i = 0 To ListeLB.ListCount - 1
If ListeLB.List(i) = ActiveCell Then
ListBox1.selected(i)=true
End If
Next i

Pour les commentaires, il y a des instructions du genre :

Code :

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

1
2
 
   ActiveCell.Comment = textbox1.text

et

Code :

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

  textbox1.text=ActiveCell.Comment

[jehhej]

Merci bellande pour ta proposition de solution.

Cependant j'ai la même erreur qui se produit.

J'ai donc mis

Code :

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

1
2
3
4
5
6
7
 
            Dim i As Integer
            For i = 0 To ListeLB.ListCount - 1 
                If ListeLB.List(i) = ActiveCell Then
                    ListeLB.Selected(i) = True
                End If
            Next i

Et quand je clic-droit sur ma cellule et que çà doit ouvrir l'Userform j'ai le message d'erreur suivant :

Erreur d'exécution '91' : Variable objet ou variable de bloc With non définie

Je clique sur débogage et le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
   ' Affichage de l'userform si on est sur une cellule
   If Target.Row >= 3 And Target.Column >= 8 Then
        If Worksheets(WSsaisie).Cells(Selection.Row, 2) <> "" Then
            Call Load(ListeUF)
            Call ListeUF.Show
            Cancel = True
        End If
   End If
End Sub

s'affiche avec "Call Load(ListeUF)" en surbrillance.

çà faisait la même chose lorsque je faisais mes tests.
Pour info, lorsque j'enlève "ListeLB.Selected(i) = True" de mon premier code, je n'ai aucun message d'erreur.

Edit :
Je viens de voir que dans le "Call Load(ListeUF)" en surbrillance, il met "ListeUF = Nothing" quand je mets le curseur dessus. Bizarre car sans le "ListeLB.Selected(i) = True" ce "Call Load(ListeUF)" ne cause pas d'erreur

[rvtoulon]

Bonjour,
je comprend pas trop ce que tu veux faire avec :

Code :

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

1
2
Call Load(ListeUF)
Call ListeUF.Show

si ton but est d'ouvrir le userform "ListeUF" met juste :

Code :

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

ListeUF.Show

[bellande]

bonjour,

Si tu mets le remplissage de la liste directement dans l'évènement activate de ta userform alors l'objet liste existe bien quand tu essaies de le remplir sinon en effet ca pose un problème puisque l'objet n'existe pas encore :

Les call aussi me laissent perplexe alors j'ai simplifié, voici ce qui marche chez moi mais ce n'est que la version de test :

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
 
Private Sub UserForm_Activate()
     Dim i As Integer
 
     ListeLB.Clear
     ListeLB.AddItem "aaa"
     ListeLB.AddItem "bbb"
     ListeLB.AddItem "ccc"
     ListeLB.AddItem "ddd"
     ListeLB.AddItem "eee"
     ListeLB.AddItem "fff"
 
     For i = 0 To ListeLB.ListCount - 1
          If ListeLB.List(i) = ActiveCell Then
                ListeLB.Selected(i) = True
          End If
     Next i
End Sub
 
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
   ' Affichage de l'userform si on est sur une cellule
   If Target.Row >= 3 And Target.Column >= 8 Then
        If Worksheets(1).Cells(Selection.Row, 2) <> "" Then
            ListeUF.Show
            Cancel = True
        End If
   End If
End Sub

[jehhej]

si ton but est d'ouvrir le userform "ListeUF" met juste :

Code :

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

ListeUF.Show

En effet, mais le problème se reporte sur le "ListeUF.Show" qui se met en surbrillance

@Bellande :
J'ai bien le remplissage de la liste au même endroit que l'instruction qui pose problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
' Remplissage de la liste
 
        ListeLB.List() = ListeTable()
 
    ' Reprendre les informations déjà présentes dans le tableau Excel
 
            Dim i As Integer
            For i = 0 To ListeLB.ListCount - 1 
                If ListeLB.List(i) = ActiveCell Then
                    ListeLB.Selected(i) = True
                End If
            Next i

Sachant que ListeTable est une table que j'ai alimenté via un autre code dans le même endroit.

Par contre, j'ai tout çà dans "Private Sub UserForm_Initialize()" au lieu de "Private Sub UserForm_Activate()", est ce que çà change quelque chose ?

[bellande]

Je ne comprends pas quand tu dis "J'ai bien le remplissage de la liste au même endroit que l'instruction qui pose problème"

Le remplissage est dans le Initialize de la userform et le ListeUF.Show est dans la feuille de calcul donc pas au même au endroit ?