Comparer des valeurs et renvoyer une fleche...

C

chrisclaret

XLDnaute Occasionnel
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
 

Pièces jointes

  • bulletin par competence A3 download.xlsx
    22.7 KB · Affichages: 263
Trier par date Trier par votes
Y

Yaloo

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

Re,

C'est corrigé, il manquait juste Feuil2. avant Cells(Application.Match(....

Pour les : je supprimes -- Moyenne : :confused:


A+

PS : Pour les erreurs que tu risques de rencontrer, c'est parce qu'il n'y a pas tous les noms dans la feuille "Bilan Classe"
 

Pièces jointes

  • classeur competence 5°G1 image V5.1.xlsm
    767.3 KB · Affichages: 23
  • classeur competence 5°G1 image V5.1.xlsm
    767.3 KB · Affichages: 25
  • classeur competence 5°G1 image V5.1.xlsm
    767.3 KB · Affichages: 26
Vote positif 0 Vote négatif
Y

Yaloo

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

Re,

Voici la modif.

A+
 

Pièces jointes

  • classeur competence 5°G1 image V5.1.xlsm
    769.3 KB · Affichages: 16
  • classeur competence 5°G1 image V5.1.xlsm
    769.3 KB · Affichages: 19
  • classeur competence 5°G1 image V5.1.xlsm
    769.3 KB · Affichages: 19
Vote positif 0 Vote négatif
C

chrisclaret

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

Bonsoir Yaloo,
Ah , j'oubliais pour les podiums groupes , tu vas avoir besoin des images des scientifiques concernés , je te les ai mis ds le fichier joint.(colonne S)
A+
Chris
 

Pièces jointes

  • classeur competence 5°G1 image V5.1 (7).xlsm
    764.7 KB · Affichages: 17
Vote positif 0 Vote négatif
Y

Yaloo

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

Bonsoir Chris, le forum,

Voici ton fichier avec le podium des groupes, j'ai fait qq tests ça à l'air d'être OK, mais je n'ai pas trop poussé quand même, je te laisse un peu de travail ;)

Si tu ne copies pas toutes les UserForm, il faut modifier le nom de Frame dans l'UserForm5 : 3 et 4 sont inversés.

C'est un peu plus long à l'ouverture de l'UserForm5 car je rapatrie les données pour le podium des groupes.

A+

Martial
 

Pièces jointes

  • classeur competence 5°G1 image V5.1.xlsm
    890.8 KB · Affichages: 18
  • classeur competence 5°G1 image V5.1.xlsm
    890.8 KB · Affichages: 20
  • classeur competence 5°G1 image V5.1.xlsm
    890.8 KB · Affichages: 21
Vote positif 0 Vote négatif
C

chrisclaret

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

Bonsoir,

Chapeau bas , tres beau travail ! ça va plaire , c'est sur !:eek:
Juste une petite remarque , en cas d'egalité entre les groupes le podium groupe ne respecte pas cet ordre contrairement à l'autre.:confused:
A+
Chris
 
Vote positif 0 Vote négatif
Y

Yaloo

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

Re,

chrisclaret à dit:
Chapeau bas , tres beau travail ! ça va plaire , c'est sur !:eek:
Cliquez pour agrandir...
Tant mieux, c'est fait pour :D

chrisclaret à dit:
Juste une petite remarque , en cas d'egalité entre les groupes le podium groupe ne respecte pas cet ordre contrairement à l'autre.:confused:
Cliquez pour agrandir...
D'après mes tests, je n'ai pas l'impression, vois le fichier ci-joint, j'ai mis les mêmes évaluations pour ABDELLAOU ABERLI (groupe Rutherford) et FOURNIER BENKELOUF (groupe Newton).

A+

Martial
 

Pièces jointes

  • classeur competence 5°G1 image V5.1.xlsm
    902.6 KB · Affichages: 40
  • classeur competence 5°G1 image V5.1.xlsm
    902.6 KB · Affichages: 41
  • classeur competence 5°G1 image V5.1.xlsm
    902.6 KB · Affichages: 42
