Outils logiciels pour les cours Paris II

Cours Paris II

Stages/ Thèses

edit SideBar

Licence L3: Économie Internationale

Main.TD5 History

Hide minor edits - Show changes to markup

March 18, 2018, at 04:18 PM by 82.243.27.198 -
Added lines 64-65:

Correction

March 11, 2018, at 02:42 PM by 82.243.27.198 -
Deleted line 63:

Exercice 5 - Calculer la moyenne de la matrice

March 11, 2018, at 02:22 PM by 82.243.27.198 -
Changed line 62 from:

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

to:

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

March 11, 2018, at 02:21 PM by 82.243.27.198 -
Changed line 30 from:
           si (Cell(i) < min)
to:
           si (Cells(i,j) < min)
Changed lines 32-34 from:
                min <-- Cell(i)
to:
                min <-- Cells(i,j)
                lignemin = i
                colonnemin = j
Changed line 53 from:
           si (max < Cell(i))
to:
           si (max < Cells(i,j))
Changed lines 55-56 from:
                max <-- Cell(i)
                colMax = i
to:
                max <-- Cells(i,j)     
Changed lines 62-64 from:
to:

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

Exercice 5 - Calculer la moyenne de la matrice

February 08, 2018, at 10:24 AM by 82.243.27.198 -
Changed line 61 from:

Correction

to:
March 13, 2017, at 08:00 AM by httpwwwup2frindexphpnPmWikiBasicEditing -
Added lines 60-61:

Correction

February 28, 2017, at 05:11 PM by 79.81.102.240 -
Changed line 42 from:

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

to:

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).

February 28, 2017, at 05:11 PM by 79.81.102.240 -
Changed lines 5-6 from:

Exercice 1 - Recherche du minimum

to:

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

Added lines 21-22:


Added lines 24-25:

\\

February 28, 2017, at 05:10 PM by 79.81.102.240 -
Changed lines 5-16 from:

Exercice 8 - Recherche du minimum

Écrire une macro ChercheMin permettant de trouver le minimum du tableau d'entiers aléatoires et de l'afficher en utilisant une boite de message (MsgBox("Le minimum est " & min)). vous aurez besoin de l'instruction permettant de faire un test :

If ( ) Then ...
Else
...
End If

Algorithme de recherche du minimum

to:

Exercice 1 - Recherche du minimum

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

Changed lines 35-54 from:

'''Exercice 9 - Colorier Min

Définir la macro ColorierMin() qui parcourent le tableau d'entiers aléatoires et qui colorient 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
'''Exercice 10-Colorier Max

Définir la macro ColorierMax qui parcourent le tableau d'entiers aléatoires et qui colorient la cellule contenant la plus grande valeur en jaune (code couleur 6) respectivement.

Algorithme de recherche du maximum

to:

Exercice 3- Recherche et Coloriage du Maximum

Définir la macro ColorierMax qui parcourt le tableau 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

Deleted lines 55-60:

Exercice 11 - Moyenne sans min ni max

Définir la Fonction moyenneSansMinMax() qui calcule et renvoie la moyenne du tableau d'entiers aléatoires sans prendre en compte la plus petite et la plus grande valeur.

http://www.up2.fr/L3EcoInter/TD5/TD5.JPG *

February 16, 2017, at 10:58 AM by 82.232.186.135 -
Changed lines 3-102 from:

Séance 4

Installation du VBA

  1. Cliquer sur le bouton Office.
  2. Cliquer sur le bouton Options Excel.
  3. Cliquer sur Compléments dans le menu de gauche, puis sur le bouton Atteindre situé en bas de la fenêtre.
  4. Dans la petite fenêtre de dialogue qui s'est ouverte, cocher Analysis ToolPak VBA.
  5. Valider en cliquant sur le bouton OK.
  6. Excel installe les compléments et ferme la fenêtre d'Options.

Préliminaire

  1. Ouvrir un classeur excel.
  2. Sauvegarder le sous le nom TD5.xlsm (classeur prenant en charge les macros). Attention, si vous sauvegardez votre classeur en .xlm vous ne pourrez pas utiliser VBA!.
  3. Aller sur l'onglet Développeur.
  4. Cliquer sur le bouton Visual basic , une nouvelle fenêtre va s'ouvrir. Cette fenêtre sera votre espace de travail pour écrire des macros et des fonctions VBA. Celles-ci seront utilisées par votre classeur TD5.
  5. Dans la fenêtre vba, cliquer sur Insertion et sélectionner dans le menu Module.

C'est dans un module que nous écrirons toutes les fonctions et les macros que nous utiliserons dorénavant. Il est donc important que vous sachiez faire la manipulation précédente à tous les tds.

Ecrire des macros qui permettent de réaliser :

