Ben871
Messages postés8Date d'inscriptionmercredi 14 mai 2008StatutMembreDernière intervention20 mai 2008
-
19 mai 2008 à 21:27
jimy neutron
Messages postés490Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 2016
-
20 mai 2008 à 21:31
Bonjour,
Je voudrais savoir si quelqu'un pourrait m'aider a transformer une valeur écrite dans un textbox en une ligne de code
jimy neutron
Messages postés490Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 20161 19 mai 2008 à 21:46
Bonjour,
Honnêtement, je ne saisie pas très bien, logiquement, on ne peut pas executer un code non compilé, sinon pourquoi utiliser VB, un code dans le bloc-notes suffirait!
Si la formule du textBox3 est A * B, le textbox3 est inutile...
Par contre, si les formules sont les mêmes et sont connues, propose les dans un combobx, et utilise Textbox1 et 2 pour les valeurs de calculs...
Ben871
Messages postés8Date d'inscriptionmercredi 14 mai 2008StatutMembreDernière intervention20 mai 2008 19 mai 2008 à 23:35
le probleme c'est ça, elle ne sont jamais connus d'avance, dans l'exemple c'était A * B mais ça pourrait être aussi bien A + B , 2*A+B, la racine de ((2*A)+(2*B))... ça dépend de ce que l'utilisateur a besoin
le Textbox3 est la pour savoir ce qu'il veut.
Ce foumulaire est créer de toute pieces par code, il ne me reste que ce probleme a regler.
voila la dernière partie du code de création de formulaire:
Private Sub GénérerDépartement_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GénérerDépartement.Click
Dim Formulaire As New Form
Formulaire = New System.Windows.Forms.Form
Formulaire.Name = NoDépartement.Text & " " & NomDépartement.Text
Formulaire.Text = NoDépartement.Text & " " & NomDépartement.Text
Formulaire.AutoSize = True
Dim ÉtiquetteBoite As System.Windows.Forms.Label
Dim NbBoite As Integer = CInt(NombreBoite.Text)
Dim PositionNbBoite As Integer = 12
For i = 1 To NbBoite
ÉtiquetteBoite = New System.Windows.Forms.Label
ÉtiquetteBoite.Name = Me.Controls("boite" & CStr(i)).Text
ÉtiquetteBoite.Text = Me.Controls("boite" & CStr(i)).Text
ÉtiquetteBoite.Location = New Point(PositionNbBoite, 12)
ÉtiquetteBoite.Size = New Size(75, 13)
Formulaire.Controls.Add(ÉtiquetteBoite)
Dim BoiteForm As System.Windows.Forms.TextBox
BoiteForm = New System.Windows.Forms.TextBox
BoiteForm.Location = New Point(PositionNbBoite, 28)
BoiteForm.TabIndex = 14
PositionNbBoite = PositionNbBoite + 85
BoiteForm.Width = 75
Formulaire.Controls.Add(BoiteForm)
Next
Dim ÉtiquetteColonne As System.Windows.Forms.Label
Dim ÉtiquetteFormuleColonne As System.Windows.Forms.Label
Dim NbColonne As Integer = CInt(NombreColonneCalcul.Text)
For j = 1 To NbColonne
ÉtiquetteColonne = New System.Windows.Forms.Label
ÉtiquetteColonne.Name = Me.Controls("colonne" & CStr(j)).Text
ÉtiquetteColonne.Text = Me.Controls("Colonne" & CStr(j)).Text
ÉtiquetteColonne.Location = New Point(PositionNbBoite, 12)
ÉtiquetteColonne.Size = New Size(75, 13)
Formulaire.Controls.Add(ÉtiquetteColonne)
ÉtiquetteFormuleColonne = New System.Windows.Forms.Label
'ici serait le code pour récupérer la formule dicter par l'utilisateur dans le Textbox3
jimy neutron
Messages postés490Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 20161 20 mai 2008 à 08:23
"le probleme c'est ça, elle ne sont jamais connus d'avance, dans l'exemple c'était A * B mais ça pourrait être aussi bien A + B , 2*A+B, la racine de ((2*A)+(2*B))... ça dépend de ce que l'utilisateur a besoin"
En gros,il te faut recreer une caculatrice.... Reconnaissance des opérateurs mathématiques, etc...
jimy neutron
Messages postés490Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 20161 20 mai 2008 à 21:31
Ne connaissant pas vb2008, je ne peux malheureusement pas t'aider d'avantage.
Mais dans le principe, excel reconnait les operandes, la priorités des parentheses...dans une formule et les traite par code.
C'est ce principe que tu dois reproduire. HOT!