Enlever un message d'erreur en VBA

Résolu
créole_ovono Messages postés 17 Statut Membre -  
créole_ovono Messages postés 17 Statut Membre -
Bonjour,

j'ai un fichier de 3 colonnes.dans la colonne A j'ai des valeurs non nulles et des valeurs nulles. c'est idem pour la colonne B. les données de la colonne sont de la forme A2/B2 , A3/B3 etc... jusqu'à A14/B14 qui représente la colonne C14, A3/B3 c'est la colonne C3 etc...

Range("C3").Select
ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-1]"
Range("C3").Select
Selection.AutoFill Destination:=Range("C3:C14"), Type:=xlFillDefault
Range("C3:C14").Select

c'est le code que j'ai en VBA. le problème qui se pose c'est si une valeur est nulle dans la colonne B le fichier sort ceci dans la colonne C:#DIV/0!.

j'aimerai donc écrire un programme disant qu'au moment de la division si la valeur en B2 par exemple est nulle au lieu d'écrire #DIV/0! on écrire autre chose.

si vous pouvez m'aider.

merci beaucoup.

2 réponses

  1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Bonsoir,

    Il suffit de remplacer les 5 lignes :
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-1]"
    Range("C3").Select
    Selection.AutoFill Destination:=Range("C3:C14"), Type:=xlFillDefault
    Range("C3:C14").Select 
    
    par celle-ci :
    Range("C3:C14").FormulaR1C1 = "=IF(RC[-1]<>0,RC[-2]/RC[-1],"""")"


    0
  2. créole_ovono Messages postés 17 Statut Membre
     
    merci beaucoup!!!!c'est super!!ça fonctionne.
    0