Vote positif 0 Vote négatif
C

chrisclaret

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

Bonsoir Yaloo,
Bonsoir,
J'essaie de transposer les macros,userform,modules...sur le fichier classe mais les boutons podium groupe(bug à :UserForm7.Show) et eleves(bug à UserForm6.Show) ne fonctionnent pas.
Je ne vois pas mon erreur.
Peux-tu m'apporter ta lumiere sur le fichier que je t'ai envoyé sur ta boite mail.
Merci de ta patience.
Chris
 
Vote positif 0 Vote négatif
Y

Yaloo

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

Salut Chris,

Pour le podium Elèves, il faut copier le code Activate de la feuille _Noms.

Pour le podium Groupe, il faudrait que tu mettes les Images des scientifiques.

D'après mes tests, avec ces changements, c'est Ok.

A+

Martial
 
Vote positif 0 Vote négatif
Y

Yaloo

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

Dans le fichier de mon post #278 ou ci-dessous :

VB: 
Option Explicit
Private Sub Worksheet_Activate()
Dim i&, j&, DerL&, l, Plage As Range
[AK1].CurrentRegion.Clear
DerL = [B65536].End(xlUp).Row
Set Plage = Range("B1:B" & DerL)
Plage.Copy [AK1]
[AL1].Resize(, 4).Value = Feuil3.[BK6].Resize(, 4).Value
[AL2].Resize(DerL - 1, 4).Value = Feuil3.[BK8].Resize(DerL - 1, 4).Value

[AK1].CurrentRegion.Sort [AL1], xlDescending, [AM1], , xlDescending, [AN1], xlDescending, xlYes
[AP2:AP3].FormulaR1C1 = "=IF(RC[-4]&RC[-3]&RC[-2]&RC[-1]=R[1]C[-4]&R[1]C[-3]&R[1]C[-2]&R[1]C[-1],1,0)"
End Sub

A+
 
Vote positif 0 Vote négatif
Y

Yaloo

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

Re,

VB: 
Private Sub UserForm_Initialize()
Application.Goto [A1], -1
Me.Caption = "Classe " & [E1]
Groupe = Range("AB2:AB" & [AB65536].End(xlUp).Row)
For i = LBound(Groupe) To UBound(Groupe)
  Gr = Groupe(i, 1): NomGroupe = Cells(i + 1, 27): j = 0
  Controls("Frame" & i).Caption = StrConv(NomGroupe, 1)
  If IsError(Application.Match(Gr, Columns(5), 0)) Then GoTo Suite
    For l = 2 To [D65536].End(xlUp).Row
      If Cells(l, 5) = Gr Then
        ReDim Preserve Group(j)
        Group(j) = Cells(l, 2)
        j = j + 1
      End If
    Next
    Controls("Frame" & i).Visible = True
  For k = 0 To UBound(Group)
    NumEl = i * 10 + k + 1
    Set s = ActiveSheet.Shapes(Group(k))
    s.CopyPicture
    ActiveSheet.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
    ActiveSheet.ChartObjects(1).Chart.Export Filename:="monimage.jpg"
    ActiveSheet.Shapes(ActiveSheet.Shapes.count).Delete
    Controls("Image" & NumEl).PictureSizeMode = fmPictureSizeModeZoom
    Controls("Image" & NumEl).Picture = LoadPicture("monimage.jpg")
    Controls("Image" & NumEl).Visible = True
    Kill "monimage.jpg"
    Controls("Label" & NumEl).Caption = StrConv(Group(k), 3)
    Controls("Label" & NumEl).Visible = True
    ElRow = Application.Match(Group(k), Feuil3.Columns(1), 0)
    m = Application.Match(NomGroupe, Columns(27), 0)
    'Nb d'élève
    Cells(m, 33) = Cells(m, 33) + 1
    'Total de point
    Cells(m, 29) = Cells(m, 29) + Feuil3.Cells(ElRow, 63)
    Cells(m, 30) = Cells(m, 30) + Feuil3.Cells(ElRow, 64)
    Cells(m, 31) = Cells(m, 31) + Feuil3.Cells(ElRow, 65)
    Cells(m, 32) = Cells(m, 32) + Feuil3.Cells(ElRow, 66)
    c = 1
    For j = 2 To 42
      If Feuil3.Cells(ElRow, j) <> "" Then
      NumCB = i * 1000 + (k + 1) * 100 + c
        With Me.Controls("CB" & NumCB)
          .Visible = True
          .Caption = Feuil3.Cells(5, j)
          Select Case Feuil3.Cells(ElRow, j)
            Case 1: .BackColor = &H80D700
            Case 0.5: .BackColor = &H67FFFF
            Case 0: .BackColor = &H7A78F5
          End Select
          c = c + 1
          If c > 12 Then MsgBox "Il y a trop d'évaluations pour " & StrConv(Group(k), 3): GoTo EleveSuivant
        End With
      End If
    Next j
