Discussion :

[kardo]

Bonjour à tous et merci par avance de toute l'aide que vous pourrez me fournir.
Je vous soumets ma requête :

J'ai une plage de données constitué de lettres qui font référence à un nombre de points. La formule générant le résultat est :

Code :

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

=SI(OU(A1="";B1="";C1="";D1="";E1="");"";(SI(AV7="i";1;SI(A1="p";2;SI(AV7="b";3;SI(A1="t";4;0))))+SI(B1="i";1;SI(B1="p";2;SI(B1="b";3;SI(B1="t";4;0))))+SI(C1="i";1;SI(C1="p";2;SI(C1="b";3;SI(C1="t";4;0))))+SI(D1="i";1;SI(D1="p";2;SI(D1="b";3;SI(D1="t";4;0))))+SI(E1="i";1;SI(E1="p";2;SI(E1="b";3;SI(E1="t";4;0))))))

Cette formule fait référence à 4 colonnes de notes et 4 niveaux (i, p, b, t)

Je souhaiterais que ma formule en VBA me détecte automatiquement le nombre de colonnes de notes, que soit défini au préalable le nombre de niveaux d'évaluation (4 à 6) et que le résultats soit automatiquement inscrit dans la cellule correspondant à chaque élève.

J'espère avoir été assez clair.

Merci par avance.

[mercatog]

Non pas clair, il serait mieux de faire une description détaillée (sans la formule)

[kardo]

Bonjour,

Comme un exemple vaut mieux qu'un long discourt, voici un extrait du fichier :

http://uploading.com/files/1c2b3ffa/Note.xlsx/

Je souhaite donc que les résultats de la colonne I soit générés en fonction du nombre de colonne insérer, dans l'exemple de B à H donc 7 critères d'évaluation et en fonction du nombre de niveau d'appréciation 4 ou 5 ou 6. Ici la cellule I3, donne le nombre de niveau désiré :
- si 4 est choisi alors les niveaux seront n, i, b, t
- si 5 est choisi alors les niveaux seront n, i, p, b, t
- si 6 est choisi alors les niveaux seront n, i, p, m, b, t.

Le but étant de générer une note sur 20 points en fonction du nombre de critère et du nombre de niveaux d'appréciation

J'espère avoir été plus clair.

[mercatog]

Voila une proposition pour laquelle on utilise des listes de validation et l'évènement Change de la feuille.
- A chaque saisie d'un élève en colonne A, on crée des listes de validation de B à H sur la même ligne. Les items de cette liste sont en fonction du niveau d'appréciation en I3.
- A chaque entrée d'un critère (à l'aide de la liste de validation), la note est insérée dans la colonne I
Codes à mettre dans le module de la feuille:

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Niv As Byte
Dim Crit As String
 
If Target.Count = 1 And Target.Row >= 5 Then
    If Target.Column = 1 Then
        Crit = "n,i,p,b,t,m"
        Niv = Range("I3").Value
        Crit = Left(Crit, 2 * Niv - 1)
        With Range("B" & Target.Row & ":H" & Target.Row).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Crit
        End With
    Else
        If Target.Column <= 8 Then Range("I" & Target.Row) = Sigma(Range("B" & Target.Row & ":H" & Target.Row))
    End If
End If
End Sub
 
'Fonction qui calcule la note finale sur 20
Private Function Sigma(Rng As Range) As Integer
Dim n As Integer
Dim c As Range
Dim Crit As String
 
Crit = "n,i,p,b,t,m"
For Each c In Rng
    n = n + (InStr(Crit, c.Value) - 1) / 2
Next c
Sigma = n * 4 / 7
End Function

[kardo]

Déjà je te remercie pour le temps que tu as consacré à ma demande.

Je ne veux pas abuser mais pourrais tu compléter le fichier que j'ai mis en exemple avec les macros car je ne sais pas comment les insérer.

Merci par avance

[mercatog]

Bon, j'ai un peu modifié le code précédent pour tenir en compte le nombre effectif des appréciations

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Niv As Byte
Dim Crit As String
 
If Target.Count = 1 And Target.Row >= 4 Then
    Niv = Range("I2").Value
    If Target.Column = 1 Then
        Crit = "n,i,p,b,t,m"
        Crit = Left(Crit, 2 * Niv - 1)
        Range("A" & Target.Row & ":I" & Target.Row).Borders.LineStyle = xlContinuous
        With Range("B" & Target.Row & ":H" & Target.Row).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Crit
        End With
    Else
        If Target.Column <= 8 And Range("A" & Target.Row) <> "" Then Range("I" & Target.Row) = Sigma(Range("B" & Target.Row & ":H" & Target.Row), Niv)
    End If
End If
End Sub
 
Private Function Sigma(Rng As Range, Niv As Byte) As Double
Dim Coef As Byte
Dim n As Integer
Dim c As Range
Dim Crit As String
 
Crit = "n,i,p,b,t,m"
Coef = Rng.SpecialCells(xlCellTypeConstants).Count
For Each c In Rng.SpecialCells(xlCellTypeConstants)
    n = n + (InStr(Crit, c.Value) - 1) / 2
Next c
Sigma = Application.RoundUp(n * 20 / (Coef * (Niv - 1)), 2)
End Function

Ci-joint Fichier démo