Modification code incrémentation

[an@s]

Bonjour à tous,
dans l'exemple ci-joint j'ai une macro (NoteDeFrais) qui permet d'incrémenter les feuilles NDF & SJ d'une manière croissante,

• je chercher à rectifier le code pour qu'il ne supprime pas le logo et le bouton présents dans la feuille NDF après la duplication.
• je cherche à modifier la formule qui se trouve entre E12 & E21 parce qu'elle donne des résultats faux dans E20 & E21. c'est à dire E20=C20*D20 doit être égale 5 x 0,5 donc 2,5 et E21=C21*D21 doit être égale 6 x 0,5 donc 1,2 chose qu'on trouve pas donc E20 qui égale 250 et E21 qui égale 120

Merci d'avance pour votre aide

 

[job75]

Bonjour an@s,

Si ce n'est pas vous qui avez pondu ce code (mal fichu) demandez à son auteur de le corriger.

je chercher à rectifier le code pour qu'il ne supprime pas le logo et le bouton présents dans la feuille NDF après la duplication.

C'est évident, supprimez le code :

.DrawingObjects.Delete

A+

 

[an@s]

Bonjour Job,
non, je ne pourrai pas faire le code...c'était l'aide de quelqu'un sur un autre forum il y a longtemps, c'est juste aujourd'hui que j'ai découvert ces deux petits soucis.

pour le premier souci c'est résolu
pour le deuxième je ne saurai pas modifier la formule

Merci Job

 

[job75]

Pour la formule en E12 de la feuille "PV CAISSE" inutile de compliquer les choses :

=STXT(C12;CHERCHE("de";C12)+3;9)*D12

 

[an@s]

merci beaucoup Job cela fonctionne très bien