Message d'erreur

Bonjour

Le code de ma combobox me pose problème, j'ai tourjours un message d'erreur:

Erreur de compilation Sub ou Function non définie

Mon code

Private Sub ComboBox1_Change()
For i = 1 To 20
TBx_(i).Value = ComboBox1.Column(i)
Next i

End Sub

Je vous remercie

Max

BOnjour,

Et si tu commençais par nous dire ce que tu veux faire avec ta combobox ?

et dans ta textbox tu attends quoi comme resultat ?

Bonjour Xmenpl

Alors ma combpBx me serre a chercher dans une colonne la valeur pour que je puisse remplir mes textBox avant j'avais fait ceci:

Private Sub ComboBox1_Change()

TBx_1.Value = ComboBox1.Column(1)

TBx_2.Value = ComboBox1.Column(2)

TBx_3.Value = ComboBox1.Column(3)

TBx_4.Value = ComboBox1.Column(4)

TBx_5.Value = ComboBox1.Column(5)

TBx_6.Value = ComboBox1.Column(6)

TBx_7.Value = ComboBox1.Column(7)

TBx_8.Value = ComboBox1.Column(8)

TBx_9.Value = ComboBox1.Column(9)

TBx_10.Value = ComboBox1.Column(10)

TBx_11.Value = ComboBox1.Column(11)

TBx_12.Value = ComboBox1.Column(12)

TBx_13.Value = ComboBox1.Column(13)

TBx_14.Value = ComboBox1.Column(14)

TBx_15.Value = ComboBox1.Column(15)

TBx_16.Value = ComboBox1.Column(16)

TBx_17.Value = ComboBox1.Column(17)

TBx_18.Value = ComboBox1.Column(18)

TBx_19.Value = ComboBox1.Column(19)

TBx_20.Value = ComboBox1.Column(20)

End Sub

Je vous remercie

Max

Mets un fichier exemple.

Bonjour à tous,

Cette ligne pose problème TBx_(i).Value = ComboBox1.Column(i)

La première partie devrait s'écrire quelque chose tel ...

Controls("TBx_" & i).value

Pour la deuxième partie ... tu ne mentionnes pas quelle ligne du Combobox1 est sélectionnée, tu n'en mentionne que les colonnes.

ric

Salut ric

oui j'ai essayer avec ceci

Private Sub ComboBox1_Change()
For i = 1 To 20
Me.Controls("TBx_" & i).Value = ComboBox1.Column(i)
Next i

End Sub

c'est toujours pareil

M%ax

Bonjour,

Pour la deuxième partie ... tu ne mentionnes pas quelle ligne du Combobox1 est sélectionnée, tu n'en mentionne que les colonnes.

ric

Re,

la première ligne est la 9éme...

Bonjour,

Pour la deuxième partie, je m'excuse d'avoir errer.

Ceci fonctionne bien ...

Private Sub ComboBox1_Change()

    For i = 0 To 19
        Controls("TBx_" & i).Value = ComboBox1.Column(i)
    Next i
End Sub

Si les textbox du formulaire se nomment TBx_0 jusqu'à TBx_19

ric

Salut ric

Alors j'ai fait ceci un peut comme toi

Private Sub ComboBox1_Click()
 Dim elem As Byte
 For elem = 1 To 14
   With Me
   .Controls("TBx_" & elem).Value = .ComboBox1.Column(elem)
   End With
 Next
End Sub

sa fonctionne sans problème jusqu'à For elem = 1 To 13 au delà sa plante....

A+

Bonjour à tous,

La première colonne d'un combobox n'est pas 1, mais 0.

Si tes "TBx_" sont nommés de 1 à 14, il faut en tenir compte dans la boucle.

Il faut soustraire 1 dans le combobox ...

Private Sub ComboBox1_Click()
 Dim elem As Byte
 For elem = 1 To 14
   With Me
   .Controls("TBx_" & elem).Value = .ComboBox1.Column(elem -1) ' ICI, moins 1
   End With
 Next
End Sub

ric

Salut ric

J'ai compris pourquoi j'avais un message d'erreur.

J'ai 3 OptionButton "OptionButton1, OptionButton2, OptionButton3"

le 1er rend visible 15 TextBox "TBx_"

le 2éme rend visible 19 TextBox

et le 3éme rend visible 22 TextBox

et je n'arrive pas à lui programmer pour que la combobox agisse en fonction de OptionButton1 ou 2 ou 3

Je te remercie

Max

Bonjour à tous,

Tout au haut du Userform, sous "Option Explicit" s'il existe, ajoute Dim Choix as Byte .

Puis modifie le code ainsi ...

Private Sub ComboBox1_Click()
 Dim elem As Byte
 For elem = 1 To Choix   ' << modif
   With Me
   .Controls("TBx_" & elem).Value = .ComboBox1.Column(elem -1) ' ICI, moins 1
   End With
 Next
End Sub

Enfin, dans chacun des OptionButton ... ajout la valeur de Choix ...

Private Sub OptionButton1_Click()
    If OptionButton1 = True Then
    Choix = 15
    ...
    ...
    

Private Sub OptionButton2_Click()
    If OptionButton1 = True Then
    Choix = 19
    ...
    ...
    

Private Sub OptionButton3_Click()
    If OptionButton1 = True Then
    Choix = 22
    ...
    ...
    

Il n'y a pas de fichier sur lequel tester, mais ça devrait fonctionner.

ric

Bonjour

de toute façon sans ton modèle de ton fichier on ne peux pas vérifier

A toi de voir

A+

Maurice

Salut ric

Excuse moi de ne pas avoir répondu avant.

Ton dernier code fonctionne Nickel

Je te remercie et te souhaite un bon dimanche

Max