Sujet Précédent Sujet Suivant

Remplissage de cellule par calcul de multiplications

Fermé
Utilisateur anonyme - 25 nov. 2019 à 15:35
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 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
A voir également:

3 réponses

Réponse 1 / 3
ALS35 Messages postés 1033 Date d'inscription jeudi 18 juillet 2019 Statut Membre Dernière intervention 9 janvier 2024 139
25 nov. 2019 à 16:13
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
Réponse 2 / 3
Utilisateur anonyme
25 nov. 2019 à 16:30
un grand merci!
0
Réponse 3 / 3
Utilisateur anonyme
25 nov. 2019 à 17:47
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 jeudi 18 juillet 2019 Statut Membre Dernière intervention 9 janvier 2024 139
25 nov. 2019 à 18:11
De quoi parles-tu ?
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
25 nov. 2019 à 19:42
bonjour, peut-être remplacer partout 
Cells
pas 
Sheets("Sheet 1").Cells
0

Discussions similaires

exo pix
Xtyller -
Raymond PENTIER -

2 réponses
Excel si cellule contient texte alors...
caba_44 -
RENOU -

41 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses