VBA données vers Textbox

Bonjour Bonjour,

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

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:

---

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 :ccool:

Bonjour,
à tout hasard !

Code:

---

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

---

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:

---

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..

Citation:

---

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 ?

En fait le code :

Code:

---

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 :)

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

Yep C'est une Usf.

Privé/public je ne connais pas..
En fait j'ai commencé VBa hier :)

Citation:

---

Privé/public je ne connais pas..

---

Si tu n'as pas de module, ajoutes en un, sinon sur le premier module ou celui que tu as ajouté, tu ajoutes une variable qui servira à l'ensemble du projet tant qu'elle ne sera pas modifiée ou que le projet sera ouvert.

Dans le module

Code:

---

1 2	Option Explicit public mavariable as string'changes mavariable par ce que tu veux pourvu que ça ne soit pas un nom réservé, String pour la déclarer en texte

---

Comme convenu, voici le document légèrement modifié....
J'espère qu'avec ça je pourrais parfaitement comprendre..

Bon ! ça ne va pas du tout tes codes car tu tournes en boucle sur des USF,
Il faudrait que tu décomposes tes besoins car au stade de tes codes, je ne comprends rien, j'espère ne pas te vexer sachant que tu es débutant.
Une commande ne peut donner une valeur à un controle d'un autre USF s'il est fermé.

Bon courage

Oups ! :(

Je commence par quoi ?

Le bouton insertion fait appel à un formulaire "formulaire_sys_sol"
Celui-ci comporte de nombreuses données : Ces données que je remplirai me permettrons de créer des "lignes" de données sur ma page excel..

Après je n'ai pas de base vba donc je passe mon temps sur le net pour bidouiller mon code et dès que ça marche j'ose plus toucher.. :)

so sorry

Bonjour,
J'ai repris entièrement ton fichier afin de l'organiser (je le pense) plus proprement.
Je ne me suis, pour l'instant, occupé que de l'USF "formulaire_sys_sol".

A toi de réitérer ce que tu souhaites par la suite.

PS : il me reste un doute, j'ai remplacé ton textbox de date par un DtPicker, tu auras peut-être un bug, s'il n'est pas installé sur ton PC. Je ne peux, pour l'instant, avoir accès au Calendar.

Bonne fin de WE

Bonjour casefayere :),

Tout d'abord merci beaucoup pour ce document clean ! Seulement je me rends compte qu'il faut vraiment suivre une formation pour créer un code VBA..

Comment je peux traduire ce code ?

Code:

---

1 2 3 4

For x = 1 To UBound(donnees) If donnees(x, 2) = ComboBox3 And Trim(donnees(x, 3)) = "Commercial" Then ComboBox4.AddItem donnees(x, 1) End If

---

Histoire que je comprenne le procédé et puisse le réutiliser...

Pour la suite du "programme", je vous relance demain.. Je suis en mode révision ce soir...
J'espère que ça ne pose pas de soucis !
Merci encore et à demain !

Bonsoir,

ci-dessous le code avec les explications :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub ComboBox3_Change() ComboBox4.Clear 'on réinitialise les combo4 et combo5 à chaque changement de combo3 ComboBox5.Clear For x = 1 To UBound(donnees, 1) 'on fait une boucle de 1 à la plus grande dimension du tableau "donnees" 'ci-dessous, je m'assure que la 2ème colonne du tableau de donnees soit egale au combo3 et 'que la 3ème colonne du tableau sans les espaces éventuels inutiles (tu en avais), est égale à "Commercial" If donnees(x, 2) = ComboBox3 And Trim(donnees(x, 3)) = "Commercial" Then ComboBox4.AddItem donnees(x, 1) 'on ajoute un item à la combo si la condition est respectée End If Next x 'on incrémente x de 1 et on continue jusqu'aux dernières valeurs du tableau 'ci-dessous même principe que ci-dessus mais pour la combo5 avec "Applicateur" For x = 1 To UBound(donnees, 1) If donnees(x, 2) = ComboBox3 And Trim(donnees(x, 3)) = "Applicateur" Then ComboBox5.AddItem donnees(x, 1) End If Next x   End Sub

---

A demain

PS : je préfère traiter les données en passant par les tableaux car je ne sais pas si ta feuille en contiendra beaucoup (méthode plus rapide)

Bonjour Bonjour,

J'ai compris le fonctionnement donc c'est déjà un bon début..
Cependant quelle formule dois-je utiliser pour identifier le "text" de la combobox6 et lancer l'userform 1 / 3 ou 4 ?

Le principe est : je clique sur le bouton 1 : et l'userform1/3 ou 4 se lance en fonction des données de la combobox 6 "MI neuve, logements, renov"..


C'est plus facile à comprendre avec le fichier..
Tenez moi au courant..

Merci :ccool:

Bonsoir, on va avancer doucement, regardes ce que je te propose, à la place du combobox6 (plus besoin de bouton), il suffit d'utiliser les "OptionButton" qui selectionnent les pages d'un MultiPage, remplaçant les autres USF

fichier joint

Bonne soirée

Bonjour !

Simplement pour dire que je trouve la nouvelle config vraiment énorme !
Je ne savais même pas que l'on pouvait faire ça..

Juste une question cependant,
comment je dois interpréter le MP1 ??

Code:

---

1 2 3

Private Sub OptionButton1_Click() Me.MP1.Value = 0 End Sub

---

C'est juste cela qui m'intrigue vraiment..

La finalité de cette userform "formulaire_sys_sol" est de générer automatique des lignes de textes puis graph. Mais nous n'en sommes pas là.

Cependant, si j'obtiens les informations sur ma multipages, il sera possible d'utiliser les informations sélectionner vers une cellule ?
Si oui, dans ce cas la textbox8 "caractéristique" n'est plus nécessaire.

Merci beaucoup de prendre autant de temps..

Bonjour,
content que ça te plaise.
MP1 est le nom que j'ai donné au MultiPage

Code:

---

MP1.value = 0

---

selectionne la page 0 de MP1 sachant que les numéros de page commencent à 0

Citation:

---

Cependant, si j'obtiens les informations sur ma multipages, il sera possible d'utiliser les informations sélectionner vers une cellule ?

---

bien sur

Citation:

---

Si oui, dans ce cas la textbox8 "caractéristique" n'est plus nécessaire.

---

je ne connais pas ton but donc je ne sais pas

Citation:

---

La finalité de cette userform "formulaire_sys_sol" est de générer automatique des lignes de textes puis graph. Mais nous n'en sommes pas là.

---

Pour ça, il faudra ouvrir une nouvelle discussion
Si pour l'instant, le problème est résolu, jettes un oeil sur ma signature

Bon courage,

Un grand merci pour toute cette aide !

Je vais désormais créer un autre post :)

merci à vous et à bientôt