Remplissage de cellule par calcul de multiplications
Utilisateur anonyme
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 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
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
3 réponses
-
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 -
-
Autre question,
j'aimerais faire en sorte que les réponses aillent automatiquement dans le "Sheet 1"
sauriez vous comment faire ?
