Discussion :

[vinz33vinz]

Bonjour Bonjour,

Comme vos conseils d'hier soir m'ont permis de réussir une 1ère étape je reviens à nouveau poser une interrogation.

J'ai un formulaire :UserForm1 composé de :

• textobox1 (uniquement du texte)
• checkbox2 : Isolant Thermique sur dalle
• Checkbox3 : Carrelage collé

Ainsi qu'un bouton de validation : CommandButton2

Je souhaite que lorsque j'appuie sur ce bouton les données écrites ET choisies (checkbox2 ou 3) s'affichent dans :

• La TextBox8 du formulaire formulaire_sys_sol

Comment faire ????
J'ai réalisé le code suivant mais cela ne fonctionne pas....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton2_click()
 
Me.TextBox1.Text = Formulaire_sys_sol.TextBox1.Text
 
If UserForm1.checkbox1.Value = True Then
 
formulaire_sys_sol.TextBox8.Text = "Isolant Thermique sur dalle"
 
End If
 
If UserForm1CheckBox2.Value = True Then
 
formulaire_sys_sol.TextBox8.Text = "Carrelage collé"
 
Unload Me
 
End If
 
End Sub

Merci Merci

[casefayere]

Bonjour,
à tout hasard !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton2_click()
 
Me.TextBox1 = formulaire_sys_sol.TextBox1
If UserForm1.checkbox1.Value = True Then
  formulaire_sys_sol.TextBox8 = "Isolant Thermique sur dalle" 'vérifies le bon USF
ElseIf UserForm1.CheckBox2.Value = True Then
  formulaire_sys_sol.TextBox8 = "Carrelage collé" 'vérifies le bon USF et tu as oublié un "."
End If
 
End Sub

[vinz33vinz]

Hey merci. l'idée est là. Par contre je m'étais trompé dans les noms des checkbox donc ça ne fonctionnait pas...

le code devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton2_click()
Me.TextBox1 = Formulaire_sys_sol.TextBox1
If UserForm1.CheckBox2.Value = True Then
  Formulaire_sys_sol.TextBox8 = "Isolant Thermique sur dalle" 'vérifies le bon USF
ElseIf UserForm1.CheckBox3.Value = True Then
  Formulaire_sys_sol.TextBox8 = "Carrelage collé" 'vérifies le bon USF et tu as oublié un "."
End If
 End Sub

Mais il y a un problème, si je n'arrive pas à mettre deux ou trois valeur dans cette textbox8.
J'arrive à envoyer que les valeurs de la checkbox2..

[casefayere]

Mais il y a un problème, si je n'arrive pas à mettre deux ou trois valeur dans cette textbox8.

Que veux-tu dire ? Les ChekBox peuvent-elles être cochées toutes les deux ?

Faut-il concaténer les valeurs du textbox1 et des CheckBox cochées ?

[vinz33vinz]

En fait le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TextBox1 = Formulaire_sys_sol.TextBox8

Ne fonctionne pas..

Pour le reste, oui les checkbox peuvent être à choix multiples mais je viens de le faire donc ça marche.


C'est juste le texte de la textbox1 qui ne fait pas son job

[casefayere]

Qu'est-ce que "Formulaire_sys_sol", un USF ? Si oui, est-il ouvert ? Ne faudrait t-il pas passer par une variable "Public" ?