Grille d'ecoute qualitative

pody

XLDnaute Nouveau
Bonjour a tous

Un petit appel a contribution SVP, pour un fichier de grille d'ecoute qualitative:

L'objectif est de pondérer sur deux critères :

Un critère relatif au poids de l'item par rapport au poids global (ex l'ietm Accueil pèse 3 % de la note globale)

Un critère relatif au Non applicable (NA) (ex : Pas de reprise de ligne durant l'appel donc pas de prise en compte dans le calcul).

Une légende est mentionnée en bas de document, le pourcentage de reference unitaire se situe a gauche en rouge et doit prendre en compte les annotation selon l'indice saisi dans les colonnes d'appreciation.

Merci d'avance

Joyeux Noêl et meilleurs voeux pour 2008
 

Pièces jointes

  • Draft nouvelle grille.xls
    25.5 KB · Affichages: 2 499

JNP

XLDnaute Barbatruc
Re : Grille d'ecoute qualitative

Re... :),
Finalement, j'ai opté pour une notation sur 16 :
PS 0 : 0
PS 2 : 2
PS 4 : 4
AS 0 : 6
AS 2 : 8
AS 4 : 10
TS 0 : 12
TS 2 : 14
TS 4 : 16
Mais il suffira de corriger le code si ça ne te convient pas.
D'autre part, j'ai mis des validations dans les cellules pour n'autoriser que 0, 2, 4 et § et je vide les cellules autour si tu change la valeur dans une colonne.
J'ai réussi (il me semble...) à ce que l'utilisation du § soit neutre (recalcul du pourcentage)
Le seul cas où ça coince, c'est évidement si tu ne mets que des §... :eek:
J'ai supprimé les sous totaux (je voyais vraiment pas l'intérêt en dehors d'une étape dans le calcul)
Tiens moi au courant :cool:
 

Pièces jointes

  • DraftNouvelleGrilleJNP.xls
    56.5 KB · Affichages: 201
  • DraftNouvelleGrilleJNP.xls
    56.5 KB · Affichages: 205
  • DraftNouvelleGrilleJNP.xls
    56.5 KB · Affichages: 209

JNP

XLDnaute Barbatruc
Re : Grille d'ecoute qualitative

Bonjour Pody :),
Merci pour ton message privé, mais le mieux est de rester sur le forum pour les autres utilisateurs
Bonjour JNP
concernant ton premier fichier avec les croix, cela me va mais au niveau de la saisie d'un caractere pour item non applicable, cela n'est pas pris en compte lors du calcul et de ce fait pénalise le conseiller.
Est-il possible de revoir ce fichier car sur ton dernier avec la liste de choix, le saisie de § pour non applicable est prise en compte.
Merci
Tous mes voeux de bonheur et de santé pour cette nouvelle année
Donc après m'avoir fait frétiller des neurones sur ta double notation, tu reviens sur une seule échelle :D
Qui peut le plus peut le moins donc voici le fichier modifié. J'en ai profité pour échanger les listes de validation par de la sélection directe par simple clic vu que le seul choix est "X" dans PS, AS et TS et "§" dans NA.
J'en ai profité pour verrouiller la feuille et ne laisser accessible que les cellules dont tu avais besoin. Je n'ai pas mis de mot de passe.
Tous mes voeux à toi aussi et dit moi si cela fait enfin ton bonheur...
A bientôt :cool:
 

Pièces jointes

  • DraftNouvelleGrilleJNPSimplifiée.xls
    56.5 KB · Affichages: 329

pody

XLDnaute Nouveau
Re : Grille d'ecoute qualitative

Merci JNP pour ces efforts

Le systeme de verrouillage par deplacement est genial par contre pour la non prise en compte de NA cela fausse le calcul.

En fait le NA ne doit pas interfer sur le mode de calcul, exemple :
er
Admettons qu'un conseiller dans la partie 1 "Techniques de communication" ai 4 partout sur toute la colonne TS cela lui donne un total de 9/9, si je clique sur une cellule NA cela lui soustrait 1, ce qui lui donne 9-1 = 8.
Pas bon... car cela penalise le conseiller, il faut que NA ne soit pas pris en compte dans le calcul

