Discussion :

[NEC14]

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

[NEC14]

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.

[Pierre Fauconnier]

Bonjour

C'est quoi, CB3?

[NEC14]

Bonjour,

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

[Pierre Fauconnier]

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

[NEC14]

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

[decondelite]

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é.

[NEC14]

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 :

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

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 :

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
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é).

[decondelite]

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 :

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

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.

[NEC14]

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

[decondelite]

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.

[NEC14]

Super, merci beaucoup pour ton aide