Si erreur sous VBA
b
Bonjour,
J'ai un tableau qui fait des calculs par rapport à une profondeur donnée.
J'ai fait une MACRO qui extrait les valeurs du tableau pour une plage de profondeur, définie par un intervalle, comme une intégration.
Dans le premier tableau, il peut y avoir des calculs divisés par "0", qui affiche donc "#VALEUR!. Ma MACRO copie donc la cellule dans mon nouveau tableau :
If Range("C1").Value = f.Range("D25").Value Then
J'aimerais éviter les #VALEUR! dans mon nouveau tableau mais je n'arrive pas à adapter un SI ERREUR dans ma MACRO.
Je souhaiterais donc remplacer les #VALEUR! par la valeur "0" dans mon 2ème tableau.
Avez-vous une idée ?
Merci.
Bonsoir Bratak,
Voici un exemple, à adapter selon cellules du tableau à reporter.
Sub Essai()
'A1 vaut 10, B1 vaut 0, en C1 la division de A1 par B1 donne une erreur
If [A1] = 10 Then [F1] = IIf(IsError([C1]) = False, [C1], 0)
'La cellule F1 aura 0 si erreur sinon aura la division de A1 par B1
End Sub