On va y arriver :)

Merci
 
Dernière édition:

JNP

XLDnaute Barbatruc
Re : Grille d'ecoute qualitative

Re Pody, salut Jmd2 :),
Mea culpa, j'ai pêché par trop de confiance en moi :eek: et je n'ai pas testé ma formule complêtement. Voilà qui devrait faire l'affaire.
A + :cool:
 

Pièces jointes

  • DraftNouvelleGrilleJNPFinale.xls
    55.5 KB · Affichages: 218

pody

XLDnaute Nouveau
Re : Grille d'ecoute qualitative

Re Pody, salut Jmd2 :),
Mea culpa, j'ai pêché par trop de confiance en moi :eek: et je n'ai pas testé ma formule complêtement. Voilà qui devrait faire l'affaire.
A + :cool:

Bonjour, me revoila apres quelques jours de repos !

Merci JNP pour la correction, vraiment super !

Juste une question j'ai un autre fichier presque identitique, et j'aimerai savoir comment tu as fais pour qu'avec le clic cela genere automatiquement la croix X

merci
 

JNP

XLDnaute Barbatruc
Re : Grille d'ecoute qualitative

Bonjour Pody :),
Enchanté que ça te convienne (j'avoue que je me demandais si j'aurais la réponse finale...).
Pour la procédure sur clic, c'est celle-ci à copier et adapter dans le module de la feuille que tu veux contrôler :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR=seagreen]' Tests pour déterminer si le clic se produit dans une des cases[/COLOR]
[COLOR=seagreen]' qui nous intéresse... en quittant la sub si c'est pas le cas[/COLOR]
[COLOR=#2e8b57]' Colonnes autres que 4 à 7[/COLOR]
If Target.Column < 4 Or Target.Column > 7 Then Exit Sub
[COLOR=#2e8b57]' Ligne 1 à 13[/COLOR]
If Target.Row < 14 Then Exit Sub
[COLOR=#2e8b57]' Lignes entre 24 et 29[/COLOR]
If Target.Row > 23 And Target.Row < 30 Then Exit Sub
[COLOR=#2e8b57]' Lignes entre 36 et 48[/COLOR]
If Target.Row > 37 And Target.Row < 49 Then Exit Sub
[COLOR=#2e8b57]' Lignes 55 à ...[/COLOR]
If Target.Row > 54 Then Exit Sub
[COLOR=#2e8b57]' Déprotège la feuille[/COLOR]
ActiveSheet.Unprotect
[COLOR=#2e8b57]' Contrôle dans quelle colonne on se trouve[/COLOR]
Select Case Target.Column
    Case 4
[COLOR=#2e8b57]' Met un X dans la 4 et nettoie les 3 autres[/COLOR]
        Cells(Target.Row, 4) = "X"
        Cells(Target.Row, 5) = ""
        Cells(Target.Row, 6) = ""
        Cells(Target.Row, 7) = ""
    Case 5
[COLOR=#2e8b57]' Met un X dans la 5 et nettoie les 3 autres[/COLOR]
        Cells(Target.Row, 4) = ""
        Cells(Target.Row, 5) = "X"
        Cells(Target.Row, 6) = ""
        Cells(Target.Row, 7) = ""
    Case 6
[COLOR=#2e8b57]' Met un X dans la 6 et nettoie les 3 autres[/COLOR]
        Cells(Target.Row, 4) = ""
        Cells(Target.Row, 5) = ""
        Cells(Target.Row, 6) = "X"
        Cells(Target.Row, 7) = ""
    Case 7
[COLOR=#2e8b57]' Met un § dans la 7 et nettoie les 3 autres[/COLOR]
        Cells(Target.Row, 4) = ""
        Cells(Target.Row, 5) = ""
        Cells(Target.Row, 6) = ""
        Cells(Target.Row, 7) = "§"
    End Select
[COLOR=#2e8b57]' Reprotège la feuille[/COLOR]
ActiveSheet.Protect
End Sub
A bientôt :cool:
 

Statistiques des forums

Discussions
312 845
Messages
2 092 770
Membres
105 531
dernier inscrit
Fidele Lebeni