Discussion :

[jemigo]

Bonjour,

j'ai créé un UserForm contenant 7 TextBox et une ComBoxBox. Le principe du code est le suivant:
TextBox3 = TextBox1 + TextBox2
TextBox4 = entrer une valeur manuellement
TextBox5 = TextBox3 x TextBox4
TextComboBox = valeur change en fonction de du ComboxBox.

et enfin le calcul final: TextBox6 = TextBox5 x TextComboBox.

Le code actuel est fonctionnel mais n'est pas optimisé en fonction des changements de valeurs de certaines TextBox. Si je rentre les valeurs dans l'ordre suivant tout est fonctionnel:
TextBox1 => TextBox2 => TextBox4 => Choix Valeur de ComBoxBox. TextBox6 est updaté automatiquement.

cependant, Si je rentre des valeurs dans un autre ordre, par exemple en commençant par ComBox et ensuite TextBox1 et TextBox2, TextBox6 ne sera pas mise à jour automatiquement.

Ma question est la suivante: comment puis-je optimiser le code suivant de façon a mettre automatiquement à jour TextBox6 quelque soit l'ordre de saisie des autres TextBox ou Combo ?

Je coince un peu, à part mettre une condition de type Private TextBox .... Change(), je ne vois pas et ça ne couvre pas tous les cas.

Je vous remercie pour votre aide

[marot_r]

Bonjour.

Je ferai du code qui fait les modifications pour tous les champs calculés en gérant les valeurs nulls et je l'appellerai à la modification de chacun des champs.

Quelque chose comme :

Code :

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

1
2
3
private sub TextBox4_Change()
    call Calculer
end sub

Code :

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

1
2
3
private sub TextComboBox_Change()
    call Calculer
end sub

Code :

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

1
2
3
4
5
private sub Calculer()
   TextBox3 = iif(isnull(TextBox1,0,TextBox1)) + iif(isnull(TextBox2,0,TextBox2))
   TextBox5 = TextBox3 x iif(isnull(TextBox4,0,TextBox4))
   TextBox6 = TextBox5 x iif(isnull(TextComboBox,0,TextComboBox))
end if

Pour les codes _Change je ne suis pas sur de la signature de la procédure mais l'idée est là, tu recalcules tout à chaque fois si ou l'autre des champs est modifié.

A+

[jemigo]

Merci pour les infos, Je vais tester ça.

j'ai fait en attendant autrement. Mais je ne sais pas si c'est propre. Je refais l'ensemble des calculs lorsque la souris bouge dans la UserForm Ci-dessous, le code pour seulement textbox6. J'ai ensuite fait pareil pour Textbox3 et TextBox5 et textBox7,

Code :

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

1
2
3
4
5
6
7
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not ((TextBox5.Text = "") Or (TextBoxCombo.Text = "")) Then
            TextBox6 = (CDbl(TextBox5.Value) * CDbl(TextBoxCombo.Value))
            Me.TextBox6 = Format(Me.TextBox6, "# ##0.00 ")
 
  End If

[jemigo]

Bonjour.

Je ferai du code qui fait les modifications pour tous les champs calculés en gérant les valeurs nulls et je l'appellerai à la modification de chacun des champs.

Quelque chose comme :

Code :

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

1
2
3
private sub TextBox4_Change()
    call Calculer
end sub

Code :

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

1
2
3
private sub TextComboBox_Change()
    call Calculer
end sub

Code :

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

1
2
3
4
5
private sub Calculer()
   TextBox3 = iif(isnull(TextBox1,0,TextBox1)) + iif(isnull(TextBox2,0,TextBox2))
   TextBox5 = TextBox3 x iif(isnull(TextBox4,0,TextBox4))
   TextBox6 = TextBox5 x iif(isnull(TextComboBox,0,TextComboBox))
end if

Pour les codes _Change je ne suis pas sur de la signature de la procédure mais l'idée est là, tu recalcules tout à chaque fois si ou l'autre des champs est modifié.

A+

Je viens de tester cette méthode sans succès. Comment fonctionne l'argument "isnull"?
Quand je rentre des valeurs dans Textbox1 et Textbox2 j'ai une erreur: wrong arguments ISNULL qui s'affiche.