Modification code incrémentation

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 de la feuille PV Caisse 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

Bonjour

Pour la première partie, essaie en supprimant l'instruction écrite en vert :

With Sheets((Sheets.Count - 1))
    .Name = f1
    ok = True
    .Range("N16") = Format(num + 1, "00")
    .Range("D40") = "DEPENSES SANS JUSTIFS"
    .Range("H40") = 0
    If .Range("N16") < 10 Then .Range("N16") = "'0" & CStr(.Range("N16"))
        With Sheets("PV CAISSE")
                lig = .Range("C36").End(xlUp).Row + 1
                .Range("C" & lig) = f1
        End With
   '.DrawingObjects.Delete
End With

Pour le reste, désolé mais ce n'est pas de ma compétence..

Bye !

Salut an@s,

Salut gmb,

cette formule ne sert manifestement qu'à détecter la valeur du billet ou de la pièce décrite en colonne [C] !

Alors, je veux bien que, pour beaucoup, le must d'Excel est d'utiliser des formules mais, là, c'est franchement con !

Bon Dieu, c'est un simple relevé de caisse! Tape directement...

= D20 * 0,50

...pareil dans les autres cellules, en adaptant évidemment,et qu'on n'en parle plus !

A+

Ou ainsi, tiens...

Bonjour,

...6 x 0,5 donc 1,2...

Heu, tu es sûr ?