[VBA-Débutant]Créez une table de multiplication

[Heureux-oli]

Juste pour le plaisir.

Pour créer une table de multiplication, on va commencer par créer une table de 11 lignes et de 11 colonnes.

ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=11, Numcolumns:=11)

Par facilité, nous allons utiliser un objet table et lui affecter notre table.

Dim oTbl As Table
 
Set oTbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=11, Numcolumns:=11)
 

Nous avons aussi besoin de deux entiers qui serviront à l'indexation des tables.

Dim iRow As Integer
Dim iCol As Integer

Nous allons utiliser deux boucles imbriquées pour adresser la table et calculer les multiplications.

For iRow = 1 To 10
    For iCol = 1 To 10
        oTbl.Cell(iRow + 1, iCol + 1).Range.Text = iRow * iCol
    Next iCol
Next iRow

Pour l'adressage des cellules, nous ajoutons 1 pour laisser la première ligne et la première colonne libre.

Pour remplir les en-tête des lignes et colonnes, nous allons utiliser deux boucles séparées.

iRow = iCol = 0
 
For iRow = 1 To 10
    oTbl.Columns(1).Cells(iRow + 1).Range.Text = iRow
Next iRow
 
For iCol = 1 To 10
    oTbl.Rows(1).Cells(iCol + 1).Range.Text = iCol
Next iCol

Comme iRow et iCol ont déjà été utilisé, il faut les remettre à 0

Le code complet :

Sub tableMultiplication()
Dim oTbl As Table
Dim iRow As Integer
Dim iCol As Integer
 
Set oTbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=11, Numcolumns:=11)
 
For iRow = 1 To 10
    For iCol = 1 To 10
        oTbl.Cell(iRow + 1, iCol + 1).Range.Text = iRow * iCol
        
    Next iCol
Next iRow
iRow = iCol = 0
 
For iRow = 1 To 10
    oTbl.Columns(1).Cells(iRow + 1).Range.Text = iRow
Next iRow
 
For iCol = 1 To 10
    oTbl.Rows(1).Cells(iCol + 1).Range.Text = iCol
Next iCol
 
 
Set oTbl = Nothing
 
 
End Sub
 

Essayez !