Programme en VBA Uniquement

[gambi]

Bonjour a tous,

Je dois réaliser un programme en VBA, je serais noté dessus 🙁
Je vous caches pas que je ne suis pas très fort là dedans et c'est pour cela que je fais appel a vous.
Pouvez-vous m'aider ?
Vous trouverez ci-joint le sujet.

Merci

 

[Staple1600]

Re : Programme en VBA Uniquement

Bonsoir à tous


Gambi: Merci d'avoir édité ton message 😉
(par conséquent je viens d'éditer celui-ci)

 

[Staple1600]

Re : Programme en VBA Uniquement

Re


Pour revenir à ta question, tu parles de ce code VBA (que j'ai un peu chamboulé) ?

Private Sub Enregistrer_Note_Click()
Dim wsSheet As Worksheet
Dim Lastcell As Range
Dim lastRow As Long, LastCol As Long
Set wsSheet = Sheets("Note")
Set Lastcell = wsSheet.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
If input_note <> "" Then
If wsSheet.Cells(1, 1) <> "" Then 'Recherche du nombre de ligne pour ajouter la nouvelle note apres
            'Range Mini / Maxi
            lastRow = Lastcell.Row - 1
        End If
        
        wsSheet.Cells(lastRow + 1, 1) = Label_EtudiantID.Caption
        wsSheet.Cells(lastRow + 1, 2) = Label_Diplome.Caption
        wsSheet.Cells(lastRow + 1, 3) = input_note
        wsSheet.Cells(lastRow + 1, 4) = input_Coef
    Else
        MsgBox "Veuillez renseigner la note de l'étudiant."
        Exit Sub
    End If
    Unload Me
End Sub

D'ailleurs, testes-le avec ces modifs pour voir.

 

[gambi]

Re : Programme en VBA Uniquement

Voila, j'a édité le message 🙂

Pour ce qui est du code, je ne pense pas que cela soit lié ... enfin je pense, car cela ne résout pas mon problème.
C'est lorsque le programme est ouvert, quand je clique sur "ajouter une note", le dernier bouton. il ouvre le bon userform mais me met un débogage que je ne comprend pas ....

 

[Staple1600]

Re : Programme en VBA Uniquement

Re

Quelle ligne est en surbrillance jaune?

Et avec ces modifs , il se passe quoi?

Private Sub Ajouter_Note_Click()
    If IsEmpty(Liste_Diplome) And IsEmpty(Liste_Etudiant) Then
        MsgBox "Veuillez sélectionner un diplôme, puis un étuidant au préalable."
        Exit Sub
    Else
        If IsEmpty(Liste_Etudiant) Then
            MsgBox "Veuillez sélectionner un étudiant."
            Exit Sub
        End If
    End If
    Note.Show
End Sub

PS: Merci pour l'édition.

 

[gambi]

Re : Programme en VBA Uniquement

Non, c'est "ListeDiplomeEtudiant.Show" qui se met en jaune ... mais c'est dans le code du bouton "ajouter une note" du menu.

 

[Staple1600]

Re : Programme en VBA Uniquement

Re

De quel menu tu parles?
Le CommandButton nommé Ajouter_Note est bien sur l'userform que tu cites dans ton dernier message, non ?

 

[Staple1600]

Re : Programme en VBA Uniquement

Re

C'est dans ton Initialize qu'il y a un beans

Private Sub UserForm_Initialize()
Dim Sh As Worksheet 'ajout ci
    For Each Sh In Worksheets
        If Sh.Name <> "Menu" And Sh.Name <> "Note" And Sh.Name <> "Etudiant" And Sh.Name <> "Diplome" Then
        Ajout_Note.AddItem Sh.Name 'modif ici pour éviter le bug
        End If
    Next Sh
End Sub

L'est où le ListBox nommée ListeDiplome ? (j'ai modifié pour éviter le bug)

 

[gambi]

Re : Programme en VBA Uniquement

Le menu c'est l'userform ou il y a les 4 boutons : "ajouter un diplome", "ajouter un étudiant", "info etudiant" et "ajouter une note".

Et lorsque je clique sur "ajouter une note", j'ai débogage. tu vois ?

 

[Staple1600]

Re : Programme en VBA Uniquement

RE


Regardes mon précédent message 😉

Pour mémoire voici ton code initial

Private Sub UserForm_Initialize()
For Each Sh In Worksheets
        If Sh.Name <> "Menu" And Sh.Name <> "Note" And Sh.Name <> "Etudiant" And Sh.Name <> "Diplome" Then
            Liste_Diplome.AddItem Sh.Name
        End If
Next Sh
End Sub

qui est légèrement pas pareil que celui de mon message précédent...

PS: Quand tu joins des fichiers exemples, anonymise-les et fais les maigrir 😉
Puisque tu en période de test, on a pas besoin de toutes ces couleurs et images dans tes userforms 😉

 

[gambi]

Re : Programme en VBA Uniquement

En effet, je n'ai plus le débogage mais maintenant quand je clique sur un diplôme il ne m'affiche plus les étudiant qui font partis du diplôme sélectionné

 

[Staple1600]

Re : Programme en VBA Uniquement

Re

Tu n'as pas répondu à ma question (voir le message #22)
Le contrôle ListeDiplome n'existe pas dans ton userform
Donc forcément çà pose un léger souci dans l'Initialize...