VBA données vers Textbox

**vinz33vinz** · 20/04/2012, 16h26

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** · 20/04/2012, 16h41

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** · 20/04/2012, 17h29

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** · 20/04/2012, 17h38

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** · 20/04/2012, 17h44

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** · 20/04/2012, 17h47

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

**vinz33vinz** · 20/04/2012, 17h53

Yep C'est une Usf.

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

**casefayere** · 20/04/2012, 17h58

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 :

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

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

**vinz33vinz** · 20/04/2012, 19h07

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

**casefayere** · 20/04/2012, 19h23

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

**vinz33vinz** · 20/04/2012, 19h35

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

**casefayere** · 22/04/2012, 16h25

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

**vinz33vinz** · 23/04/2012, 18h06

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 :

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

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 !

**casefayere** · 23/04/2012, 20h00

Bonsoir,

ci-dessous le code avec les explications :

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

**vinz33vinz** · 24/04/2012, 18h38

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

**casefayere** · 24/04/2012, 20h05

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

**vinz33vinz** · 25/04/2012, 13h03

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 :

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

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