Comparer des valeurs et renvoyer une fleche...

[chrisclaret]

Bonjour,

J'ai realise un bulletin d'evaluation par competence pour le college.
Je bloque sur la fin...
En effet , je souhaiterais comparer les points de couleurs de T1 et T2 et suivant l'evolution afficher ds la colonne Q le resultat par une fleche.
Dans les colonnes T1,T2,T3 je fais la moyenne des compétences de la ligne consideree.
Je deplace la formule moy d'un trimestre à l'autre et je fais un copier coller valeur pour conserver la colonne de gauche et ainsi comparer les trimestres consécutifs.
J'ai une formule en Q que j'utilisais ailleurs et qui compare les valeurs en T1 et T2 mais comme un point de couleur correspond à un intervalle de reussite cela pause probleme.
Ex;
0<moy<25% alors rouge
25<moy<50% alors orange
50<moy<75% alors bleu
75<moy<100% alors vert.

Si l'eleve a eu orange et orange en T1 et T2 il me faudrait une fleche horizontale or comme chaque orange correspond a une valeur souvent differente compris dans un intervalle il compare les valeurs et me met une fleche verte.(Ex en Q13).
Il faudrait que suivant l'intervalle ds laquelle se situe la moy im me renvoie dans T1,T2... la valeur 0.25 ou 0.5 ou 0.75 pour pouvoir ensuite etre comparé mais je n'y arrive pas , à moins qu'une autre idee existe...
Voilà...
Chris

 

[ChTi160]

Re : Comparer des valeurs et renvoyer une fleche...

Bonjour Chris,Yaloo


c'est gentil je vais voir si Besoin
j'ai fabrique des Images (Numéros) pour les test
J'ai opté pour un Userform avec Multipage pour traiter les Groupes (8 ici)
ainsi que les Compétences (6) pour 19 sous compétences permettant un choix de 41 évaluations par élève
enfin je m'amuse de loin
des que possible je joint une Image du Traitement qui est fait sur les Groupes après le Choix de La Classe .

le dossier Zipper avec l'image

Regarde la pièce jointe Image.zip

Bonne fin de Soirée
Amicalement
Jean Marie

 

[chrisclaret]

Re : Comparer des valeurs et renvoyer une fleche...

Bonsoir Chti160,Yaloo,
ça m'a l'air pas mal du tout en tout cas sur l'image.
Dès que tu auras fini tes tests n'hesites pas à nous le faire passer , toutes les bonnes idées st les bienvenues.
Et si tu veux le tester sur un fichier élève , je t'en ferai passer un...
NB:J'ai pu ouvrir ta piece jointe en début d'apres-midi mais ta derniere version de 18h15 ne s'ouvre pas...
A+
Chris

 

[Yaloo]

Re : Comparer des valeurs et renvoyer une fleche...

Bonsoir Chris,

Pour la suppression des commentaires, il s'agit d'une réflexion approfondie j'ai supprimé la ligne supprimant le dernier objet image.
Pour le post 407, vois ton mail, j'ai modifié la macro, maintenant ça à l'air ok.

A+

Martial

PS à Jean-Marie, je n'arrive pas à ouvrir ton fichier

 

[ChTi160]

Re : Comparer des valeurs et renvoyer une fleche...

Re

en pièce jointe

la deuxième partie de l'affichage des Groupes 5 à 8 (ici 7 groupes initialisés 1 à 7 )

Regarde la pièce jointe Image.zip

Ps : J'ai remis le fichier dans le Post précédent

Bonne fin de Soirée
Amicalement
Jean Marie

 

[chrisclaret]

Re : Comparer des valeurs et renvoyer une fleche...

Bonjour Yaloo,Chti160,le forum,

Bon , ChTi 160 , quand ça marchera n'hésite pas à nous en faire part...celà me semble intéressant...
Sinon , Yaloo , j'ai intégré ta macro "tester1" dans mon derniere fichier mais celà ne fonctionne pas.
Normal, la valeur du point rouge a changé.
J'ai donc modifié et rien n'apparait...pas de message d'erreur non plus...
"
Sub Tester()
Dim i&, j&, k&, l&, a, b, T
T = Timer
Application.ScreenUpdating = 0
[A94].CurrentRegion.Offset(1).Clear
a = [A5:AP43]
b = [A93:AP93]
For i = 4 To UBound(a)
k = i + 4
If Not IsError(Application.CountIf(Range(Cells(k, 2), Cells(k, 41)), 0.25)) Then
j = [A65536].End(3)(2).Row
For l = 2 To 41
If Not IsEmpty(a(i, l)) And a(i, l) = 0.25 Then
Cells(j, 1) = Cells(k, 1)
Cells(j, Application.Match(a(1, l), b, 0.25)).Resize(, 2).Interior.ColorIndex = 3
End If
Next
End If
Next
[A93].CurrentRegion.Borders.LineStyle = xlContinuous
For i = 2 To 39 Step 2
Cells(94, i).Resize(j).Borders(xlEdgeRight).LineStyle = xlNone
Next
Application.GoTo [A93], -1
Beep
Application.ScreenUpdating = -1
End Sub
"
A+
Chris

 

[Yaloo]

Re : Comparer des valeurs et renvoyer une fleche...

Salut Chris,

Avec cette macro ça doit le faire

