Enlever un message d'erreur en VBA

Résolu/Fermé
créole_ovono Messages postés 15 Date d'inscription mardi 18 septembre 2012 Statut Membre Dernière intervention 20 mai 2013 - 3 oct. 2012 à 15:11
créole_ovono Messages postés 15 Date d'inscription mardi 18 septembre 2012 Statut Membre Dernière intervention 20 mai 2013 - 4 oct. 2012 à 11:36
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

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
3 oct. 2012 à 22:28
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
créole_ovono Messages postés 15 Date d'inscription mardi 18 septembre 2012 Statut Membre Dernière intervention 20 mai 2013
4 oct. 2012 à 11:36
merci beaucoup!!!!c'est super!!ça fonctionne.
0