calculs dépendant de conditions

Bonjour,

dans le cadre d'un projet forestier, je dois calculer des volumes en fonction de plusieurs critères:
je souhaite dans une nouvelle LIGNE faire des multiplications:
en
si E7="chene"
alors G8 = G7*$K7*$L7*$AJ$5

La macro que j'essaie d'écrire ressemble à ça pour le moment : (mais ça ne fonctionne pas)

Code:

---

1 2 3 4 5 6 7

Sub volume() Range("A1:BG300").Select 'Permet de selectionner plusieurs cellules For Each Cell In Selection 'Pour chaque cellule dans la selection   If Cell.Value = "chene" Then ActiveCell.Offset(1, 2).Value = ActiveCell.Offset(1, 6) * ActiveCell.Offset(0, 2) * ActiveCell.Offset(0, 3) * 0.8 End If

---

Merci d'avance pour votre aide

Bonjour Cammm,
Il faut plus de précisions pour que les gens puissent t'aider.
Comment est structuré ton tableau, tes données?
Comment il faudra savoir il faut multiplier par tel ou tel cellule?

Citation:

---

G8 = G7*$K7*$L7*$AJ$5

---

Pour que ce soit plus claire j'ai mis le fichier exemple en pièce jointe.

en fait j'ai deja traité une partie des données en faisant des formules directement dans mon tableau. Mais je vais devoir ajouter 500 lignes environ, certaines manipulations ne peuvent pas être faite à la main...

Je voudrais remplacer toutes les formules par une macro:

pour une essence A, je calcule le volume :
Hx * Kx * Lx *0.8

Puis je dois additionner toutes ses nouvelles valeurs, corespondant à l'essence A, mais pouvant venir de 2 colonnes différentes, pondérées par la surface.

mon principal probleme est de faire écrire, par la macro, une nouvelle valeur dans une cellule vide (que j'ai désigné).

bonjour,

Pouvez vous me dire si ce que je veux faire est réalisable par macro ou s'il s'agit de calcules directement dans les cellules du tableaux excel... parce que je commence à désespérer de trouver une solution !!

Merci d'avance