Problème d'Incompatibilité de type

Bonjour à tous et bonne année 2009

J'ai tapé ce code qui me permet, normalement, lorsque je sélectionne une donnée en Cb3, d'afficher un prix dans T4 et T5 qui sont des TextBox.
Cependant, un message apparait lors de la sélection : "Incompatibilité de type"
Private Sub Cb3_Change() est sélectionné ainsi que B1 et B2.

Pouvez-vous m'aider s'il vous plait ?
Merci par avance

Code:

---

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

Private Sub Cb3_Change() Dim Cell As Range Dim B1(0 To 50, 0 To 1) As String Dim B2(0 To 50, 0 To 1) As String Dim L As Byte Dim I As Byte If Me.Cb3.Value <> "" Then L = Len(Cb3) For Each Cell In Sheets("Données").Range("B2:D57") If UCase(Left(Cell.Text, L)) = UCase(Cb3.Text) Then B1(I, 0) = Cell.Offset(0, 2).Text B2(I, 0) = Cell.Offset(0, 1).Text I = I + 1 End If Next Me.T4.Text = B1() Me.T5.Text = B2() End If End Sub

---

J'ai essayé en changeant Change par autre chose, mais toujours avec le même résultat.
Je ne comprens pas où ça coince. Je continue mes investigations.

Bonjour

C'est quoi, CB3?

Bonjour,

C'est une ComboBox, elle est chargée selon un choix fait dans une autre ComboBox (CB2).

Sur quelle ligne s'arrête le débogueur?

Sur Private Sub CB3_Change(), ainsi que B1() et B2() en fin de code

J'ai trouvé ce qui ne colle pas: tu essaye d'affecter un tableau de textes à une propriété qui n'accepte qu'un texte simple.

Alors soit tu veux vraiment charger un tableau dans lequel tu dois choisir une entrée et pour ça tu optes des combobox.
Soit tu veux plutôt une seule entrée, m'est avis que c'est le cas, et là dans ce cas il serait bon que tu expliques ce que tu cherches à faire avec tes tableaux, car j'ai beau comprendre comment c'est codé, je ne comprends pas du tout le résultat recherché.

Je vais expliquer ce que je cherche à faire.

Toutes les données proviennent de la feuille "Données"

A partir d'une Combo (Cb2) je sélectionne une donnée (Par exemple "Ciné UGC")
1er code

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Cb2_Change() Set mondico = CreateObject("Scripting.Dictionary") For I = 1 To Range("Motif").Count If Range("Profil")(I) = Me.Cb2 Then temp = Range("Motif")(I) mondico.Add temp, temp End If Next I Me.Cb3.List = mondico.items End Sub

---

Dans la Combo suivante (Cb3) apparaît "Billet unique"
2ème code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Cb3_Change() Dim Cell As Range Dim B1(0 To 50, 0 To 1) As String Dim B2(0 To 50, 0 To 1) As String Dim L As Byte Dim I As Byte If Me.Cb3.Value <> "" Then L = Len(Cb3) For Each Cell In Sheets("Données").Range("B2:D57") If UCase(Left(Cell.Text, L)) = UCase(Cb3.Text) Then B1(I, 0) = Cell.Offset(0, 2).Text B2(I, 0) = Cell.Offset(0, 1).Text I = I + 1 End If Next Me.T4.Text = B1() Me.T5.Text = B2() End If End Sub

---

Normalement dans la TextBox (T4) devrait apparaître le montant du prix d'achat et dans la TextBox (T5) le montant du prix de vente qui est différent du prix d'achat (prix d'achat->prix acheté au fournisseur, prix de vente->prix vendu à l'adhérent). Mais ça ne marche pas (affichage du message précédement cité).

Ah je viens enfin de comprendre ce que tu fais.
Tu aurais pu me dire que ce que tu stockais dans tes tableaux ce sont tes prix: ce sont des explications comme ça que j'attendais, car ce que tu viens de dire ne m'a pas servi à grand-chose hormis à savoir que tu avais 2 prix dans l'histoire.

Alors, honnêtement, je pense que tu ne t'y prends pas du tout de la bonne manière.

Essaie ceci un peu pour voir, et compare avec ta méthode, et surtout essaie de comprendre ce que je fais:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Cb3_Change() Dim Cell As Range If Me.Cb3.Value <> "" Then For Each Cell In Sheets("Données").Range("B2:D57") If UCase(Left(Cell.Text, Len(Cb3.Text))) = UCase(Cb3.Text) Then Me.T4.Text = Cell.Offset(0, 2).Text Me.T5.Text = Cell.Offset(0, 1).Text Exit Sub ' Ou Exit For ici revient au même résultat End If Next End If End Sub

---

Certains auraient utilisé Find, mais à mon avis cette méthode risque d'être moins rapide que ce que tu souhaites.

J'espère que j'ai bien saisi le problème. ;)

Super tu as bien compris ce que je voulais et ça marche.
Par contre moi je n'ai pas tout saisi, si ce n'est le fait que tu affectes directement les données dans les TextBox selon le choix fait dans le combo

Voilà, c'est exactement ce que je fais.

Et si jamais t'as saisi quelque chose dans ta cb et que ça ne retrouve pas dans la feuille, eh bien tes texbox ne seront pas changées, même s'il y avait du texte dedans. Si tu veux qu'elles soient effacées s'il n'y a pas de correspondance, tu as juste un petit peu de code à rajouter avant le End Sub.

Super, merci beaucoup pour ton aide