EleveSuivant:
  Next k
Suite:
Next i
End Sub

Tu peux changer le code d'initialisation de l'UserForm5 avec celui ci-dessus, normalement le temps d'affichage doit être réduit.

A+
 
Vote positif 0 Vote négatif
C

chrisclaret

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

Bonjour,

Je transpose la derniere version sur les listes eleves et ça bug:mad:
J'ai rajouté le code activate de la feuille Nom et pas d'amélioration , pire sur le nouveau fichier que je t'ai envoyé sur ton mail il ne s"ouvre pas lorsque je clique sur Evalution classe.:(
Sinon tu remarqueras lorsque j'ai un eleve qui n'a pas de competence sur la feuille Evaluation(le 1er de la liste) ou de moyenne ds la feuille "Bilan classe" ça bug sur tous les userform lorque j'appuie sur note.
A+
Chris
 
Vote positif 0 Vote négatif

Discussions similaires

J
  • Question
Microsoft 365 VBA EXCEL pour rechercher une valeur et copier des valeurs à la suite
Réponses
2
Affichages
386
justine.valck
J
Y
  • Question
XL 2019 Macro pour supprimer des lignes et modifier des valeurs selon une correspondance
Réponses
6
Affichages
504
Yoshi0302
Y
B
  • Résolu(e)
XL 2010 Macro qui compare les valeurs d’un tableau en date t et en date t-1
Réponses
12
Affichages
630
Dudu2
Dudu2
J
  • Résolu(e)
XL 2016 vba cherche 2 valeurs dans une autre feuille et remplace des données
Réponses
9
Affichages
1 K
julien741
J
Y
  • Résolu(e)
XL 2016 Extraire une ligne des valeurs depuis basse des données vers une autre feuille de travail selon critère
Réponses
2
Affichages
987
YANNISE
Y
W
  • Question
XL 2010 recherche d'une valeur en fonction de colonnes dont les intitulés sont des plages de valeurs
Réponses
4
Affichages
1 K
WalloWG
W
D
  • Question
XL 2019 boucle qui compte les valeurs des cellules
Réponses
4
Affichages
666
desmonts
D
C
  • Question
comparer un chiffre dans un tableau et récuperer une information associée
Réponses
4
Affichages
559
citroends12
C
M
  • Question
XL 2019 Comparer 2 cellules et renvoyer une valeur
Réponses
2
Affichages
793
Mel62
M
E
  • Résolu(e)
Microsoft 365 Transférer valeurs de Textbox et ComboBox dans classeur
Réponses
8
Affichages
1 K
Emli15
E

Membres actuellement en ligne

10 membres et 123 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 859
Messages
2 092 935
Membres
105 569
dernier inscrit
dareverine