Sub Tester1()
Dim i&, j&, k&, l&, a, b, T
Application.ScreenUpdating = 0
[A94].CurrentRegion.Offset(1).Clear
a = [A5:AP43]
b = [A93:AP93]
For i = 4 To UBound(a)
  k = i + 4
  If Not IsError(Application.CountIf(Range(Cells(k, 2), Cells(k, 41)), 0.25)) Then
    j = [A140].End(3)(2).Row
    For l = 2 To 41
      If Not IsEmpty(a(i, l)) And a(i, l) = 0.25 Then
        Cells(j, 1) = Cells(k, 1)
        Cells(j, Application.Match(a(1, l), b, 0)).Resize(, 2).Interior.ColorIndex = 3
      End If
    Next
  End If
Next
[A93].CurrentRegion.Borders.LineStyle = xlContinuous
For i = 2 To 39 Step 2
  Cells(94, i).Resize(j).Borders(xlEdgeRight).LineStyle = xlNone
Next
Application.GoTo [A93], -1
Beep
Application.ScreenUpdating = -1
End Sub

Est-ce normal d'avoir mis des données en A154 ?

A+

Martial

 

[chrisclaret]

Re : Comparer des valeurs et renvoyer une fleche...

Re,
Super ça marche !
J'ai supprimé le tableau en A150(Je m'en étais servi pour la mise en place du gestionnaire(comp) des noms sur cette feuille..)
Sinon , la meme chose que le userform 8 sur le userform 2 serait intéressant(commentaires).
Restera ensuite les 2 podiums(eleve+groupe).
Mais rien ne presse...
A+
Chris

 

[Yaloo]

Re : Comparer des valeurs et renvoyer une fleche...

Bonsoir Chris,

L'UserForm2 est traité dans le fichier ci-dessous.

A+

Martial

 

[chrisclaret]

Re : Comparer des valeurs et renvoyer une fleche...

Bonjour Yaloo,

Bon , il semblerait que le fichier bloque içi.
Erreur d'execution '13' incompatibilité de type.

ça bug içi :

Private Sub CB_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Application.ScreenUpdating = 0: Application.Calculation = xlCalculationManual
n = Right(CB.Name, Len(CB.Name) - 2)
With UserForm2
If Button = 1 Then
If .LB1.ListIndex = -1 Then MsgBox "Mettre au moins un élève": Exit Sub
Select Case Comp
Case ""
MsgBox "Le niveau d'acquisition n'est pas sélectionné": Exit Sub
Case 1
.Controls("CB" & n).BackColor = &H80D700
Case 0.75
.Controls("CB" & n).BackColor = &HFF8080
Case 0.5
.Controls("CB" & n).BackColor = &H67FFFF
Case 0.25
.Controls("CB" & n).BackColor = &H7A78F5
End Select
For i = 0 To .LB1.ListCount - 1
If .LB1.Selected(i) Then
l = Application.Match(.LB1.List(i), [A8:A43], 0)
c = CB.Tag
Feuil3.Cells(l + 7, c) = Comp
End If
Next....
A+
Chris

 

[Yaloo]

Re : Comparer des valeurs et renvoyer une fleche...

Bonjour Chris, le fil,

Et oui, en effet, dans l'UserForm2 j'utilisais déjà les Tag des boutons pour autre chose. Ah quand on veut aller trop vite je n'avais pas tout testé.

Avec le fichier ce devrait être mieux.

A+

Martial

 

[chrisclaret]

Re : Comparer des valeurs et renvoyer une fleche...

Re,
Effectivement , c'est mieux
A+
Chris

 

[chrisclaret]

Re : Comparer des valeurs et renvoyer une fleche...

Re,
J'imagine que faire apparaitre les commentaire à ces nouveaux emplacements ne changera pas les difficultés à visualiser des images à cet emplacements ?(schéma,graphique ss forme d'image...).
Le probleme doit etre le meme que pour le userform5 ?
Plus que les podiums
A+
Chris

 

[chrisclaret]

Re : Comparer des valeurs et renvoyer une fleche...

Re,
Je voulais faire apparaître mes points de couleurs dans dans le commentaire avec les indicateurs de réussite.
Ne pouvant inserer d'images ? j'ai opté pour une solution détournée.
Ecrire en Webdings , la lettre l correspondant au rond puis changer la couleur en fonction de l'indicateur de reussite.
Celà marche bien en L5(voir PJ-feuille Evaluation) mais lorsque je saisis sur les userform 2 et 8 , les ronds n'apparaissent pas
Pourtant ce ne sont que des carateres differents(une partie ecrite en Webdings(rond) et le reste en Arial)!
Idem lors de la visualisation sur le userform 5 les ronds n'apparaissent pas et sont remplacés par l.
Voir B5("Evaluation") pour plus de detail...
Bizarre ?
A+
Chris

 

[Yaloo]

Re : Comparer des valeurs et renvoyer une fleche...

Bonsoir Chris,

Je ne pense pas que se soit faisable, je viens d'essayer avec la fonction Mid mais ça ne fonctionne pas.

A+

 

[ChTi160]

Re : Comparer des valeurs et renvoyer une fleche...

Bonjour Chris ,Yaloo
Bonjour le fil
Bonjour le forum

une question pour ma bonne compréhension Lol

En Ligne 5 apparaissent des commentaires Multi lignes et Multi color correspondants aux différentes appréciations possibles

est ce que cela permet selon la compétence enregistrée dans la Colonne "B" de définir l'appréciation
soit : si Rond Vert devant le Nom colonne "A" ,l'appréciation de cet élève sera "a bien su prélever le solide avec une spatule"
peut il y avoir plus de Quatre d'appréciations dans un commentaire ?
Merci par avance
Bonne Journée
Amicalement
Jean Marie