Formule avec plage dynamique
d
Bonjour à tous,
J'ai un petit problème que je vous expose. J'ai des soucis pour traduire la formule d'une cellule en macro. Par exemple dans le fichier joint, à la colonne DELTA, je veux faire une macro qui effectue le calcul de la cellule:
=E2/SOMME($E$2:$E$8) pouvant ainsi prendre en compte dynamiquement la variation des lignes et des colonnes.
Merci d'avance pour vos réponses.
Bonjour,
Sub test1()
With Sheets("Feuil1")
.Range("F2") = .Range("E2") / Application.Sum(.Range("$E$2:$E$8"))
End With
End Subun autre exemple avec des variable,
Sub test2()
premièreLigne = 2
derniereLigne = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
colonne = 5
ligne = 3
With Sheets("Feuil1")
.Cells(ligne, colonne + 1) = .Cells(ligne, colonne) / Application.Sum(.Range(Cells(premièreLigne, colonne), Cells(derniereLigne, colonne)))
End With
End Sub