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 : 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
 
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