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

une petite modif à ce que vous m avez envoyé et ca marche!!!!

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

je vous remercie!!!!!!!!!!!

merci beaucoup..........

je vais finir ma journée beaucoup plus sereine!!!

merci encore

bonne soiree

 

[sabrina64]

Re : problème de textbox et tabstrip

et pour gerer mes combobox, j peux faire un controle sur les combo???

 

[sabrina64]

Re : problème de textbox et tabstrip

en fait g un tabstrip et en fonction de l onglet sélectionné, la valeur selectionné de mon combobox1 sera differente et à fortiori les valeurs de ma combo2 ausssi.......

quelqu un pourrait il maider?

 

[sabrina64]

Re : problème de textbox et tabstrip

help!!!!!!!!!

 

[Pierrot93]

Re : problème de textbox et tabstrip

Bonjour Sabrina,

Patience.... vu comment est alimenté le combo1, pas trop d'idée concernant les critères qui permettraient de faire un choix afin de selectionner un fichier par rapport à un autre

Ensuite pour alimenter le combo 2 on pourrait peut être déclencher l'évènement click ou change du 1, mais pas trop sur de tout ca.

tu devrais peut être nous donner un peu plus d'explication.

bon après midi
@+

 

[sabrina64]

Re : problème de textbox et tabstrip

le combo 1 est alimenté par une liste de fichier excel d'un repertoire donné.
le combo 2 est alimenté par les intitulé des colonnes du fichier selectionné en combo 1

donc en fiat pour un onglet sélectionné, j' ai un fichier selectionné identique ou different du premier onglet et apr consequent les champs de la combo 2 ne sont pas identiques

et dan mon cas une fois une selection faite pour un onglet j n arrive pas a en faire une autre pour l onglet suivant!


c un peu plus clair?

merci pierre de venir à mon secours!

 

[Pierrot93]

Re : problème de textbox et tabstrip

Re

quand tu dis :

donc en fiat pour un onglet sélectionné, j' ai un fichier selectionné identique

tu parles d'un onglet du TabStrip ? tu as un fichier sélectionné, où ? et selon quel critère ? la valeur index du Tabstrip, sauf erreur, je ne vois rien dans ce sens dans ton code...

@+

 

[sabrina64]

Re : problème de textbox et tabstrip

tout d abors en effet j parle d onglets de tabstrip

par " j' ai un fichier selectionné identique" je ve dire que je peux ou pas selectionné le meme fichier que dans l onglet precedent

en fait mon combobox1 est alimenté par une liste de fichiers d un repertoire donné
donc quand j selectionne un élément de la combobox1 cela revient à sélectionner un fichier (classeur excel que j active)

voici un extrait du code

Private Sub TabStrip1_Click(ByVal Index As Long)
Dim I As Integer
Texte2 = ""
Texte3 = ""
Controls("Texte2") = TabStrip1.Tabs(Index).Name
Texte3.Text = val
For I = 0 To (TabStrip1.Count - 1)
Call ComboBox1_Click
Next I
End Sub


Private Sub ComboBox1_Click()
Dim indice As Integer
Dim j, k, H As Integer
indice = ComboBox1.ListIndex
If indice <> -1 Then
metierchoisit = ComboBox1.List(indice)
Workbooks.Open FileName:="T:\DI\Mefp\Essais\Exterieurs\Sabrina Metche\testvba\Fiches métiers\métier interdépendant" & "\" & metierchoisit

MsgBox indice
MsgBox metierchoisit
variablefeuille = ActiveSheet.Name
k = 2
While Workbooks(metierchoisit).Sheets(variablefeuille).Cells(1, k).Value <> ""
k = k + 1
Wend
End If
For H = 1 To k - 2
ComboBox2.AddItem Cells(1, H + 1).Value
Next H
End Sub


c un peu plus comprehensible?

 

[sabrina64]

Re : problème de textbox et tabstrip

avec ce morceau de code en fait , quand je selectionne un onglet different, et q je selectionne dan mes combo en fait ca ecrase mes choix precedents!

 

[Pierrot93]

Re : problème de textbox et tabstrip

Re

essaye peut être comme ci dessous (pas testé) :

Private Sub TabStrip1_Click(ByVal Index As Long)
Dim I As Integer
Texte2 = ""
Texte3 = ""
Controls("Texte2") = TabStrip1.Tabs(Index).Name
Texte3.Text = Val
ComboBox1.Value = ComboBox1.List(Index)
End Sub

il y aura sans doute lieu de changer ton évènement sur le combo 1 de "click" ver "change". Attention tu utilises toujour Val comme variable, alors que c'est une fonction vba.

@+

 

[sabrina64]

Re : problème de textbox et tabstrip

Private Sub TabStrip1_Click(ByVal Index As Long)
Dim I As Integer
Texte2 = ""
Texte3 = ""
Controls("Texte2") = TabStrip1.Tabs(Index).Name
Texte3.Text = Val
ComboBox1.Value = ComboBox1.List(Index)
End Sub

en fait dans ma combobox ce n est pas le meme indice que pour le tabstrip et ca me met une erreur

 

[Pierrot93]

Re : problème de textbox et tabstrip

Re

comprends pas trop, je viens de tester chez moi le code ci dessous, et celui ci fonctionne :

Private Sub UserForm_Initialize()
ComboBox1.List = Range("A1:A6").Value
End Sub
Private Sub TabStrip1_Click(ByVal Index As Long)
ComboBox1.Value = ComboBox1.List(Index)
End Sub

 

[Pierrot93]

Re : problème de textbox et tabstrip

Quelle ligne surlignée en jaune, celle ci :

ComboBox1.Value = ComboBox1.List(Index)

 

[sabrina64]

Re : problème de textbox et tabstrip

Private Sub UserForm_Initialize()
ComboBox1.List = Range("A1:A6").Value
End Sub

Private Sub TabStrip1_Click(ByVal Index As Long)
ComboBox1.Value = ComboBox1.List(Index)
End Sub

je ne comprend pas dans la procédure tabstrip_click index ne signifie t il pas l indice de l onglet du tabstrip selectionné?

je me melange peut etre

 

[sabrina64]

Re : problème de textbox et tabstrip

j ai esssayé votre code en prenant un nouvel userform basique et ca marche..........

j vais batailler.........il n y a pas de raison que j ne puisse pas l incorporer dan mon code!!!

j vous tiens au courant!