Outils logiciels pour les cours Paris II

Cours Paris II

Stages/ Thèses

edit SideBar

Licence L3: Économie Internationale

Séance 5

Exercice 1 - Génération d'une matrice 10x10

Modifier la macro remplirTableauAleatoire développée la séance précédente, de façon à générer une matrice de 10 lignes et 10 colonnes, contenant des nombres entiers compris entre 0 et 100. (Utiliser Int(Rnd())).

Exercice 2 - Recherche et coloriage du minimum

Définir la macro ColorierMin() qui parcourt la matrice d'entiers aléatoires et qui colorie la cellule contenant la plus petite valeur en bleu (code couleur 8)

Pour colorier une cellule utiliser le code :
Cells(i,j).Select
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With

Indication : algorithme de recherche du minimum

min <-- 10000
pour i allant de 1 à n
faire

           si (Cells(i,j) < min)
              alors faire
                min <-- Cells(i,j)
                lignemin = i
                colonnemin = j
              fin faire
           fin si
    fin faire

fin pour Afficher min

Exercice 3- Recherche et Coloriage du Maximum

Définir la macro ColorierMax qui parcourt la matrice d'entiers aléatoires et qui colorie la cellule contenant la plus grande valeur en jaune (code couleur 6).

Indication : algorithme de recherche du maximum

max <-- -1
colMax <-- -1
pour i allant de 1 à n
faire

           si (max < Cells(i,j))
              alors faire
                max <-- Cells(i,j)     
              fin faire
           fin si
    fin faire

fin pour

Exercice 4 - Colorier les valeurs paires de la matrice avec une couleur rouge et les valeurs impaires avec une couleur verte.

Correction

UP2