Copie de BDD dans textbox

[Florian53]

Bonjour à tous,

Je souhaiterais renseigner une combobox dans un userform et à partir de ce choix qu'il récupére automatiquement les infos concernants ce choix afin qu'il les copies dans les textbox correspondantes.

Actuellement j'ai mis un code qui me paraît bon mais il me met une erreur "13 incompatibilité de type"

Et il me surligne ça dans le debug:

Controls("textbox" & i) = Sheets("BD").Cells(.List(.ListIndex, 1), i)

Je vous transmets un fichier exemple pour une meilleur conpréhension.

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Hulk]

Re : Copie de BDD dans textbox

Hello,

Sans avoir vu ton fichier et donc sans garantie que ça marche, remplace cette ligne comme ceci

Controls("[COLOR="DarkGreen"][B]TextBox[/B][/COLOR]" & i) = Sheets("BD").Cells(.List(.ListIndex, 1), i)

Juste peut-être une question de casse... faut souvent la respecter !

 

[Hulk]

Re : Copie de BDD dans textbox

Re,

Ben non ce n'était pas la casse.

Voilà ton fichier en retour... Si j'ai bien compris

Bonne fin de journée !

 

[Florian53]

Re : Copie de BDD dans textbox

Merci à toi c'est exactement ce que je voulais mais serait tu pourquoi le premier code ne fonctionnait pas, sa me semblait pourtant correct?

 

[Hulk]

Re : Copie de BDD dans textbox

Re,

Ben au fait je ne sais pas vraiment pourquoi ça ne jouait pas...

Comme ceci ça joue aussi...

Private Sub ComboBox1_Click()
Dim i As Byte
'remplissage textbox suivant choix dans combobox1
With ComboBox1
    For i = 2 To 6
        Controls("TextBox" & i) = Sheets("BD").Cells(.ListIndex + 2, i)
    Next i
End With

End Sub

 

[Florian53]

Re : Copie de BDD dans textbox

ok en tout cas merci à toi de ton aide qui était tout aussi rapide que efficace .

Encore un grand merci