erreur de syntaxe boucle TextBox

[Profane]

Bonjour
voila mon probleme:
UserFormSaisie.MSForms.(TextBox & a).Value = ComboBoxPopup.Value
j'ai une erreur de syntaxe et je ne trouve pas comment la corriger
merci d'avance pour votre aide

 

[tototiti2008]

Re : erreur de syntaxe boucle TextBox

Bonjour Profane,

Sans plus de précision un essai au hasard

UserFormSaisie.Controls("TextBox" & a).Value = ComboBoxPopup.Value

 

[Profane]

Re : erreur de syntaxe boucle TextBox

Bonjour toto
j'avais essayer ta proposition auparavant mais ca ne fonctionne pas non plus
pourtant j'ai declaré a en public comme integer...
une autre idée ?

 

[tototiti2008]

Re : erreur de syntaxe boucle TextBox

Re,

Et "a" vaut quoi ?
Sans plus de précision, une seule ligne de code et pas de fichier exemple, on risque de tourner en rond longtemps
Si tu veux une réponse (et que ceux qui sont motivés à t'aider le restent), peux-tu fournir un peu plus de données ? (genre fichier exemple, un peu plus de code, ce genre de choses)

 

[Profane]

Re : erreur de syntaxe boucle TextBox

c'est pas faux , comme dirait quelqu'un🙂
code 1er usf : userformSaisie
Option Explicit
Private MesObjets() As New Classe1
Public a As Integer


Private Sub TextBox1_DBLClick(ByVal Cancel As MSForms.ReturnBoolean)
UserFormPopup.ComboBoxPopup.List = Range("Rapidité").Value
a = 1
UserFormPopup.Show
End Sub

Private Sub TextBox12_DBLClick(ByVal Cancel As MSForms.ReturnBoolean)
UserFormPopup.ComboBoxPopup.List = Range("Précision").Value
a = 12
UserFormPopup.Show
End Sub

code 2eme USF : userformPopup

Option Explicit


Private Sub CommandButtonValider_Click()
Dim s, t, espace As String
If OptionButtonBase Then
s = "Classe1"
ElseIf OptionButtonAdd Then s = "Classe2"
End If
If OptionButtonCritique Then
t = "Critique"
ElseIf OptionButtonEssentiel Then t = "Essentiel"
ElseIf OptionButtonSouhaitable Then t = "Souhaitable"
ElseIf OptionButtonSansimpact Then t = "Sans impact"
End If

espace = " "
UserFormSaisie.Controls.("TextBox"& a).Value = ComboBoxPopup.Value + espace + s + espace + t



End Sub


en esperant que cela soit utile
@++

 

[tototiti2008]

Re : erreur de syntaxe boucle TextBox

Re,

Dans le code que tu viens de fournir, il y a un point en trop par rapport au code que je t'ai proposé

UserFormSaisie.Controls.("TextBox"& a).Value

Essayes de l'enlever

 

[Profane]

Re : erreur de syntaxe boucle TextBox

merci toto, désolé pour la réponse tardive
effectivement cela fonctionne pour la syntaxe maintenant, par contre il ne recupere pas la valeur a de la fiche userformsaisie
bien que j'ai déclarer cette valeur comme public....
une idée ?

 

[Profane]

Re : erreur de syntaxe boucle TextBox

j'ai trouvé entre temps
je redeclare
a=userformsaisie.a
et je vire option explicit en début de code
par contre je le trouve long a liberer la fenetre, faut il reinitailiser quelque chose en fermant userformsaisie ?

 

[Pierrot93]

Re : erreur de syntaxe boucle TextBox

Bonjour Profane, Toto

déclare plutôt ta variable "a" dans un module standard plutôt que dans le module de l'usf...

bonne journée
@+

 

[Profane]

Re : erreur de syntaxe boucle TextBox

salut Pierrot 🙂
merci pour l'idée.