VBA - Faire apparaitre les cases cochées d'une listbox

Bonjour,

je viens à vous puisque malgré le FAQ du site, je n'ai pas réussi à trouver de réponse à mon problème !!!
En effet, j'ai crée dans mon formulaire un userform me permettant d'insérer une ligne dans mon tableau.
J'ai crée un second formulaire me permettant de modifier n'importe quelle ligne de donnée.
Je procède de la manière, j'ai une combobox qui contient l'ensemble de mes numéros de ligne, j'en sélectionne une puis j'appuie sur mon bouton ok ("cmdbutton10") pour faire apparaitre les données de la ligne de mon tableau dans les différents partis de mon userform "modifier". La technique marche très bien pour les textbox et les combobox mais pas pour les listbox, les items ne sont pas cochés.

Sur le FAQ de silkyroad, il est indiqué que le code pour récupérer coché dans la listbox un item (ou plusieurs) présent dans le tableau , c'est:

Code:

---

listBox1.listIndex= ...

---

Cependant, j'ai un message d'erreur qui me parvient qui dit : "Impossible de définir la propriété Listindex. Le type ne correspond pas".

Voici mon code complet:

Code:

---

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

Private Sub CommandButton10_Click() Dim A As Integer A = ComboBox6.ListIndex + 19 Feuil1.Unprotect TextBox2.Value = Cells(A, 2).Value TextBox3.Value = Cells(A, 3).Value TextBox4.Value = Cells(A, 4).Value ComboBox1.Value = Cells(A, 5).Value ComboBox2.Value = Cells(A, 6).Value ListBox1.ListIndex = Cells(A, 7).Value TextBox8.Value = Cells(A, 8).Value TextBox9.Value = Cells(A, 9).Value TextBox10.Value = Cells(A, 10).Value TextBox21.Value = Cells(A, 11).Value ListBox2.ListIndex = Cells(A, 12).Value TextBox23.Value = Cells(A, 13).Value ListBox3.ListIndex = Cells(A, 14).Value TextBox24.Value = Cells(A, 15).Value ListBox4.ListIndex = Cells(A, 16).Value ComboBox3.Value = Cells(A, 17).Value TextBox26.Value = Cells(A, 18).Value TextBox18.Value = Cells(A, 19).Value   Feuil1.Protect     End Sub

---

Par la suite, j'ai crée un bouton "valider" qui me permet de coller les nouvelles données modifier de mon userform dans mon tableau.

Quel est votre avis ?

Merci par avance !!!!

Cordialement !

Bonjour,

De ce que je vois de ton code, tu affectes à des textbox, combobox et listbox des valeurs de cellules.

Pour éditer la valeur d'une listbox tu devrais plutôt écrire :

Code:

---

Listbox1.list(Listbox1.listindex) = Cells(A, 7).Value

---

.

Bonjour Romain9,

Merci de ta réponse ! Ton idée de code est étonnante ! Puisqu'il ne marche pas mais cependant, lorsque je passe ma souris sur la ligne après avoir fait F8, il m'est quand même indiqué la valeur coché dans ma listbox/présente dans ma ligne de mon tableau. Ca veut donc dire que mon outil sait ce qui est présent, mais n'arrive pas à cocher la case automatiquement... Pensez vous qu'il existe une solution ?!

Pièce jointe 219132
Pièce jointe 219133

Merci infiniment !

Si tu as ce message d'erreur, je suppose que tu alimentes ta listbox en utilisant la propriété RowSource.

Pour que le code que je t'ai indiqué fonctionne, il faut que tu alimentes ta listbox soit via la méthode additem en bouclant sur chaque élément de ta plage de cellules qui va alimenter la listbox ou bien en utilisant la propriété list :

Code:

---

Listbox1.list = Ta plage de cellules

---

Bonjour
Si listbox liée :
Je t'ai pourtant déjà dit (hier, dans une autre discussion) :
-

Citation:

---

modifier la cellule correspondante de ta feuille de calcul, ce qui aurait pour résultat de répercuter automatiquement cette modification dans la combobox.

---

Idem avec une listbox.

Bonjour unparia !
Vous avez été tellement réticent hier soir que je n'ai pas voulu insister pour vous en demander plus ! Mais sans rancune ;)

Lorsque que vous dites,

Citation:

---

modifier la cellule correspondante de ta feuille de calcul

---

, il faut la modifier comment ? je ne visualise pas ce qu'il faut faire. Concernant la feuille de calcul, vous parlez de la feuille où sont stockés l'ensemble des données de ma listbox ou vous parlez de de la feuille où se trouve mon tableau ? J'espère avoir formuler ma question sans vous froisser ! :)

Romain, ma listbox n'est pas alimentée par la propriété Rowsource. J'écris dans une textbox ma recherche avec un mot clé, déroule ensuite dans ma listbox mes réponses. Une fois ma ligne trouvée, je la coche via l'option liststyle. La ligne coché est collé dans la cellule de mon tableau. J'ai codé de cette manière là:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub TextBox20_Change() Application.ScreenUpdating = False ListBox2.Clear If TextBox20 <> "" Then For ligne = 2 To Feuil4.Cells(Rows.Count, 2).End(xlUp).Row If Feuil4.Cells(ligne, 2) Like "*" & TextBox20 & "*" Then ListBox2.AddItem Feuil4.Cells(ligne, 2) End If Next   For ligne = 2 To Feuil4.Cells(Rows.Count, 7).End(xlUp).Row If Feuil4.Cells(ligne, 7) Like "*" & TextBox20 & "*" Then ListBox2.AddItem Feuil4.Cells(ligne, 7) End If Next   For ligne = 2 To Feuil8.Cells(Rows.Count, 2).End(xlUp).Row If Feuil8.Cells(ligne, 2) Like "*" & TextBox20 & "*" Then ListBox2.AddItem Feuil8.Cells(ligne, 2) End If Next End If   TextBox20.Text = UCase(TextBox20.Text)

---

Du coup, d'après ton message, j'ai essayé de coder de cette manière suivante mais ce message d'erreur apparait:

Pièce jointe 219178

Suis je loin du but ?! Merci dans tous les cas ! :)

Tu ne peux pas écrire

Code:

---

Listbox2.list = listbox2.additem Feuil4.cells(ligne,2)

---

Soit tu écris comme tu l'avais fait jusqu'alors :

Code:

---

ListBox2.AddItem Feuil4.Cells(ligne, 2)

---

soit tu déclares une variable de type Range (appelons-là MaPlage). Tu affectes à cette variable la plage qui contient les réponses résultant de ton mot clé saisie dans la textbox puis tu affectes cette plage à la propriété list de ta listbox

Code:

---

Listbox2.list = MaPlage

---

.