Problème affichage textbox

[craig974]

comment faire pour que dans la textebox s'affiche le contenu de toutes les cellules de B5 à C80. J'ai ecrit cela

Private Sub TextBox1_Change()
If ComboBox1.Value = "renault" And ComboBox2.Value = "clio" And ComboBox3.Value = "jaune" Then
TextBox1.Value = Worksheets(2).Range("B5:C80").Value
End If

End Sub

Mais il me met erreur d'éxécution 13 incompatibilité de type.
Merci d'avance

 

[xyam]

Re : Problème affichage textbox

Bonjour Craig974,

J'utiliserais une boucle qui parcoure tes cellules, et qui les ajoutes à ton textbox1
après regarde si en complétion automatique (ctrl+Espace) tu n'as pas textbox1.Add

Tiens nous au courant

 

[Pierrot93]

Re : Problème affichage textbox

Bonjour,

pas top le code placé dans l'événement change de ce même textbox.... Il eut été préférable d'associer ce code à un bouton, ou à un événement déclencheur.... D'autre part, tu ne pourras pas mettre ainsi plusieurs cellule dans un textbox, il faudra faire une boucle... peut être mieux d'utiliser une "listbox"...

Quand tu places un code sur le forum, passe en mode avancé et utilise les balises code (#)... plutôt agressif ton rouge et gras....

bonne journée
@+

 

[craig974]

Re : Problème affichage textbox

Merci beaucoup de votre aide, Je suis passé par la boucle et la listBox qui donne quasiment ce que je voudrais le seul problème c'est que je voudrais sélectionner (pour faire un copier coller ) ce qui est à l'interieur. je vais essayer la boucle avec la text box et je vous tiens au courant

 

[craig974]

Re : Problème affichage textbox

le problème que je rencontre avec textbox c'est qu'il n'y a pas de additem,
alors j'ecris

 Dim i as byte
Dim j as byte
If ComboBox1.Value = "renault" And ComboBox2.Value = "clio" And ComboBox3.Value = "jaune" Then
For i=1 To 3
For j=1 to 3
TextBox1.Value(ou.text)= Cells(i,j).Value
Next j
Next i
End If

Sa se met à complétement plané il n'y a plus rien qui répond mais j'ai pas de message d'erreur, excel et vba ne repondent plus
Alors qu'avec listbox tout fonctionner en ecrivant listbox1 Additem.Cells(i,j).value mais comme dit plus haut je ne peux pas utiliser cela

 

[Pierrot93]

Re : Problème affichage textbox

Re,

regarde ceci :

For j = 1 To 3
TextBox1.Text = TextBox1.Text & Cells(i, j).Value & vbCrLf
Next j

bon après midi
@+

 

[craig974]

Re : Problème affichage textbox

En fin de compte lorsque je fais la modification plus rien ne se passe j'ai peut etre mal compris comment devait se faire la modification mais je ne pense pas