XL 2019 Macro pour copier formule simple dans l'ensemble d'une colonne

Loops74

XLDnaute Nouveau
Bonjour,

J'ai un tableau excel composé de 5 colonnes (A-E).
Je précise que ce dernier, volontairement pour les besoins du fichier, n'est pas mis sous forme de tableau.

Le but est de calculer "amount" en faisant qty*unit price.
Mon fichier est verrouillé, mais je laisse la possibilité d'ajouter des lignes. Quand j'ajoute les lignes, la formule de calcul de "amount" ne se duplique pas (partie en jaune).

1624507716936.png


Au départ, je cherchais une macro pour dupliquer des lignes vierges incluant la formule.
Finalement, je préfère opter pour une macro qui dupliquerait automatiquement sans déclencheur la formule qty*unit price sur l'ensemble de la colonne E (E=B*D).

J'espère que vous pourrez m'aider.
ça ne m'a pas l'air compliquer mais même en cherchant sur les forums, je patine...

Merci beaucoup!
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Loops, Rouge,
En PJ un essai avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B:D")) Is Nothing Then
         Dim L%: L = Target.Row
         If Range("B" & L) <> "" And Range("D" & L) <> "" Then
            Range("E" & L) = Range("B" & L) * Range("D" & L)
         End If
    End If
Fin:
End Sub
Quand une cellule de col B ou col D est modifiée, alors la cellule en E est calculée.
La macro est automatique car événementielle, elle est située en feuil1 de la PJ.
 

Pièces jointes

  • Essai.xlsm
    14.1 KB · Affichages: 10

Loops74

XLDnaute Nouveau
Merci Rouge pour votre réponse, mais je ne veux volontairement pas convertir mes colonnes au format tableau.

Merci Sylvanu pour la macro & le fichier. Je vais la tester.
En revanche, j'ai maintenant une contrainte complémentaire.
Certaines lignes de mon tableau vont être colorées et avoir des calculs spécifiques.
Est-il possible d'inclure à la macro une exception sur les cellules de couleurs de la colonne E?
Mille mercis d'avance pour votre aide.
 

Discussions similaires

Réponses
5
Affichages
585

Statistiques des forums

Discussions
315 144
Messages
2 116 724
Membres
112 847
dernier inscrit
kevin1023