Discussion :

[cbredeche]

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

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
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

merci de votre aide pour ce sujet

[MarcelG]

Bonjour à toi,
Bonjour au Forum,

Pour y voir plus clair, peux-tu retourner un exemplaire simplifié (avec peu d'enregistrements) de ton fichier avec le code complet affecté à ton formulaire.
Et, s'il te plaît, nomme tes contrôles
exemple : Txt_lanote1

[cbredeche]

trouvez ci joint mon fichier
https://mon-partage.fr/f/Cg1zNfOW/

[MarcelG]

Salut,

Pour faire "propre"
- en incluant les 2 notes intermédiaires et en calculant la note finale (a, b, c).
- la variable ws ne sert à rien
- j'ai renommé ton bouton
- il est préférable, pour plus de lisibilité, de nommer les contrôles en les préfixant de 2 ou 3 lettres qui en évoquent la nature suivies de "_"
exemple : Txt_lemachin, Opt_monoption, Cbx_choix1....

- la solution à ta question est l'utilisation de la méthode

Code :

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

Select Case True

que je te laisse compléter

Une recommandation :
Etant donné le nombre d'évènements affectés aux mêmes types de contrôles, il te serait utile d'aborder, quand tu y seras disponible, les modules de classe.

Etudie bien le code suivant, ligne par ligne, et reviens si nécessaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
'enregistrement et protection blocage des donnees'
 
Private Sub Btn_maj_feuille_Click()
 
Dim l_info As Integer
Dim note_1 As String, note_2 As String, lanote As String
 
 
With ThisWorkbook.Worksheets("TABLEAU RECAP")
        l_info = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        .Range("B" & l_info).Value = ComEQUI 'libelle equipement'
        .Range("c" & l_info).Value = Textlocal 'code local"
        .Range("D" & l_info).Value = ComRESP 'Nom du responsable'
        .Range("E" & l_info).Value = TextDATEAM 'date du constat'
        .Range("F" & l_info).Value = TextMISE 'date de mise en service'
        .Range("G" & l_info).Value = CInt(TextDUREVIE.Value)  'Duree de vie theorique'
        .Range("H" & l_info).Value = TextREMPL 'Date theorique de remplacement '
        .Range("I" & l_info).Value = CInt(TextDURVIERESI.Value)  'Duree de vie residuelle '
        .Range("J" & l_info).Value = TextESTIMREMPL 'Duree de vie residuelle '
        .Range("K" & l_info).Value = CInt(TextRESUETAT.Value) 'note de etat equipement'
        .Range("l" & l_info).Value = CInt(TextRESUCRIT.Value) 'note de criticite equipement'
 
         With .Range("M" & l_info)
                'formulation
                .FormulaR1C1 = "=IF(RC[-2]<=21,""Mauvais"",IF(RC[-2]<=43,""Usuel"",IF(RC[-2]<=64,""Bon"")))"
                'équivaut à un collage spécial valeur (merci au grand mercatog)
                .Value = .Value
                note_1 = .Value
         End With
 
         With .Range("N" & l_info)
                'formulation
                .FormulaR1C1 = "=IF(RC[-2]<=21,""Faible"",IF(RC[-2]<=43,""Moyenne"",IF(RC[-2]<=64,""Forte"")))"
                'équivaut à un collage spécial valeur (merci au grand mercatog)
                .Value = .Value
                note_2 = .Value
         End With
 
        Select Case True
                    Case note_1 = "Mauvais" And note_2 = "Faible"
                            lanote = "b"
                    Case note_1 = "Mauvais" And note_2 = "Moyenne"
                            lanote = "c"
                     'etc...
        End Select
 
        .Range("O" & l_info).Value = lanote
        .Range("P" & l_info).Value = TextCOMM 'texte dans commentaire
 
 End With
 
Me.hide
Unload Me
 
End Sub

[cbredeche]

merci beaucoup cela marche

[MarcelG]

D'accord.
Aucune question sur les notions abordées?.....
Place cette discussion en "Résolue" et bonne chance pour la suite.