Exercice 1 - affichage et tableau d'entiers

  1. Affichage d'un message : commande MsgBox
    Sub Ma_Premiere_Macro()
    MsgBox ("Bonjour”)
    End Sub
  2. Afficher l'heure dans une cellule
  3. Affecter des valeurs dans des cellules d'une feuille Excel
  4. Déclarer une variable puis l'afficher
  5. Remplir un tableau de données
  6. Calculer la somme d'une colonne

Exercice 2 - les conditions : if

  1. Chercher puis mettre en gras la cellule qui possède la plus grande valeur (max) d'un tableau de données

Exercice 3 - les boucles

  1. Ecrire un tableau de données en utilisant la boucle for avec les paramètres LBound et UBound

Correction








A faire sous forme d'un rendu pour le TD5

Exercice 5 - Un tableau d'entiers

Nous souhaitons écrire notre première macro VBA. Cette macro s'appelera remplirTableauEntiers. Elle aura pour but de remplir un tableau horizontal d'entiers à partir de la cellule A4 de la feuille 1 du classeur. Ce tableau contiendra les valeurs 1, 2 ... tailletaille' est une valeur précisée dans la cellule B1.

http://www-poleia.lip6.fr/~hoet/TD5_1.png

  1. Écrire une macro remplirTableauEntiers dont le contenu est vide
  2. A l'intérieur de la macro remplirTableauEntiers, définir une variable qui contient un entier et qui s'appelle t
  3. Ajouter une instruction permettant de récupérer le contenu de la cellule B1 de la feuille 1 et de le stocker dans t
  4. Ajouter une instruction permettant d'afficher dans la cellule A3 le mot Entiers
  5. En utilisant une boucle for, :
    for i = 1 to n step 1
    ......
    Next
    Ajouter les instructions nécessaires permettant de remplir le tableau d'entier
  6. Tester votre macro. Pour cela placez vous sur la feuille 1 du classeur, onglet Développeur, cliquez sur Macro, cliquez sur remplirTableauEntiers puis sur executer
  7. Effacer le contenu de la feuille 1
  8. Tester votre Macro en vous plaçant sur la feuille 2 que se passe-t-il?

Exercice 5 bis - Un tableau d'entier

  1. Modifier légèrement votre macro pour que celle-ci affiche un tableau d'entiers sur la feuille courante
  2. Tester votre macro sur la feuille 2. N'oubliez pas d'ajouter la valeur de la taille du tableau dans la cellule B2 avant

Exercice 6 - Un tableau d'entiers aléatoires

Nous souhaitons maintenant obtenir un tableau d'entiers contenant des nombres entiers compris entre 0 et 100. De plus nous souhaitons que chaque valeur soit définie aléatoirement par notre macro. Pour cela nous allons écrire une deuxième macro que nous appellerons remplirTableauAleatoire.

http://www-poleia.lip6.fr/~hoet/TD5_2.png

  1. Définir dans module, une nouvelle macro ( en dessous de la première) que vous appelerez remplirTableauAleatoire et dont le contenu est vide
  2. Ajouter dans la macro remplirTableauAleatoire, les instructions pour définir une variable t qui est de type entier. Stocker dans t, la valeur contenu dans la cellule B1
  3. Ajouter une instruction pour afficher dans la cellule A5 le mot Aleatoires
  4. Ajouter l'instruction suivante Cells(5,2) = Rnd(). Executer plusieurs fois votre macro. Que fait la fonction Rnd()
  5. Effacer l'instruction Cells(5,2) = Rnd(). En utilisant une boucle for, la fonction Rnd() et la fonction Int(quelquechose)(qui transforme quelquechose en entier), écrire les instructions qui créent le tableau d'entiers aléatoires de taille t

Exercice 7 - Effacer tableau

Pour sélectionner un groupe de cellules adjacentes d'un classeur en VBA, nous pouvons utiliser le mot clé Range("A1:B4"). Il est alors possible de travailler sur cet ensemble de cellule en utilisant des propriété ou des fonctions disponibles. Ainsi la fonction clear() permet d'effacer le contenu d'une cellule ou d'un groupe de cellule.

L'instruction VBA Range("A1:B4").clear efface donc le contenu des cellules A1 à B4. en utilisant ces informations écrire à la suite des autres macros, une nouvelle macro appelée effacer qui efface les 2 tableaux.

to:

Séance 5

March 20, 2014, at 06:09 PM by 176.183.136.244 -
March 09, 2014, at 07:39 PM by 176.183.136.244 -
Added line 46:

Correction

March 06, 2014, at 09:37 AM by 193.49.199.214 -
Deleted line 46:

Solutions des 3 exercices

Changed lines 164-165 from:

http://www.up2.fr/L3EcoInter/TD5/TD5.JPG

to:

http://www.up2.fr/L3EcoInter/TD5/TD5.JPG *

March 03, 2014, at 11:21 PM by 176.183.136.244 -
Changed lines 45-53 from:
  1. Ecrire un tableau contenant les valeurs de 1 à 1000 en incrémentation en utilisant la boucle while

Exercice 4 - les boucles et les conditions

  1. Mettre en rouge les cellules d'une sélection dont le nombre est > 10 en utilisant la condition if et la boucle for
  2. Ecrire une macro qui permet de calculer le nombre de cellules vides d'une sélection

Solutions des 4 exercices

to:

Solutions des 3 exercices

March 03, 2014, at 11:20 PM by 176.183.136.244 -
Changed line 53 from:

Solutions

to:

Solutions des 4 exercices

March 03, 2014, at 11:20 PM by 176.183.136.244 -
Added line 53:

Solutions

Changed lines 171-172 from:

http://www.up2.fr/L3EcoInter/TD5/TD5.JPG *

to:

http://www.up2.fr/L3EcoInter/TD5/TD5.JPG

March 01, 2014, at 11:05 PM by 176.183.136.244 -
Changed lines 170-172 from:

http://www.up2.fr/L3EcoInter/TD5/TD5.JPG

to:

http://www.up2.fr/L3EcoInter/TD5/TD5.JPG *

March 01, 2014, at 11:00 PM by 176.183.136.244 -
Added lines 53-58:






\\

March 01, 2014, at 10:59 PM by 176.183.136.244 -
Changed line 26 from:

1. Affichage d'un message : commande MsgBox \\

to:
  1. Affichage d'un message : commande MsgBox \\
Changed lines 30-41 from:

2. Afficher l'heure dans une cellule

3. Affecter des valeurs dans des cellules d'une feuille Excel

4. Déclarer une variable puis l'afficher

5. Remplir un tableau de données

6. Calculer la somme d'une colonne

to:
  1. Afficher l'heure dans une cellule
  2. Affecter des valeurs dans des cellules d'une feuille Excel
  3. Déclarer une variable puis l'afficher
  4. Remplir un tableau de données
  5. Calculer la somme d'une colonne
Changed lines 39-41 from:

1. Chercher puis mettre en gras la cellule qui possède la plus grande valeur (max) d'un tableau de données

to:
  1. Chercher puis mettre en gras la cellule qui possède la plus grande valeur (max) d'un tableau de données
Changed lines 44-48 from:

1. Ecrire un tableau de données en utilisant la boucle for avec les paramètres LBound et UBound

2. Ecrire un tableau contenant les valeurs de 1 à 1000 en incrémentation en utilisant la boucle while

to:
  1. Ecrire un tableau de données en utilisant la boucle for avec les paramètres LBound et UBound
  2. Ecrire un tableau contenant les valeurs de 1 à 1000 en incrémentation en utilisant la boucle while
Changed lines 50-52 from:

1. Mettre en rouge les cellules d'une sélection dont le nombre est > 10 en utilisant la condition if et la boucle for

2. Ecrire une macro qui permet de calculer le nombre de cellules vides d'une sélection

to:
  1. Mettre en rouge les cellules d'une sélection dont le nombre est > 10 en utilisant la condition if et la boucle for
  2. Ecrire une macro qui permet de calculer le nombre de cellules vides d'une sélection
March 01, 2014, at 10:55 PM by 176.183.136.244 -
Changed line 26 from:

1/ Affichage d'un message : commande MsgBox \\

to:

1. Affichage d'un message : commande MsgBox \\

Changed lines 31-41 from:

2/ Afficher l'heure dans une cellule

3/ Affecter des valeurs dans des cellules d'une feuille Excel

4/ Déclarer une variable puis l'afficher

5/ Remplir un tableau de données

6/ Calculer la somme d'une colonne

to:

2. Afficher l'heure dans une cellule

3. Affecter des valeurs dans des cellules d'une feuille Excel

4. Déclarer une variable puis l'afficher

5. Remplir un tableau de données

6. Calculer la somme d'une colonne

Changed lines 44-46 from:

Chercher puis mettre en gras la cellule qui possède la plus grande valeur (max) d'un tableau de données

to:

1. Chercher puis mettre en gras la cellule qui possède la plus grande valeur (max) d'un tableau de données

Changed lines 49-53 from:

1/ Ecrire un tableau de données en utilisant la boucle for avec les paramètres LBound et UBound

2/ Ecrire un tableau contenant les valeurs de 1 à 1000 en incrémentation en utilisant la boucle while

to:

1. Ecrire un tableau de données en utilisant la boucle for avec les paramètres LBound et UBound

2. Ecrire un tableau contenant les valeurs de 1 à 1000 en incrémentation en utilisant la boucle while

Changed lines 56-58 from:

1/ Mettre en rouge les cellules d'une sélection dont le nombre est > 10 en utilisant la condition if et la boucle for

2/ Ecrire une macro qui permet de calculer le nombre de cellules vides d'une sélection

to:

1. Mettre en rouge les cellules d'une sélection dont le nombre est > 10 en utilisant la condition if et la boucle for

2. Ecrire une macro qui permet de calculer le nombre de cellules vides d'une sélection

March 01, 2014, at 10:53 PM by 176.183.136.244 -
Changed lines 62-63 from:

______________________________________________________________________________________

to:

A faire sous forme d'un rendu pour le TD5
March 01, 2014, at 10:51 PM by 176.183.136.244 -
Changed lines 3-4 from:

Séance 5

to:

Séance 4

Changed lines 41-65 from:

Exercice 2 - les conditions

Exercice 1 - Un tableau d'entiers

to:

Exercice 2 - les conditions : if

Chercher puis mettre en gras la cellule qui possède la plus grande valeur (max) d'un tableau de données

Exercice 3 - les boucles

1/ Ecrire un tableau de données en utilisant la boucle for avec les paramètres LBound et UBound

2/ Ecrire un tableau contenant les valeurs de 1 à 1000 en incrémentation en utilisant la boucle while

Exercice 4 - les boucles et les conditions

1/ Mettre en rouge les cellules d'une sélection dont le nombre est > 10 en utilisant la condition if et la boucle for

2/ Ecrire une macro qui permet de calculer le nombre de cellules vides d'une sélection

______________________________________________________________________________________

Exercice 5 - Un tableau d'entiers

Changed lines 85-86 from:

Exercice 1 bis - Un tableau d'entier

to:

Exercice 5 bis - Un tableau d'entier

Changed lines 90-91 from:

Exercice 2 - Un tableau d'entiers aléatoires

to:

Exercice 6 - Un tableau d'entiers aléatoires

Changed lines 103-104 from:

Exercice 3 - Effacer tableau

to:

Exercice 7 - Effacer tableau

Changed lines 109-110 from:

Exercice 4 - Recherche du minimum

to:

Exercice 8 - Recherche du minimum

Changed lines 133-134 from:

'''Exercice 4 - Colorier Min

to:

'''Exercice 9 - Colorier Min

Changed lines 146-147 from:

'''Exercice 5-Colorier Max

to:

'''Exercice 10-Colorier Max

Changed line 166 from:

Exercice 6 - Moyenne sans min ni max

to:

Exercice 11 - Moyenne sans min ni max

March 01, 2014, at 10:36 PM by 176.183.136.244 -
Changed line 13 from:

Exercice 0 - Préliminaire

to:

Préliminaire

Changed lines 24-27 from:

1/ Affichage d'un message : commande MsgBox

Affichage d'un message : commande MsgBox

to:

Exercice 1 - affichage et tableau d'entiers

1/ Affichage d'un message : commande MsgBox \\

Changed lines 31-37 from:

2/ Affecter des valeurs dans des cellules d'une feuille Excel '''

3/ Déclarer une variable puis l'afficher '''

4/ Remplir un tableau de données '''

to:

2/ Afficher l'heure dans une cellule

3/ Affecter des valeurs dans des cellules d'une feuille Excel

4/ Déclarer une variable puis l'afficher

5/ Remplir un tableau de données

6/ Calculer la somme d'une colonne

Exercice 2 - les conditions

March 01, 2014, at 10:30 PM by 176.183.136.244 -
March 01, 2014, at 10:29 PM by 176.183.136.244 -
Changed lines 24-25 from:

1/ Affichage d'un message : commande MsgBox

to:

1/ Affichage d'un message : commande MsgBox

Changed lines 27-28 from:

Sub Ma_Premiere_Macro() MsgBox ("Bonjour”)

to:

Sub Ma_Premiere_Macro()
MsgBox ("Bonjour”)\\

Changed lines 32-36 from:

2/ Affecter des valeurs dans des cellules d'une feuille Excel

3/ Déclarer une variable puis l'afficher

4/ Remplir un tableau de données

to:

2/ Affecter des valeurs dans des cellules d'une feuille Excel '''

3/ Déclarer une variable puis l'afficher '''

4/ Remplir un tableau de données '''

March 01, 2014, at 10:28 PM by 176.183.136.244 -
Changed lines 20-58 from:

C'est dans un module que nous écrirons toutes les fonctions et les macros que nous utiliserons dorénavant. Il est donc important que vous sachiez faire la manipulation précédente à tous les tds.

to:

C'est dans un module que nous écrirons toutes les fonctions et les macros que nous utiliserons dorénavant. Il est donc important que vous sachiez faire la manipulation précédente à tous les tds.

Ecrire des macros qui permettent de réaliser :

1/ Affichage d'un message : commande MsgBox

Affichage d'un message : commande MsgBox Sub Ma_Premiere_Macro() MsgBox ("Bonjour”) End Sub

2/ Affecter des valeurs dans des cellules d'une feuille Excel

3/ Déclarer une variable puis l'afficher

4/ Remplir un tableau de données

March 04, 2013, at 04:30 PM by 132.227.100.114 -
Added line 43:
Added line 48:
Added line 61:
Added line 63:
Added line 67:
Added line 104:
March 04, 2013, at 04:29 PM by 132.227.100.114 -
Changed lines 62-68 from:

Exercice 4 - Trouver Min et Max

Définir deux macros ColorierMin() et ColorierMax() qui parcourent le tableau d'entiers aléatoires et qui colorient la cellule contenant la plus petite valeur en bleu (code couleur 8) et la cellule contenant la plus grande valeur en jaune (code couleur 6) respectivement.

Utiliser l'instruction if:

to:

Exercice 4 - Recherche du minimum Écrire une macro ChercheMin permettant de trouver le minimum du tableau d'entiers aléatoires et de l'afficher en utilisant une boite de message (MsgBox("Le minimum est " & min)). vous aurez besoin de l'instruction permettant de faire un test :

Added lines 71-88:

Algorithme de recherche du minimum

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

           si (Cell(i) < min)
              alors faire
                min <-- Cell(i)
              fin faire
           fin si
    fin faire

fin pour Afficher min

'''Exercice 4 - Colorier Min

Définir la macro ColorierMin() qui parcourent le tableau d'entiers aléatoires et qui colorient la cellule contenant la plus petite valeur en bleu (code couleur 8)

Changed lines 98-99 from:
to:

'''Exercice 5-Colorier Max Définir la macro ColorierMax qui parcourent le tableau d'entiers aléatoires et qui colorient la cellule contenant la plus grande valeur en jaune (code couleur 6) respectivement.

Changed lines 117-132 from:

Algorithme de recherche du minimum

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

           si (Cell(i) < min)
              alors faire
                min <-- Cell(i)
                colMin = i
              fin faire
           fin si
    fin faire

fin pour

Exercice 5 - Moyenne sans min ni max

to:

Exercice 6 - Moyenne sans min ni max

March 04, 2013, at 04:21 PM by 132.227.100.114 -
Changed line 43 from:
  1. Modifier légérement votre macro pour que celle-ci affiche un tableau d'entiers sur la feuille courante
to:
  1. Modifier légèrement votre macro pour que celle-ci affiche un tableau d'entiers sur la feuille courante
Added lines 56-57:
Changed lines 59-60 from:

Définir le macro effacer() qui permet d'effacer les deux tableaux.

to:

Pour sélectionner un groupe de cellules adjacentes d'un classeur en VBA, nous pouvons utiliser le mot clé Range("A1:B4"). Il est alors possible de travailler sur cet ensemble de cellule en utilisant des propriété ou des fonctions disponibles. Ainsi la fonction clear() permet d'effacer le contenu d'une cellule ou d'un groupe de cellule. L'instruction VBA Range("A1:B4").clear efface donc le contenu des cellules A1 à B4. en utilisant ces informations écrire à la suite des autres macros, une nouvelle macro appelée effacer qui efface les 2 tableaux.

March 04, 2013, at 04:17 PM by 132.227.100.114 -
Changed line 49 from:

http://www-poleia.lip6.fr/~hoet/TD5_1.png

to:

http://www-poleia.lip6.fr/~hoet/TD5_2.png

March 04, 2013, at 04:16 PM by 132.227.100.114 -
Changed lines 47-50 from:

En précisant dans la cellule B1 la taille du tableau, définir le macro remplirTableauAleatoire() qui construit un tableau horizontal d'entiers aléatoires à partir de la cellule A6. Utiliser la fonction Rnd() qui renvoie une valeur réelle, uniforme entre 0 et 1.

to:

Nous souhaitons maintenant obtenir un tableau d'entiers contenant des nombres entiers compris entre 0 et 100. De plus nous souhaitons que chaque valeur soit définie aléatoirement par notre macro. Pour cela nous allons écrire une deuxième macro que nous appellerons remplirTableauAleatoire.

http://www-poleia.lip6.fr/~hoet/TD5_1.png

  1. Définir dans module, une nouvelle macro ( en dessous de la première) que vous appelerez remplirTableauAleatoire et dont le contenu est vide
  2. Ajouter dans la macro remplirTableauAleatoire, les instructions pour définir une variable t qui est de type entier. Stocker dans t, la valeur contenu dans la cellule B1
  3. Ajouter une instruction pour afficher dans la cellule A5 le mot Aleatoires
  4. Ajouter l'instruction suivante Cells(5,2) = Rnd(). Executer plusieurs fois votre macro. Que fait la fonction Rnd()
  5. Effacer l'instruction Cells(5,2) = Rnd(). En utilisant une boucle for, la fonction Rnd() et la fonction Int(quelquechose)(qui transforme quelquechose en entier), écrire les instructions qui créent le tableau d'entiers aléatoires de taille t
March 04, 2013, at 04:06 PM by 132.227.100.114 -
Added line 32:
  1. Ajouter une instruction permettant d'afficher dans la cellule A3 le mot Entiers
Added lines 42-44:

Exercice 1 bis - Un tableau d'entier

  1. Modifier légérement votre macro pour que celle-ci affiche un tableau d'entiers sur la feuille courante
  2. Tester votre macro sur la feuille 2. N'oubliez pas d'ajouter la valeur de la taille du tableau dans la cellule B2 avant
March 04, 2013, at 04:03 PM by 132.227.100.114 -
Changed lines 23-26 from:

Nous souhaitons ecrire notre première macro VBA. Cette macro s'appelera remplirTableauEntiers(). Elle aura pour but de remplir un tableau horizontal d'entiers à partir de la cellule A4 de la feuille 1 du classeur. Ce tableau contiendra les valeurs 1, 2 ... tailletaille' est une valeur précisée dans la cellule B1.

to:

Nous souhaitons écrire notre première macro VBA. Cette macro s'appelera remplirTableauEntiers. Elle aura pour but de remplir un tableau horizontal d'entiers à partir de la cellule A4 de la feuille 1 du classeur. Ce tableau contiendra les valeurs 1, 2 ... tailletaille' est une valeur précisée dans la cellule B1.

Changed lines 29-31 from:

Pour le faire utiliser la boucle for :

to:
  1. Écrire une macro remplirTableauEntiers dont le contenu est vide
  2. A l'intérieur de la macro remplirTableauEntiers, définir une variable qui contient un entier et qui s'appelle t
  3. Ajouter une instruction permettant de récupérer le contenu de la cellule B1 de la feuille 1 et de le stocker dans t
  4. En utilisant une boucle for, :\\
Changed lines 35-39 from:

Next

to:

Next
Ajouter les instructions nécessaires permettant de remplir le tableau d'entier

  1. Tester votre macro. Pour cela placez vous sur la feuille 1 du classeur, onglet Développeur, cliquez sur Macro, cliquez sur remplirTableauEntiers puis sur executer
  2. Effacer le contenu de la feuille 1
  3. Tester votre Macro en vous plaçant sur la feuille 2 que se passe-t-il?
March 04, 2013, at 03:52 PM by 132.227.100.114 -
Changed lines 23-24 from:

En précisant dans la cellule B1 la taille du tableau, définir le macro remplirTableauEntiers() qui construit un tableau horizontal d'entiers qui contient les valeurs 1, 2, ... taille à partir de la cellule A4.

to:

Nous souhaitons ecrire notre première macro VBA. Cette macro s'appelera remplirTableauEntiers(). Elle aura pour but de remplir un tableau horizontal d'entiers à partir de la cellule A4 de la feuille 1 du classeur. Ce tableau contiendra les valeurs 1, 2 ... tailletaille' est une valeur précisée dans la cellule B1. http://www-poleia.lip6.fr/~hoet/TD5_1.png

March 04, 2013, at 03:45 PM by 132.227.100.114 -
Deleted lines 12-16:

Créer un dossier TD5 sur le bureau et créer dedans un fichier Excel que vous sauvegarderez sous le nom TD5.xlsm . Veillez à sauvegarder le fichier en choisissant "Classeur Excel prenant en charge les macros" - d'où l'extension .xlsm .

http://www.up2.fr/L3EcoInter/TD5/TD5.JPG

Changed line 16 from:
  1. Aller sur l'onglet 'Développeur.
to:
  1. Aller sur l'onglet Développeur.
Changed lines 99-103 from:

Définir la Fonction moyenneSansMinMax() qui calcule et renvoie la moyenne du tableau d'entiers aléatoires sans prendre en compte la plus petite et la plus grande valeur.

to:

Définir la Fonction moyenneSansMinMax() qui calcule et renvoie la moyenne du tableau d'entiers aléatoires sans prendre en compte la plus petite et la plus grande valeur.

http://www.up2.fr/L3EcoInter/TD5/TD5.JPG

March 04, 2013, at 03:44 PM by 132.227.100.114 -
March 04, 2013, at 03:44 PM by 132.227.100.114 -
Added lines 17-25:

Exercice 0 - Préliminaire

  1. Ouvrir un classeur excel.
  2. Sauvegarder le sous le nom TD5.xlsm (classeur prenant en charge les macros). Attention, si vous sauvegardez votre classeur en .xlm vous ne pourrez pas utiliser VBA!.
  3. Aller sur l'onglet 'Développeur.
  4. Cliquer sur le bouton Visual basic , une nouvelle fenêtre va s'ouvrir. Cette fenêtre sera votre espace de travail pour écrire des macros et des fonctions VBA. Celles-ci seront utilisées par votre classeur TD5.
  5. Dans la fenêtre vba, cliquer sur Insertion et sélectionner dans le menu Module.

C'est dans un module que nous écrirons toutes les fonctions et les macros que nous utiliserons dorénavant. Il est donc important que vous sachiez faire la manipulation précédente à tous les tds.

March 25, 2011, at 09:24 AM by 193.49.199.212 -
Added lines 42-50:

Utiliser l'instruction if:

If ( ) Then ...
Else
...
End If

March 25, 2011, at 09:22 AM by 193.49.199.212 -
Changed lines 22-27 from:

Pour le faire utiliser la boucle for :
for i = 1 to n step 1

......

to:

Pour le faire utiliser la boucle for :

for i = 1 to n step 1
...... \\

March 25, 2011, at 09:22 AM by 193.49.199.212 -
Added lines 21-29:

Pour le faire utiliser la boucle for :
for i = 1 to n step 1

......

Next

March 25, 2011, at 09:05 AM by 193.49.199.212 -
Added line 37:
Added lines 43-44:
March 25, 2011, at 09:04 AM by 193.49.199.212 -
Changed lines 39-41 from:
   .ColorIndex = 8
.Pattern = xlSolid

End With

to:
    .ColorIndex = 8
.Pattern = xlSolid
End With\\
March 25, 2011, at 09:04 AM by 193.49.199.212 -
Changed lines 37-39 from:

Cells(i,j).Select With Selection.Interior

   .ColorIndex = 8
to:

Cells(i,j).Select
With Selection.Interior
.ColorIndex = 8\\

March 25, 2011, at 09:04 AM by 193.49.199.212 -
Added lines 34-41:

Pour colorier une cellule utiliser le code :
Cells(i,j).Select With Selection.Interior

   .ColorIndex = 8
   .Pattern = xlSolid

End With

March 25, 2011, at 09:02 AM by 193.49.199.212 -
Added line 25:

Utiliser la fonction Rnd() qui renvoie une valeur réelle, uniforme entre 0 et 1.

March 25, 2011, at 08:31 AM by 193.49.199.212 -
Added lines 44-58:
              fin faire
           fin si
    fin faire

fin pour

Algorithme de recherche du minimum

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

           si (Cell(i) < min)
              alors faire
                min <-- Cell(i)
                colMin = i
March 25, 2011, at 08:28 AM by 193.49.199.212 -
Changed lines 36-38 from:

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

to:

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

March 25, 2011, at 08:28 AM by 193.49.199.212 -
Added line 35:
March 25, 2011, at 08:27 AM by 193.49.199.212 -
Added lines 33-46:

Algorithme de recherche du maximum max <-- -1 colMax <-- -1 pour i allant de 1 à n

    faire
           si (max < Cell(i))
              alors faire
                max <-- Cell(i)
                colMax = i
              fin faire
           fin si
    fin faire

fin pour

March 23, 2011, at 10:09 AM by 132.227.203.101 -
Changed lines 36-57 from:

Définir la Fonction moyenneSansMinMax() qui calcule et renvoie la moyenne du tableau d'entiers aléatoires sans prendre en compte la plus petite et la plus grande valeur.

Exercice 6 - Matrice aléatoire

Définir le macro matriceAleatoire permettant de construire une matrice de 10 X 10 dans la plage A9:J18 contenant des entiers aléatoires.

Exercice 7 - Trouver Min et Max Matrice

Définir deux macros ColorierMinMatrice() et ColorierMaxMatrice() qui parcourent la matrice d'entiers aléatoires et qui colorient la cellule contenant la plus petite valeur en bleu (code couleur 8) et la cellule contenant la plus grande valeur en jaune (code couleur 6) respectivement.

Exercice 8 - Moyenne Matrice sans min ni max

Définir la Fonction moyenneMatriceSansMinMax() qui calcule et renvoie la moyenne de la matrice d'entiers aléatoires sans prendre en compte la plus petite et la plus grande valeur.

Exercice 9 - Matrice aléatoire Pair / Impair

Définir le macro matriceAleatoirePairImpair() permettant de construire une matrice de 10 X 10 dans la plage A21:J30 contenant des entiers aléatoires. Par la suite, ce macro parcourt la matrice et colorie les cellules contenant de nombres pairs en vert (code couleur 4) et celles contenant des nombres impairs en rouge (code couleur 3).

Exercice 10 - Matrice aléatoire Pair / Impair - Moyenne

Définir les Fonctions moyenneMatricePairs() et moyenneMatriceImpairs() qui calculent et renvoient la moyenne de nombres pairs et la moyenne de nombres impairs de la matrice d'entiers aléatoires.

to:

Définir la Fonction moyenneSansMinMax() qui calcule et renvoie la moyenne du tableau d'entiers aléatoires sans prendre en compte la plus petite et la plus grande valeur.

March 16, 2011, at 11:50 AM by 132.227.203.97 -
Added lines 15-16:

http://www.up2.fr/L3EcoInter/TD5/TD5.JPG

March 16, 2011, at 11:31 AM by 132.227.100.50 -
Changed lines 42-43 from:

Définir deux macros ColorierMinMatrice() et ColorierMaxMatrice() qui parcourent le tableau d'entiers aléatoires et qui colorient la cellule contenant la plus petite valeur en bleu (code couleur 8) et la cellule contenant la plus grande valeur en jaune (code couleur 6) respectivement.

to:

Définir deux macros ColorierMinMatrice() et ColorierMaxMatrice() qui parcourent la matrice d'entiers aléatoires et qui colorient la cellule contenant la plus petite valeur en bleu (code couleur 8) et la cellule contenant la plus grande valeur en jaune (code couleur 6) respectivement.

Changed lines 46-47 from:

Définir la Fonction moyenneMatriceSansMinMax() qui calcule et renvoie la moyenne du tableau d'entiers aléatoires sans prendre en compte la plus petite et la plus grande valeur.

to:

Définir la Fonction moyenneMatriceSansMinMax() qui calcule et renvoie la moyenne de la matrice d'entiers aléatoires sans prendre en compte la plus petite et la plus grande valeur.

Changed lines 51-55 from:

Par la suite, ce macro parcourt la matrice et colorie les cellules contenant de nombres pairs en VERT et celles contenant des nombres impairs en ROUGE.

to:

Par la suite, ce macro parcourt la matrice et colorie les cellules contenant de nombres pairs en vert (code couleur 4) et celles contenant des nombres impairs en rouge (code couleur 3).

Exercice 10 - Matrice aléatoire Pair / Impair - Moyenne

Définir les Fonctions moyenneMatricePairs() et moyenneMatriceImpairs() qui calculent et renvoient la moyenne de nombres pairs et la moyenne de nombres impairs de la matrice d'entiers aléatoires.

March 16, 2011, at 11:23 AM by 132.227.100.50 -
Changed line 50 from:

Définir le macro matriceAleatoirePairImpair() permettant de construire une matrice de 10 X 10 dans la plage A21:J31 contenant des entiers aléatoires.

to:

Définir le macro matriceAleatoirePairImpair() permettant de construire une matrice de 10 X 10 dans la plage A21:J30 contenant des entiers aléatoires.

March 16, 2011, at 11:20 AM by 132.227.100.50 -
Added lines 39-51:

Exercice 7 - Trouver Min et Max Matrice

Définir deux macros ColorierMinMatrice() et ColorierMaxMatrice() qui parcourent le tableau d'entiers aléatoires et qui colorient la cellule contenant la plus petite valeur en bleu (code couleur 8) et la cellule contenant la plus grande valeur en jaune (code couleur 6) respectivement.

Exercice 8 - Moyenne Matrice sans min ni max

Définir la Fonction moyenneMatriceSansMinMax() qui calcule et renvoie la moyenne du tableau d'entiers aléatoires sans prendre en compte la plus petite et la plus grande valeur.

Exercice 9 - Matrice aléatoire Pair / Impair

Définir le macro matriceAleatoirePairImpair() permettant de construire une matrice de 10 X 10 dans la plage A21:J31 contenant des entiers aléatoires. Par la suite, ce macro parcourt la matrice et colorie les cellules contenant de nombres pairs en VERT et celles contenant des nombres impairs en ROUGE.

March 16, 2011, at 11:05 AM by 132.227.100.50 -
Changed lines 24-25 from:

Exercice 4 - Effacer tableau

to:

Exercice 3 - Effacer tableau

Changed lines 28-29 from:

Exercice 3 - Trouver Min et Max

to:

Exercice 4 - Trouver Min et Max

Définir deux macros ColorierMin() et ColorierMax() qui parcourent le tableau d'entiers aléatoires et qui colorient la cellule contenant la plus petite valeur en bleu (code couleur 8) et la cellule contenant la plus grande valeur en jaune (code couleur 6) respectivement.

Exercice 5 - Moyenne sans min ni max

Définir la Fonction moyenneSansMinMax() qui calcule et renvoie la moyenne du tableau d'entiers aléatoires sans prendre en compte la plus petite et la plus grande valeur.

Exercice 6 - Matrice aléatoire

Définir le macro matriceAleatoire permettant de construire une matrice de 10 X 10 dans la plage A9:J18 contenant des entiers aléatoires.

March 16, 2011, at 10:35 AM by 132.227.100.50 -
Changed lines 18-19 from:

En précisant dans la cellule B1 la taille du tableau, construire un tableau horizontal d'entiers qui contient les valeurs 1, 2, ... taille à partir de la cellule A4.

to:

En précisant dans la cellule B1 la taille du tableau, définir le macro remplirTableauEntiers() qui construit un tableau horizontal d'entiers qui contient les valeurs 1, 2, ... taille à partir de la cellule A4.

Changed lines 22-26 from:

En précisant dans la cellule B1 la taille du tableau, construire un tableau horizontal d'entiers aléatoires à partir de la cellule A6.

to:

En précisant dans la cellule B1 la taille du tableau, définir le macro remplirTableauAleatoire() qui construit un tableau horizontal d'entiers aléatoires à partir de la cellule A6.

Exercice 4 - Effacer tableau

Définir le macro effacer() qui permet d'effacer les deux tableaux.

March 16, 2011, at 10:31 AM by 132.227.100.50 -
Added lines 17-24:

En précisant dans la cellule B1 la taille du tableau, construire un tableau horizontal d'entiers qui contient les valeurs 1, 2, ... taille à partir de la cellule A4.

Exercice 2 - Un tableau d'entiers aléatoires

En précisant dans la cellule B1 la taille du tableau, construire un tableau horizontal d'entiers aléatoires à partir de la cellule A6.

Exercice 3 - Trouver Min et Max

March 16, 2011, at 10:20 AM by 132.227.100.50 -
Added lines 15-16:

Exercice 1 - Un tableau d'entiers

March 16, 2011, at 10:13 AM by 132.227.100.50 -
Changed lines 3-15 from:

Séance 5

to:

Séance 5

Installation du VBA

  1. Cliquer sur le bouton Office.
  2. Cliquer sur le bouton Options Excel.
  3. Cliquer sur Compléments dans le menu de gauche, puis sur le bouton Atteindre situé en bas de la fenêtre.
  4. Dans la petite fenêtre de dialogue qui s'est ouverte, cocher Analysis ToolPak VBA.
  5. Valider en cliquant sur le bouton OK.
  6. Excel installe les compléments et ferme la fenêtre d'Options.

Créer un dossier TD5 sur le bureau et créer dedans un fichier Excel que vous sauvegarderez sous le nom TD5.xlsm . Veillez à sauvegarder le fichier en choisissant "Classeur Excel prenant en charge les macros" - d'où l'extension .xlsm .

February 03, 2011, at 06:47 PM by 132.227.203.97 -
Added lines 1-3:

(:title Licence L3: Économie Internationale:)

Séance 5

UP2