Procédure pour remplir une plage de cellule

Hello

J'aimerais créer une procédure me permettant de remplir le tableau (cf fichier excel) joint par des produits entre les cellules en gras

j'ai tenté cette procédure :

Sub multiplication()

For i = 2 To 6

For j = 2 To 6

Cells(i, j).Value = Cells(i) * Cells(j)

Next j

Next i

End Sub

qu'en pensez vous ? comment auriez vous fait ?

bien à vous

Bonjour,

Une première réponse.

Cdlt.

Option Explicit

Public Sub Test()
Dim tbl As Variant, i As Long, j As Long
    With ActiveSheet
        tbl = .Cells(1).CurrentRegion.Value
        For i = 2 To UBound(tbl, 1)
            For j = 2 To UBound(tbl, 2)
                tbl(i, j) = tbl(i, 1) * tbl(1, j)
            Next j
        Next i
        .Cells(1).CurrentRegion.Value = tbl
    End With
End Sub

Bonjour,

Merci pour votre retour.

Etant donné que c'est dans le cadre d'une formation scolaire VBA, je ne suis pas censé maitriser ces notions mentionnées dans votre joli code

pensez-vous qu'avec mon proposé ça soit suffisant ? L'idée justement c'est de ne pas avoir le "bouton" qu'il y a dans votre fichier (très pratique j'avoue mais je ne suis pas censé savoir faire ça). L'idée serait que lorsque j'exécute mon module, ça remplisse les cellules par les résultats

Auriez-vous une piste ? (peut etre en partant de mon code ?))

Bien à vous,