Discussion :

[SportUltime54]

Bonjour a tous

Je coince dans une formule j'arrive à la mettre dans une cellule d'excel mais pas en code VBA.

En effet mon programme dispose d'une comboBox et de 8 TextBox dans le même Userform. Mon code que j'aimerai trouve est pour le cas suivant :

je saisie 4 Chiffre dans 4 TextBox différentes ( TextBox2, TextBox3, TextBox4 et TextBox5) et j'aimerai faire la moyenne dans la TextBox6. Mais cette moyenne je ne veux pas quelle addictionne les 4 puis divise par 4.
J'aimerai que le code trouve le chiffre le plus grand et le plus petit des 4 TextBox ignore ces chiffres et fait la moyenne traditionnel avec les 2 autres chiffre qui sont entre le plus grand et le plus petits chiffre des 4 TextBox

Je vous met la formule que j'ai mis pour la mettre dans une cellule :

arrondie.au.multiple(B10+C10+D10+E10-MIN(B10:E10)-MAX(B10:E10))/2);0,05)

Merci pour l'aide, j'espère de ne pas être trop flou dans mes explications.

[Djohn92]

Si ta fonction Excel marche : Utilises la fonction evaluate !

Code :

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

MsgBox evaluate("=(B10+C10+D10+E10-MIN(B10:E10)-MAX(B10:E10))/2)")

/!\ Air code

a quoi sert le "0.05" ?


Après, si tu veux transcrire ça en VBA, au PIRE tu peux remplacer les valeurs de ta formule ci dessus par du code "classique"

Code :

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

debug.print Evaluate("(" & v1 & "+" & v2 & "+" & v3 & "+" & V4 & "-MIN(" & v1 & "," & v2 & "," & v3 & "," & V4 & ")-MAX(" & v1 & "," & v2 & "," & v3 & "," & V4 & "))/2")

[SportUltime54]

Si ta fonction Excel marche : Utilises la fonction evaluate !

Code :

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

MsgBox evaluate("=(B10+C10+D10+E10-MIN(B10:E10)-MAX(B10:E10))/2)")

/!\ Air code

a quoi sert le "0.05" ?


Après, si tu veux transcrire ça en VBA, au PIRE tu peux remplacer les valeurs de ta formule ci dessus par du code "classique"

Code :

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

debug.print Evaluate("(" & v1 & "+" & v2 & "+" & v3 & "+" & V4 & "-MIN(" & v1 & "," & v2 & "," & v3 & "," & V4 & ")-MAX(" & v1 & "," & v2 & "," & v3 & "," & V4 & "))/2")

Salut,

Merci pour ton aide

Le 0.05 c est pour l'arrondis, car j'aimerai que la moyenne soit arrondit au 0.05 près.

Sur la deuxième formule, que tu me propose, je peux remplacer les v1, v2,...., par Texbox1, TextBox2,....?

Les valeurs sont rentrer dans les Textboxs dans l'userform.

[joe.levrai]

Bonjour,

pourquoi passer par evaluate quand un simple tableau d'indice 2 à 5 suffit ?

Code :

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

1
2
3
4
5
6
Dim Tablo(2 To 5)
 
For i = LBound(Tablo) To UBound(Tablo)
    Tablo(i) = CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
Next i
resultat = (Application.Sum(Tablo) - Application.Min(Tablo) - Application.Max(Tablo)) / 2

ne reste qu'à gérer l'éventuel arrondit, à vous de jouer

[SportUltime54]

Bonjour,

pourquoi passer par evaluate quand un simple tableau d'indice 2 à 5 suffit ?

Code :

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

1
2
3
4
5
6
Dim Tablo(2 To 5)
 
For i = LBound(Tablo) To UBound(Tablo)
    Tablo(i) = CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
Next i
resultat = (Application.Sum(Tablo) - Application.Min(Tablo) - Application.Max(Tablo)) / 2

ne reste qu'à gérer l'éventuel arrondit, à vous de jouer

Bonjour,

J'ai essayer ce code, mais aucune moyenne apparait, j'ai mis ce code dans ma TextBox6.
Ce code prend bien le code de mes texbox2 à 5 et met la moyenne (comme précisez au dessus) ?

Etant un débutant, j'essaye de comprendre chaque code, c 'est pas évident

Merci de votre aide

[joe.levrai]

Bonjour,

mon code actuel transmet à la variable "resultat" le résultat du calcul

il faut que tu ajoutes une lignes pour transmettre ce résultat à ta textbox6

reste à savoir à quel moment tu veux que ça s'affiche.

Par exemple, admettons que tu disposes un Boutton appelé "Bt_Resultat"

quand tu cliques dessus, il fait le calcul et le met dans Textbox6

Code :

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

1
2
3
4
5
6
7
8
Private Sub Bt_Resultat_Click()
Dim Tablo(2 To 5)
 
For i = LBound(Tablo) To UBound(Tablo)
    Tablo(i) = CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
Next i
Me.TextBox6.Value = (Application.Sum(Tablo) - Application.Min(Tablo) - Application.Max(Tablo)) / 2
End Sub

[SportUltime54]

Bonjour,

mon code actuel transmet à la variable "resultat" le résultat du calcul

il faut que tu ajoutes une lignes pour transmettre ce résultat à ta textbox6

reste à savoir à quel moment tu veux que ça s'affiche.

Par exemple, admettons que tu disposes un Boutton appelé "Bt_Resultat"

quand tu cliques dessus, il fait le calcul et le met dans Textbox6

Code :

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

1
2
3
4
5
6
7
8
Private Sub Bt_Resultat_Click()
Dim Tablo(2 To 5)
 
For i = LBound(Tablo) To UBound(Tablo)
    Tablo(i) = CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
Next i
Me.TextBox6.Value = (Application.Sum(Tablo) - Application.Min(Tablo) - Application.Max(Tablo)) / 2
End Sub

Mon souhait est que la moyenne se calcul automatiquement en remplissant les textbox2 à 5, sans l'aide de bouton.
De plus j'ai déjà un code dans la textBox6, est ce que je peux mettre les 2, si oui est ce que l'ordre a une importance ?

Merci de votre aide

[joe.levrai]

le gérer dynamiquement est plus délicat ...

on pourrait par exemple détecter que dès que les 4 textbox sont remplis et contiennent bien des chiffres, ça effectue le calcul et le renvoie dans textbox6

si au contraire il manque un chiffre... on efface le résultat

c'est à toi de préciser

[SportUltime54]

le gérer dynamiquement est plus délicat ...

on pourrait par exemple détecter que dès que les 4 textbox sont remplis et contiennent bien des chiffres, ça effectue le calcul et le renvoie dans textbox6

si au contraire il manque un chiffre... on efface le résultat

c'est à toi de préciser

Oui j'aimerai que la moyenne ce généré automatiquement.

Ton idée correspond un peut prêt à mes attentes. Je voulais savoir si c’était possible de limiter les saisies. Je voudrai qu'il refuse les nombre négatif et les nombres nombre supérieur à 10.

Merci pour ton aide