Remplissage de cellule par calcul de multiplications

Messages postés
25
Date d'inscription
dimanche 29 janvier 2017
Statut
Membre
Dernière intervention
25 novembre 2019
- - Dernière réponse : yg_be
Messages postés
9056
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
6 décembre 2019
- 25 nov. 2019 à 19:42
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
Afficher la suite 

3 réponses

Messages postés
302
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
6 décembre 2019
11
0
Merci
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
Commenter la réponse de ALS35
Messages postés
25
Date d'inscription
dimanche 29 janvier 2017
Statut
Membre
Dernière intervention
25 novembre 2019
0
Merci
un grand merci!
Commenter la réponse de Coronae
Messages postés
25
Date d'inscription
dimanche 29 janvier 2017
Statut
Membre
Dernière intervention
25 novembre 2019
0
Merci
Autre question,

j'aimerais faire en sorte que les réponses aillent automatiquement dans le "Sheet 1"
sauriez vous comment faire ?
ALS35
Messages postés
302
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
6 décembre 2019
11 -
De quoi parles-tu ?
yg_be
Messages postés
9056
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
6 décembre 2019
464 -
bonjour, peut-être remplacer partout
Cells
pas
Sheets("Sheet 1").Cells
Commenter la réponse de Coronae