Bonjour tout le monde,
Je galere depuis un moment sur le code suivant.
J'essaie de creer une macro qui calcule le produit de trois cellules et le resultat s'affiche dans la cellule adjacente (la quatrieme cellule sur la ligne, les trois cellules precedentes contenant les donnees dont je fais le produit).
Je dois effectuer ce calcul pour toutes les lignes du tableau.
Ensuite je veux que la macro fasse la meme chose, pour toutes les 4 colonnes. Car j ai plusieurs jeux de 3 colonnes dont je souhaite calculer le produit.
J'aiu code la macro suivante mais j'obtiens une erreur avec le Range
"Method 'Range' of object'_Global' failed"
Est ce que qqun a une idee ?
Merci bcp
Je galere depuis un moment sur le code suivant.
J'essaie de creer une macro qui calcule le produit de trois cellules et le resultat s'affiche dans la cellule adjacente (la quatrieme cellule sur la ligne, les trois cellules precedentes contenant les donnees dont je fais le produit).
Je dois effectuer ce calcul pour toutes les lignes du tableau.
Ensuite je veux que la macro fasse la meme chose, pour toutes les 4 colonnes. Car j ai plusieurs jeux de 3 colonnes dont je souhaite calculer le produit.
J'aiu code la macro suivante mais j'obtiens une erreur avec le Range
"Method 'Range' of object'_Global' failed"
Est ce que qqun a une idee ?
Merci bcp
Code:
Sub product()
Dim i, j As Integer
Dim n As Variant
Set plage = Worksheets("SMI_Ranking").Range(Cells(2, 5), Cells(2, 5).End(xlDown))
'compte le nombre de cellules de la plage
n = WorksheetFunction.Count(plage)
For j = 5 To 81 Step 4
For i = 2 To n
'try to calculate the product column b * column b * column c for each row
With Range(Cells(i, j), Cells(i, j))
.Value = Application.WorksheetFunction.product(Range(.Offset(, -3)), (.Offset(, -1)))
End With
Next i
Next j
End Sub