problème de textbox et tabstrip

[sabrina64]

bonjour
j ai un petit soucis...........
enfait g cree un tabstrip et j voudrais qu en fonction de l onglet sur lequel j clique, la valeur de mes textbox change.
alors sa marche une fois et apres lorsque j clique sur n importe kel onglet ca me met un erreur d execution 5!

Private Sub TabStrip1_Click(ByVal Index As Long)
For Index = 0 To TabStrip1.Count
Texte2.Text = TabStrip1.Tabs(Index).Name
Texte3.Text = val
Texte2.Text = vbNullString
Texte3.Text = vbNullString
Next Index
End Sub



merci pour votre aide.........

 

[sabrina64]

Re : problème de textbox et tabstrip

pe etre tabstrip1.count - 1?

 

[Pierrot93]

Re : problème de textbox et tabstrip

Bonjour Sabrina

je sais pas trop si ca peut venir de là mais tu utilise a priori une variable "val" qui correspond à une fonction vba :

Texte3.Text = val

modifies peut être le nom de cette variable.

tu utilises aussi "index" comme valriable qui est une propriété...

@+

 

[sabrina64]

Re : problème de textbox et tabstrip

en fait j ai changé le nom de mes variables mais ca ne fait rien......

g l impression que ca bloque car on dirait que ca garde les valeurs precedente en memoire .......

du coup il ya des trucs du style 0=2!!!

j vois vraiment pas..........

 

[sabrina64]

Re : problème de textbox et tabstrip

ca me garde toujours la meme valeur!!!!!!!!!!!!
grrrrrrrrrrrrrrrrrrrr..............

 

[Pierrot93]

Re : problème de textbox et tabstrip

Re

essaye comme ci dessous :

Private Sub TabStrip1_Click(ByVal Index As Long)
For Index = 0 To TabStrip1.Count - 1
Texte2.Text = TabStrip1.Tabs(Index).Name
Texte3.Text = Mavaleur
Texte2.Text = vbNullString
Texte3.Text = vbNullString
Next Index
End Sub

rectif, on peut utiliser index dans la boucle, c'est une variable déclarée dans l'évènement.

@+

 

[sabrina64]

Re : problème de textbox et tabstrip

merci beaucouup de m aider
mais en fait maintenat kan j clique su rles onglets j n ai plus de valeurs.........

 

[Pierrot93]

Re : problème de textbox et tabstrip

Re

Normal à priori, les lignes de code ci dessous écrasent les valeurs des Textbox2 et 3...

Texte2.Text = vbNullString
Texte3.Text = vbNullString

@+

 

[sabrina64]

Re : problème de textbox et tabstrip

ou ij ai bien compris mais kan j ne le mets pas ,ca me reste bloqué sur la valeur du derneir onglet.........


bon ben sinon tant pis.......j v y reflechir encore et encore.......

merci pour tout pierrot

 

[sabrina64]

Re : problème de textbox et tabstrip

voici mon fichier

 

[sabrina64]

Re : problème de textbox et tabstrip

en fait ce q g posté ne pourra pas etre compilé car je n ai mis qu une partie du code de mon classeur.......
c juste pour avoir une idee

 

[Pierrot93]

Re : problème de textbox et tabstrip

Re

regarde déjà ci dessous, j'avais fais ca avant de voir ton fichier :

Private Sub TabStrip1_Click(ByVal Index As Long)
For Index = 0 To TabStrip1.Count - 1
Controls("TextBox" & Index + 1) = TabStrip1.Tabs(Index).Name
Next Index
End Sub

@+

 

[sabrina64]

Re : problème de textbox et tabstrip

vous ne m oubliez pas , c sympa.........

juste une question , j saissie pas trop ce que Controls("TextBox" & Index + 1) signifie

c pour associer un controle a divers textbox?

 

[Pierrot93]

Re : problème de textbox et tabstrip

Re

après avoir vu ton fichier, regarde le code ci dessous si j'ai bien compris :

Private Sub TabStrip1_Click(ByVal Index As Long)
Texte2 = ""
Texte3 = ""
Controls("Texte" & Index + 1) = TabStrip1.Tabs(Index).Name
End Sub

devrait suffire, on met les 2 labels en question a blanc Texte2 et Texte3 puis on renseigne celui concerné par l'évènement click...

@+

 

[Pierrot93]

Re : problème de textbox et tabstrip

pour te répondre,

Controls("TextBox" & Index + 1)

dans ce cas "TextBox" représente le nom de n'importe quel type de controle.

@+