Calcul

A

apt

XLDnaute Impliqué

• 8 Octobre 2007

• #16

Re : Calcul

Pour le MFC, je n'ai pas trouver ou formater les nombres.

Dans le code j'ai ajouter cette ligne :

Case 2:
If IsEmpty(Target(1, 2)) Then
Target(1, 2).FormulaR1C1 = "=RC[-2]*RC[-1]"
If Target - Int(Target) = 0 Then Target.NumberFormat = "General"
End If

Mais ca ne marche toujours pas !!!

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 8 Octobre 2007

• #17

Re : Calcul

Re apt

Je ne sais pas si c'est une nouveaute 2007, moi j'ai ça (cf. pièce jointe), sinon par vba pas le temps d'essayer ce soir @+

 

Pièces jointes

• Calcul_apt.jpg.zip

  33.5 KB · Affichages: 34

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 8 Octobre 2007

• #18

Re : Calcul

Je crois que tu t'es trop donné pour m'aider ce soir.

Merci encore.

Je vais voir ce qu'il y'a dans la piece jointe.

@+

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 8 Octobre 2007

• #19

Re : Calcul

Non ce n'est pas le cas pour Excel 2003.

 

Vote positif 0 Vote négatif

É

Épaf

XLDnaute Occasionnel

• 8 Octobre 2007

• #20

Non ! Pas Calcul !

Bien vu, fred, en effet, la formule s'applique sur un prix formaté 0,00 alors que le nombre lui-même n'en possède pas. Par contre je ne vois pas l'intérêt de la chose.
Trois réflexions que tu devrais lire attentivement
A quoi sert la formule ? (C'est une question)
1 - Si tu as le prix total, à calculer la quantité si celle-ci n'a pas été saisie ?
Mais le prix total est par formule le résultat de ta colonne 1 * colonne 2.
Si tu n'as pas la quantité => Pas de prix total. Pas de calcul possible !
2 - A calculer le prix unitaire ? Mais si tu as la quantité, tu n'as pas le prix total puisque c'est une formule qui le donne => Pas de calcul possible !
3 - A calculer le prix total ? La formule de la colonne 3 te le donne... si les deux colonnes précédentes sont remplies. Si l'une d'elle n'est pas remplie, pas de calcul.
C'est ce qu'on appelle tourner en rond ou se mordre la queue?
Tu ne peux tout simplement pas faire ce calcul, même par macro... sauf à saisir le prix total, auquel cas la formule de la colonne 3 disparaît (!)
Révise ce que tu veux obtenir... si c'est possible on te le donnera 😱
A+ et bonne fin de soirée

 

Dernière édition: 8 Octobre 2007

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 8 Octobre 2007

• #21

Re : Calcul

bonjour Épaf

Merci.

Je suis passé d'Excel XP à Excel 2007 et me suis demandé depuis quand cette possibilité de formatage conditionnelle existait. À priori 2007.

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 8 Octobre 2007

• #22

Re : Calcul

Bonjour Epaf, Fred, le forum.

Une petite explication :

- Le total produit est calculée automatiquement si le produit acheté se vend sous forme de pièces (boites, serrures, pince, ...) ; Alors la Qté est connue et la formule utilisée est : C1=A1*B1

- Si le produit acheté se vend sous forme de mesure (Kilo, mètre), alors là on doit utilise le coût paye pour ce produit pour connaître la Qté (Ca devrait être sous la forme de 1,02 kilogramme (k) ; 2,115 mètre (m)...). La formule utilisée est : B1=C1/A1

Me suis-je bien expliqué ?

 

Vote positif 0 Vote négatif

É

Épaf

XLDnaute Occasionnel

• 8 Octobre 2007

• #23

Re : Calcul

Ok, c'est ce que je pensais, "Si le produit acheté se vend sous forme de mesure..." tu n'as donc plus la formule dans C mais le montant total.
Quel pb te reste-t-il ?
Si c'est pour le format conditionnel sur 2007, j'ai pas mais fred a l'air de connaître 🙂
Bonne chance
@+

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 8 Octobre 2007

• #24

Re : Calcul

Le seul problème à l'instant c'est le format numérique de Qté.

Si la quantité se constitue de pièces on devrais avoir un nombre entier.

Sinon un nombre décimale avec 2 chiffres après la virgule.

Je travaille sous Excel 2003.

 

Pièces jointes

• Calcul_apt.xls

  32 KB · Affichages: 70

Dernière édition: 8 Octobre 2007

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 8 Octobre 2007

• #25

Re : Calcul

Encore une chose.

J'aimerais bien remplacer les formes [RC] par du code purement VBA.

Merci

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 9 Octobre 2007

• #26

Re : Calcul

Salut à tous et aux autres,

Quel intérêt à totaliser les quantités quand tu as 3 œufs et 1,500 kg de farine ?
Dans le fichier joint, il est prévu la saisie de 2 données, la troisième se trouve alors automatiquement. Autre chose, les totaux ne se calculent que si la ligne est complète.
Dans le cas de la saisie d'une seule donnée, la police change de couleur pour prévenir.

edit : Je n'ai pas géré les saisies fantaisistes (non numériques).

 

Pièces jointes

• Calculs1.zip

  7.9 KB · Affichages: 30

Dernière édition: 9 Octobre 2007

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 9 Octobre 2007

• #27

Re : Calcul

Bonsoir,

Merci Excel_Lent.

A premiere vu on peut toujours voir des Qté telle que : 1,18181818181818 au lieu de 1.18

Excel_lent à dit:

Quel intérêt à totaliser les quantités quand tu as 3 œufs et 1,500 kg de farine ?

Cliquez pour agrandir...

En fait je totalise les Qté et les PrixT du même produit 😉

Je vais tester l'exemple et l'adapter aprés (parce que ma Feuil1 a plusieurs lignes de code, ce qui ralentirais l'exécution ..)

Pour plus de questions, je reviendrais.

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 10 Octobre 2007

• #28

Re : Calcul

J'ai ajouté les condiftions de formatage de la colonne B.

Mais le calcul reste encore à paufiner.

Par exempe, si je veux corriger une erreur et revenir sur une fausse sasie, ca se fige, et il ne fait rien.

Le fichier joint montre cette état :

 

Pièces jointes

• Calculs1.xls

  30.5 KB · Affichages: 64

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 10 Octobre 2007

• #29

Re : Calcul

bonsoir apt, le fil

Si tu ajoute un énènement clic droit pour corriger est ce que ça te va?

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Target.ClearContents: Cancel = True
End Sub

fred65200

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 10 Octobre 2007

• #30

Re : Calcul

mais pourquoi l'evenement Worksheet_Change ne reste-t-il pas actif ?

il m'aura faciliter la tache ...

 

Vote positif 0 Vote négatif