Remplissage de cellule par calcul de multiplications

Utilisateur anonyme -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,



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



Configuration: Windows / Chrome 78.0.3904.108
A voir également:

3 réponses

ALS35 Messages postés 1033 Date d'inscription   Statut Membre Dernière intervention   145
 
Bonjour,

Si c'est une simple multiplication :
Sub Multiplication2()

Dim i As Long, j As Long

For i = 2 To 6
    For j = 2 To 6
        Cells(i, j).Value = Cells(i, 1).Value * Cells(1, j).Value
    Next j
Next i

End Sub


Cordialement
0
Utilisateur anonyme
 
un grand merci!
0
Utilisateur anonyme
 
Autre question,

j'aimerais faire en sorte que les réponses aillent automatiquement dans le "Sheet 1"
sauriez vous comment faire ?
0
ALS35 Messages postés 1033 Date d'inscription   Statut Membre Dernière intervention   145
 
De quoi parles-tu ?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
bonjour, peut-être remplacer partout
Cells
pas
Sheets("Sheet 1").Cells
0