Supprimer "#VALEUR" ou ajouter une ligne avec des valeurs en bas de page Résolu

[T77XDD]

Bonjour,
je cherche à faire un tableau pour calculer des sommes à rembourser suivant 2 versions:
Dans la 1 je cherche à supprimer les "#VALEUR" j'ai fait plusieurs essais mais je n'arrive que à avoir "#NOM" à sa place.

Dans la version 2 je rajoute une ligne, mais je n'arrive pas à faire en sorte qu'elle se rajoute en dernière ligne en conservant les lignes 93 et suite à leur place, sinon en supprimant la ligne 92, ce que je ne trouve pas très normal comme démarche.
Merci.

 

[vgendron]

Re : Supprimer "#VALEUR" ou ajouter une ligne avec des valeurs en bas de page

Hello

pour ta version 1: tu as une erreur de syntaxe dans ta formule si esterreur

=SI(esterreur;(B18*C18);" ")

soit tu remplaces par
=SI(esterreur(B18*C18);" ";B18*C18)
soit tu utilises la fonction sierreur
=SIERREUR(B18*C18;"")

idem pour ta colonne F en ligne 18 puis tu tires vers le bas
=SIERREUR(D18-(D18*E18%);"")



et pour ta version 2, essaie ce code

Sub InserSup()
'
' InserSup Macro

Dim DerLigne As Integer
    DerLigne = [A93].End(xlUp).Row
    Range("A" & DerLigne & ":F" & DerLigne).Select
    Selection.AutoFill Destination:=Range("A" & DerLigne & ":F" & DerLigne + 1), Type:=xlFillDefault
    Range("A" & DerLigne + 1 & ":B" & DerLigne + 1).Clear
    Range("E" & DerLigne + 1).Clear
End Sub

 

[T77XDD]

Re : Supprimer "#VALEUR" ou ajouter une ligne avec des valeurs en bas de page

Re,
j'avais appliqué la formule "SI(esterreur(B18*C18);" ";B18*C18)" mais sans espace entre les guillemets, du coup ça ne fonctionnait pas.
Merci de la précision.