Macro : Mettre formule si cellule non vide

[Marjo2]

Bonjour,

Colonne C : Quantité
Colonne D : Total
Colonne E : PU

Je souhaite faire Colonne D/Colonne C mais uniquement si il y a des chiffres dans la colonne C.
Uniquement en VBA svp

 

[Yoyo01000]

bonjour, quantité à multiplier par le PU ?

 

[Marjo2]

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

 

[Yoyo01000]

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 !?

 

[Marjo2]

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

 

[Yoyo01000]

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.

 

[Marjo2]

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

 

[Marjo2]

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