Licence L3: Économie Internationale

Séance 5

Communiquer avec les fichiers externes, Tri

Exercice 1 - Lire et écrire un fichier .txt

Ecrire le contenu des 20 première lignes et 2 premières colonnes dans un fichier "f.txt"

vbCr Chr (13) Caractère de retour chariot

vbLf Chr (10) Caractère de saut de ligne

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

Définir une macro remplirTableauAleatoire, 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 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 <-- 0
colMax <-- 0
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 - 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
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 d - Colorier les valeurs paires de la matrice avec une couleur rouge et les valeurs impaires avec une couleur verte.

Autres exercices

Exercice 2 - Trier

Appliquer le Tri à la 1ère colonne (entre les lignes 1 et 10) et placer le résultat dans la colonne 6.

Exercice 3 - Fréquence en utilisant le tri

Dans la colonne B, définir un tableau de valeur de taille 4. Par exemple (10, 20, 30, 40). Ecrire une macro VBA qui calcule la fréquence de la colonne A par rapport aux limites de la colonne B, en utilisant le tri.

Trier A, puis parcourir A et B pour produire le vecteur Fréquence dans la colonne 7.

Fichier Excel avec les macros du cours 5

Solution de l'exercice 3: Frequence2

UP2