Discussion :

[Cammm]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pasterlouis]

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?

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

[Cammm]

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é).

[Cammm]

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