Enlever un message d'erreur en VBA

Résolu
créole_ovono Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
créole_ovono Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

2 réponses

Réponse 1 / 2
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
Réponse 2 / 2
créole_ovono Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
merci beaucoup!!!!c'est super!!ça fonctionne.
0

Discussions similaires

Comment désactiver le mode sécurisé de la Freebox POP.
Cycy -
bazfile -

18 réponses
Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
SMS message vocal arnaque ?
kikidefer -
brucine -

9 réponses
Retirer le mode sécurisé sur l'écran de la TV connectée Free
beatrice -
baladur13 -

1 réponse