Soyez le premier à donner votre avis sur cette source.
Vue 7 140 fois - Téléchargée 344 fois
Private Sub LbtCalculer_Click() Dim Valeur1 As String Dim Valeur2 As String Dim Valeur3 As String Dim Reponse As String Dim Search As String If (Text1.Text = "X") Then Text1.Text = "" ElseIf (Text2.Text = "X") Then Text2.Text = "" ElseIf (Text3.Text = "X") Then Text3.Text = "" ElseIf (Text4.Text = "X") Then Text4.Text = "" End If If (Text1.Text = "") And (Text2.Text = "") Or (Text1.Text = "") And (Text3.Text = "") _ Or (Text1.Text = "") And (Text4.Text = "") Or (Text2.Text = "") And (Text3.Text = "") _ Or (Text2.Text = "") And (Text4.Text = "") Or (Text3.Text = "") And (Text4.Text = "") Then message = MsgBox("Vous devez entrer au moins 3 nombres pour pouvoir effectuer un calcul.", , "Règle de 3") Text1.SetFocus SendKeys "{Home}+{End}" ElseIf (Text1.Text <> "") And (Text2.Text <> "") And (Text3.Text <> "") And (Text4.Text <> "") Then message = MsgBox("Vous ne devez entrer que 3 nombres maximum. Sinon, pourquoi avoir besoin de moi ??", , "Règle de 3") ElseIf (Text1.Text = "") Then Text1.Text = "X" Text2.Text = Replace(Text2.Text, ".", ",") Valeur1 = (Text2.Text) Search = Text2.Text Text3.Text = Replace(Text3.Text, ".", ",") Valeur2 = (Text3.Text) Text4.Text = Replace(Text4.Text, ".", ",") Valeur3 = (Text4.Text) Reponse = (Valeur2 / Valeur3) * Valeur1 ElseIf (Text2.Text = "") Then Text2.Text = "X" Text1.Text = Replace(Text1.Text, ".", ",") Valeur1 = (Text1.Text) Search = Text1.Text Text3.Text = Replace(Text3.Text, ".", ",") Valeur2 = (Text3.Text) Text4.Text = Replace(Text4.Text, ".", ",") Valeur3 = (Text4.Text) Reponse = (Valeur3 / Valeur2) * Valeur1 ElseIf (Text3.Text = "") Then Text3.Text = "X" Text1.Text = Replace(Text1.Text, ".", ",") Valeur1 = (Text1.Text) Text2.Text = Replace(Text2.Text, ".", ",") Valeur2 = (Text2.Text) Text4.Text = Replace(Text4.Text, ".", ",") Valeur3 = (Text4.Text) Search = Text4.Text Reponse = (Valeur1 / Valeur2) * Valeur3 ElseIf (Text4.Text = "") Then Text4.Text = "X" Text1.Text = Replace(Text1.Text, ".", ",") Valeur1 = (Text1.Text) Text2.Text = Replace(Text2.Text, ".", ",") Valeur2 = (Text2.Text) Text3.Text = Replace(Text3.Text, ".", ",") Valeur3 = (Text3.Text) Search = Text3.Text Reponse = (Valeur2 / Valeur1) * Valeur3 End If List1.AddItem "X (" & Search & ") = " & "" & Reponse, 0 LbtEffacerLst.Enabled = True End Sub Private Sub LbtEffacer_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text1.SetFocus SendKeys "{Home}+{End}" End Sub Private Sub LbtEffacerLst_Click() List1.Clear Text1.SetFocus SendKeys "{Home}+{End}" LbtEffacerLst.Enabled = False End Sub Private Sub LbtQuitter_Click() End End Sub Private Sub Text1_Change() If (Text1.Text = "") Then LbtEffacer.Enabled = False Else LbtEffacer.Enabled = True End If End Sub Private Sub Text2_Change() If (Text2.Text = "") Then LbtEffacer.Enabled = False Else LbtEffacer.Enabled = True End If End Sub Private Sub Text3_Change() If (Text3.Text = "") Then LbtEffacer.Enabled = False Else LbtEffacer.Enabled = True End If End Sub Private Sub Text4_Change() If (Text4.Text = "") Then LbtEffacer.Enabled = False Else LbtEffacer.Enabled = True End If End Sub
$hîv@n
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.