Calcul Vba sans bouton

I

i0raek

XLDnaute Occasionnel

• 30 Octobre 2008

• #2

Re : Calcul Vba sans bouton

Bonjour Manu62, bonjour Forum !!!

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

Code:

Worksheet_SelectionChange(ByVal Target As Range)

ou

Code:

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 ! 😉

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 30 Octobre 2008

• #3

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

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 30 Octobre 2008

• #4

Re : Calcul Vba sans bouton

Salut Manu62

essayé ca :

Code:

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

Cordialement

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 30 Octobre 2008

• #5

Re : Calcul Vba sans bouton

salut Manu, le Forum

Peut-être comme cela

Code:

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

Code:

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

 

Dernière édition: 30 Octobre 2008

Vote positif 0 Vote négatif

I

i0raek

XLDnaute Occasionnel

• 30 Octobre 2008

• #6

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 :

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 !

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 30 Octobre 2008

• #7

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

 

Vote positif 0 Vote négatif

I

i0raek

XLDnaute Occasionnel

• 30 Octobre 2008

• #8

Re : Calcul Vba sans bouton

Re !

Avec un petit :

Code:

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

voilou !

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 30 Octobre 2008

• #9

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

 

Vote positif 0 Vote négatif