Exercice : For

Pour chaque procédure :

  • Coder en VBA dans un module nommé pour

  • Créez un bouton sur la feuille Pour

Question

Sub Affiche_5_9()

Affiche les nombres de 5 à 9.

Question

Sub Table_8()

Affiche la table de 8

Indice

1 * 8 = 8

2 * 8 = 16

3 * 8 = 24

...

10 * 8 = 80

Question

Sub TableN()

Demande un nombre.

Affiche la table de multiplication du nombre.

Question

Sub AffichePair()

Affiche les nombres pairs de 1 à 100.

Question

Sub Affiche_3_7()

Affiche les nombres divisibles par 3 et 7 entre 1 et 100.

Question

Sub MaxMin_10()

Demande 10 chiffres.

Affiche le max et le min.

Question

Sub Affiche_10_lignes()

Affiche les nombres de 1 à 10, 10 fois, sur 10 lignes.

Indice

1,2,3,...10

1,2,3,...10

1,2,3,...10

1,2,3,...10

1,2,3,...10

1,2,3,...10

1,2,3,...10

1,2,3,...10

1,2,3,...10

1,2,3,...10

Question

Sub Affiche_100_lignes()

Affiche les nombres de 1 à 100 sur 10 lignes.

Indice

1,2,3...10

11,12,13,...20

21,22,23,...30

...

91,92,...100

Question

Sub Affiche_10()

Affiche les chiffres de 1 à 10, puis de 1 à 9, puis de 1 à 8, jusque 1.

Indice

1,2,3,4,5,6,7,8,9,10

1,2,3,4,5,6,7,8,9

1,2,3,4,5,6,7,8

1,2,3,4,5,6,7

1,2,3,4,5,6

1,2,3,4,5

1,2,3,4

1,2,3

1,2

1