TP VBA Objet Excel 2007 Exercice Corrigé VBA EXCEL 2007

Classeur : NOTEELEVE.XLSX

1) Ouvrez un nouveau classeur et enregistrez le sous le nom NOTEELEVE.XLSX
2) Nommez la feuille Feuil1 en « Notes »

3) Ouvrez l’éditeur de VBA, insérez un nouveau module
4) Créez une procédure VBA nommé TitreColonne dont l’objectif est d’obtenir ceci :

Les titres de colonnes sont en gras

1)    On veut maintenant générer des notes aléatoires (fonction Rnd) comprises entre 1 et 20. L’utilisateur est invité à saisir un nombre d’élèves compris entre 1 et 30. Le programme doit par ailleurs contrôler le nombre saisi par l’utilisateur.

L’algorithme est le suivant :

VARIABLES :
    Classeur : Objet Classeur
    Feuille : Objet Feuille
NbNotes : Entier
i,j : Entier
PROCEDURE GénérerNotes()
    Classeur<-Classeur actif
    Feuille<-Feuille « Notes »
    NbNotes<-0
       Effacer Plage de cellules B2 :I31
    TANT QUE NbNotes <1 OU NbNotes>30
        SAISIR(« Combien de notes voulez vous ? saisissez un nombre entre 1 et 30 »,NbNotes)
    FIN TANT QUE
    POUR I :=1 JUSQU'A NbNotes
        POUR J :=2 TO 9
            Cellule(i,j) <- ENT(RND*20)
        FIN POUR
    FIN POUR
FIN PROCEDURE

Activité :

a)    Créez en VBA la procédure correspondant à cet algorithme.

b) Dans la cellule A1 de la feuille Notes, créez un bouton de commande et affectez-lui la macro « GénérerNotes ». Tester la macro en saisissant successivement différentes valeurs (par exemple 0, 20 ou 40)

-------------------------------------------------------------------------------------------------------

Correction

-------------------------------------------------------------------------------------------------------

Lancez MS Excel 2007 puis Nommer la feuille 1 puis lancer Visual Basic pour créer les procédures :

Insérer ces deux procédures :

Procédure pour insérer l'entête du tableau :

Public Sub TitreColonne()
    Dim Classeur As Workbook
    Dim Feuille As Worksheet
    Set Classeur = Application.ActiveWorkbook
    Set Feuille = Classeur.Sheets("Notes")
    For i = 1 To 8
        Feuille.Range(Cells(1, i + 1), Cells(1, i + 1)).Value = "Note " & CStr(i)
    Next
    Feuille.Range("B1:I1").Font.Bold = True
End Sub

Procédure pour Générer les notes :

Public Sub GénérerNotes()
    Dim Classeur As Workbook
    Dim Feuille As Worksheet
    Dim NbNotes As Integer
    Dim i, j As Integer
    Set Classeur = Application.ActiveWorkbook
    Set Feuille = Classeur.Sheets("Notes")
    NbNotes = 0
    Feuille.Range("B2:B32").Clear
    While NbNotes < 1 Or NbNotes > 31
        NbNotes = InputBox("Combien de notes voulez vous ? saisissez un nombre entre 1 et 30")
    Wend
    For i = 1 To NbNotes
        For j = 2 To 9
            Feuille.Cells(i + 1, j) = Int(Rnd * 20)
        Next j
    Next i
End Sub

a) Dans la cellule A1 de la feuille Notes, créez un bouton de commande et affectez-lui la macro « GénérerNotes ». Tester la macro en saisissant successivement différentes valeurs (par exemple 0, 20 ou 40)