Excel - Power Query - Power Pivot - VBA

VBA02 | Table de multiplication

Énoncé

  • Thème : boucle For et fenêtre Exécution | Durée : 10 min | Niveau : débutant.
  • Macro à écrire : Table.

Travail demandé

  • Lire le nombre placé en B1.
  • Afficher sa table de multiplication de 1 à 10 dans la fenêtre Exécution avec Debug.Print, une ligne par calcul : 7 x 1 = 7, 7 x 2 = 14… jusqu'à 7 x 10 = 70.

La vérification teste B1 = 7 puis B1 = 12.

Corrigé

Sub Table()
    Dim n As Integer
    Dim i As Integer
    n = Range("B1").Value
    For i = 1 To 10
        Debug.Print n & " x " & i & " = " & n * i
    Next i
End Sub
  • For i = 1 To 10 répète le bloc en augmentant i de 1 à chaque tour ; Step permet un autre pas.
  • Dans Excel, la fenêtre Exécution s'ouvre dans l'éditeur VBA avec Ctrl+G.
  • Remarque : Debug.Print n seul affiche un espace avant et après un nombre positif ; la concaténation avec & l'évite.

Pour aller plus loin