Macro : Mettre formule si cellule non vide

Yoyo01000

XLDnaute Occasionnel

• 11 Janvier 2019

• #2

bonjour, quantité à multiplier par le PU ?

 

Vote positif 0 Vote négatif

Marjo2

XLDnaute Occasionnel

• 11 Janvier 2019

• #3

Je cherche à avoir le PU donc je divise le total par la quantité

 

Vote positif 0 Vote négatif

Yoyo01000

XLDnaute Occasionnel

• 11 Janvier 2019

• #4

Dans ce cas, il faut une formule dans la colonne E (sans être obligé de passer par VBA) qui divise le total par la quantité rentrés à la main.

Je ne vois pas l'intérêt de la demande de ton premier post !?

 

Vote positif 0 Vote négatif

Marjo2

XLDnaute Occasionnel

• 11 Janvier 2019

• #5

J'ai précisé que je souhaite un code VBA uniquement !
Effectivement il existe une formule excel que je connais très bien, seulement le fichier est destiné à des personnes qui ne connaissent pas excel et donc le gain de temps et d'analyse sera d'appuyer sur un bouton.

Ma demande est pourtant synthétique et clair

 

Vote positif 0 Vote négatif

Yoyo01000

XLDnaute Occasionnel

• 11 Janvier 2019

• #6

Dans ce cas, il existe une fonction "enregistrer une macro" dans l'onglet "développeur" si tu connais la formule à appliquer.

De plus, maintenant, tu cites vouloir un bouton qui exécute la macro, chose qui n'était pas dans ta première demande.

Ce qui est clair pour soi ne l'est pas forcément pour les autres !

Merci de joindre un fichier explicitant ta demande.

 

Vote positif 0 Vote négatif

Marjo2

XLDnaute Occasionnel

• 11 Janvier 2019

• #7

Merci de laisser la place aux internautes qui seront constructifs.
Je connais également la fonction développeur.

La solution est sûrement dans l'idée d'implanter la formule en E2 puis de la recopier jusqu'à la dernière cellule non vide du tableau

 

Vote positif 0 Vote négatif

Marjo2

XLDnaute Occasionnel

• 11 Janvier 2019

• #8

Sub PU()
' PU Macro
Worksheets("STOCK").Select
ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"" "",RC[-1]/RC[-2])"
Range("E3").Select
Worksheets("STOCK").Select
Range([E2], [C65536].End(xlUp).Offset(0, 2)).Select
Selection.FillDown
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

Ca fonctionne, seulement je suis obligé d'appuyer 2 fois sur mon bouton pour que le calcul se fasse

 

Vote positif 0 Vote négatif