Calcul Vba sans bouton

[Manu62]

Bonjour à tous,

J'ai le code suivant : ("extrait")

Private Sub CommandButton9_Click()
On Error Resume Next
TextBox28.Value = TextBox24 * TextBox26
TextBox28 = Format(TextBox28, "##.00")
End sub

Peux t'on avoir la même chose mais en affichage instantané. sans faire le click button.

Merci de votre aide

Manu

 

[i0raek]

Re : Calcul Vba sans bouton

Bonjour Manu62, bonjour Forum !!!

c'est effectivement possible en lien ta maccro à l'événement :

Worksheet_SelectionChange(ByVal Target As Range)

ou

Worksheet_Change(ByVal Target As Range)

dans le premier cas, le calcul se fait à chaque changement de sélection sur la feuille et le second à partir de chaque calcul de la feuille !

voila !!! bon courage ! 😉

 

[Manu62]

Re : Calcul Vba sans bouton

Bonjour i0raek, Le forum,

Merci de ta réponse.

pour info, je saisi mes données dans un USF.

J'ai déjà utilisé ce code, mais dans des feuilles.

Comment je peux faire cela dans mon USF ?

Merci

Manu

 

[BERRACHED said]

Re : Calcul Vba sans bouton

Salut Manu62

essayé ca :

Private Sub TextBox26_Change()
On Error Resume Next
TextBox28.Value = TextBox24 * TextBox26
End Sub

Cordialement

 

[Dull]

Re : Calcul Vba sans bouton

salut Manu, le Forum

Peut-être comme cela

Private Sub TextBox26_Change()
On Error Resume Next
TextBox28.Value = TextBox24 * TextBox26
TextBox28 = Format(TextBox28, "##.00")
End Sub

Au changement de la TextBox26 la Multiplication ce fait

Ou alors APRÈS le changement de la TextBox26 'validation par entrée

Private Sub TextBox26_AfterUpdate()
On Error Resume Next
TextBox28.Value = TextBox24 * TextBox26
TextBox28 = Format(TextBox28, "##.00")
End Sub

A toi de Voir

A supposer que l'on parle de la même chose
Essai effectué sur un UserForm

EDITION: Salut Said 🙂
Re Edith: Salut iOraek je ne t'avais pas vu 😱
Bonne Journée

 

[i0raek]

Re : Calcul Vba sans bouton

Re !

et bien de la même facon... sauf que ce n'est peut être pas top... l'événement qui déclenche le calcul c'est quoi ? un changement dans la userform ou dans la feuille de calcul ?

si c'est dans la userform c'est avec un événement lié à l'objet si c'est la suite à une modif de la feuille de calcul, tu procèdes ainsi en raccourcissant un peu le code :

Sub Sub Worksheet_Change(ByVal Target As Range)

     userform1.TextBox28.Value = Format(userform1.TextBox24.value * userform1.TextBox26.value,"##.00")

End Sub

voila !

ps 1 : si la USF n'est pas lancer, la procédure initialisera la USF.
ps 2 : ne pas oublier de mettre showmodal à false de la USF !

 

[Manu62]

Re : Calcul Vba sans bouton

Bonjour Said, Dull, i0raek, Le forum,

Merci pour code...

J'ai un petit truc en sus à vous demander.

Mon code est le suivant.
TextBox20.Value = TextBox14 * TextBox16 * TextBox18

Comment peux t'on dire si :
la textbox =0 alors faire TextBox16 * TextBox18
et si
la textbox > 0 alors TextBox14 * TextBox16 * TextBox18

Merci à vous

Manu

 

[i0raek]

Re : Calcul Vba sans bouton

Re !

Avec un petit :

If text.value=0 then
     ...
elseif text.value>0 then
     ...
else
     ...
end if

voilou !

 

[Manu62]

Re : Calcul Vba sans bouton

Merci pour vos commentaires.

Ci dessous le code pour celui qui souhaite s'en servir.

Private Sub TextBox18_Change()
On Error Resume Next
If TextBox14.Value = 0 Then
TextBox20.Value = TextBox16 * TextBox18
ElseIf TextBox14.Value > 0 Then
TextBox20.Value = TextBox14 * TextBox16 * TextBox18
End If
End Sub

Merci

Manu