bredeche
XLDnaute Occasionnel
Bonjour,
je voudrais que le calcule se fasse automatiquement se fasse via une table je m'explique
actuellement via un userform une sélection d' option buttons donne le résultat de 2 note
a cela j'ai une une formule sur ma feuille recap en colonne M et N qui donne 2 états ,mais j'ai des problèmes pour la note finale qui sera A ou B ou C
je pense que pour tout cela passé pas une table de correspondance serai le mieux mais je n'y arrive pas ,et surtout cela évitera a qui que se soit efface le formules
calcule des notes' via mon userform et option buttons
Private Sub CommandButton2_Click()
TextRESUETAT = (CDbl(TextBox1.Value) * CDbl(TextBox2.Value) * CDbl(TextBox3.Value))
TextRESUCRIT = (CDbl(TextBox4.Value) * CDbl(TextBox5.Value) * CDbl(TextBox6.Value))
Set ws = Sheets("Donné équipement")
l = ws.Cells.Find(ComEQUI.Value, , , xlWhole).Row
ws.Range("i" & l).Value = TextRESUETAT
ws.Range("j" & l).Value = TextRESUCRIT
End Sub
la table est la suivante
si mauvais et faible la note est b
si mauvais et moyenne la note est c
si mauvais et forte la note est c
si usuel et faible la note a
si usuel et moyenne la note b
si usuel et forte la note b
si bon et faible la note a
si bon et moyenne la note a
si bon et forte la note a
Ce lien n'existe plus
merci de votre aide pour ce sujet
je voudrais que le calcule se fasse automatiquement se fasse via une table je m'explique
actuellement via un userform une sélection d' option buttons donne le résultat de 2 note
a cela j'ai une une formule sur ma feuille recap en colonne M et N qui donne 2 états ,mais j'ai des problèmes pour la note finale qui sera A ou B ou C
je pense que pour tout cela passé pas une table de correspondance serai le mieux mais je n'y arrive pas ,et surtout cela évitera a qui que se soit efface le formules
calcule des notes' via mon userform et option buttons
Private Sub CommandButton2_Click()
TextRESUETAT = (CDbl(TextBox1.Value) * CDbl(TextBox2.Value) * CDbl(TextBox3.Value))
TextRESUCRIT = (CDbl(TextBox4.Value) * CDbl(TextBox5.Value) * CDbl(TextBox6.Value))
Set ws = Sheets("Donné équipement")
l = ws.Cells.Find(ComEQUI.Value, , , xlWhole).Row
ws.Range("i" & l).Value = TextRESUETAT
ws.Range("j" & l).Value = TextRESUCRIT
End Sub
la table est la suivante
si mauvais et faible la note est b
si mauvais et moyenne la note est c
si mauvais et forte la note est c
si usuel et faible la note a
si usuel et moyenne la note b
si usuel et forte la note b
si bon et faible la note a
si bon et moyenne la note a
si bon et forte la note a
Ce lien n'existe plus
merci de votre aide pour ce sujet