Private Sub Bouton_valide_nb_inscrit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_valide_nb_inscrit.Click
 
        ' Si clique sur bouton OK
        col.nb_inscrit = change_nb_inscrit() ' On change le nombre d'inscrits
        Label3.Text = "" ' On remet le Label3 à rien, pour enlever le texte qui affiche la requête
        TextBox1.Visible = False ' On enlève la TextBox1
        Bouton_valide_nb_inscrit.Visible = False ' On enlève le bouton OK
        Label2.Text = "Il y a actuellement " & col.nb_inscrit & " inscrits" ' Et on réaffiche la nouvelle valeur dans Label2
        If (col.nb_inscrit_sauvegarde >= col.nb_inscrit) Then
            Label2.Text = Label2.Text + ", entrez une valeur au dessus de " & col.nb_inscrit_sauvegarde ' Affiche les valeurs interdites
        End If
 
        candidat() ' On appel à nouveau candidat() pour gérer l'affichage des candidats dans le cas où le nombre d'inscrits est différent de zéro
 
        If Not (col.nb_inscrit = 0) Then ' S'il y a au moins un inscrit, mettre Bouton_vote en enabled true, pour pouvoir commencer le vote
            Bouton_vote.Enabled = True
        End If
 
    End Sub

   * Private Sub TextAEnvoyer_KeyDown(KeyCode As Integer, Shift As  Integer)
    * If Not Shift And KeyCode = 13 Then
    *
    * Bouton1_Click
    * KeyCode = 0
    *
    * End If
    * End Sub