Remplissage de cellule par calcul de multiplications [Fermé]

Signaler
Messages postés
47
Date d'inscription
dimanche 29 janvier 2017
Statut
Membre
Dernière intervention
29 juillet 2020
-
Messages postés
13431
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
5 décembre 2020
-
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

3 réponses

Messages postés
542
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
3 décembre 2020
24
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
Messages postés
47
Date d'inscription
dimanche 29 janvier 2017
Statut
Membre
Dernière intervention
29 juillet 2020

un grand merci!
Messages postés
47
Date d'inscription
dimanche 29 janvier 2017
Statut
Membre
Dernière intervention
29 juillet 2020

Autre question,

j'aimerais faire en sorte que les réponses aillent automatiquement dans le "Sheet 1"
sauriez vous comment faire ?
Messages postés
542
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
3 décembre 2020
24
De quoi parles-tu ?
Messages postés
13431
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
5 décembre 2020
750
bonjour, peut-être remplacer partout
Cells
pas
Sheets("Sheet 1").Cells