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

Loops74 · 24 Juin 2021

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

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!

Rouge · 24 Juin 2021

Bonjour,

Convertissez votre tableau en tableau structuré, écrivez la formule en E2 et elle se dupliquera automatiquement sur le reste de la feuille.
Cdlt

sylvanu · 24 Juin 2021

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.

Loops74 · 24 Juin 2021

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.

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

Loops74

XLDnaute Nouveau

Rouge

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

Loops74

XLDnaute Nouveau

Discussions similaires