Re : Comparer des valeurs et renvoyer une fleche...
Bonjour à tous ,
1/C'est quasi bon mais il subsiste un bug.
Lorsque je clique une fois sur le bouton jaune le userform 10 s'ouvre puis j'évalue avec le 9 et tout fonctionne.
Je ferme ensuite la fenetre du userform 9 puis si je reclique sur le bouton jaune un message apparait : Pas de sélection(ce qui est faux).
Si je déselectionne les eleves et en selectionne d'autres il me met "Erreur d'execution '9'" L'indice n'appartient pas à la sélection.
Le bug se situe à la ligne soulignée...
Private Sub CommandButton1_Click()
Dim i&, j&
If NbEl = 0 Then MsgBox "Pas de sélection": Exit Sub
If NbEl > 4 Then MsgBox "Il y a trop d'élèves": Exit Sub
ReDim Group(NbEl): ReDim Groupe(NbEl)
For i = 1 To 24
If Me.Controls("CBx" & Format(i, "00")).Value = -1 Then
Group(j) = Me.Controls("CBx" & Format(i, "00")).Caption
Groupe(j) = Application.Match(Me.Controls("CBx" & Format(i, "00")).Caption, Columns(1), 0)
j = j + 1
End If
Next
Me.Hide
UserForm9.Show
End Sub
2/Sinon je n'ai pas tout compris comment tu voulais mettre des numéros dans la page "NOM"...
Numéros cachés sous la photo élève ?
Bonne journée,
Chris