Division par zéro

[jeanphi]

Bonjour


J'tulise une macro me permettant de faire faire des calculs de pourcentage à partir d'un TCD (voir ci dessous)
Le pb est que parfois les données de mon TCD implique de diviser 0 par 0....
Du coup je me prends un #DIV/0! en résultat!!
Comment puis je coder dans ma macro que si le dioviseur est 0 alors ma cellule reste vide???
Merci 🙂

Range("H11").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Somme de Réalisé"",'TCD par PE et Projet'!R3C1,""Plan Equipement"",""PE DISQUE IC"")/GETPIVOTDATA(""Somme de Engagé"",'TCD par PE et Projet'!R3C1,""Plan Equipement"",""PE DISQUE IC"")"

 

[pierrejean]

Re : Division par zéro

bonjour jeanphi

A tester:

If Not IsError(Application.Evaluate("=GETPIVOTDATA(""Somme de Réalisé"",'TCD par PE et Projet'!R3C1,""Plan Equipement"",""PE DISQUE IC"")/GETPIVOTDATA(""Somme de Engagé"",'TCD par PE et Projet'!R3C1,""Plan Equipement"",""PE DISQUE IC"")")) Then
ActiveCell.FormulaR1C1 = "=GETPIVOTDATA(""Somme de Réalisé"",'TCD par PE et Projet'!R3C1,""Plan Equipement"",""PE DISQUE IC"")/GETPIVOTDATA(""Somme de Engagé"",'TCD par PE et Projet'!R3C1,""Plan Equipement"",""PE DISQUE IC"")"
End If

 

[jeanphi]

Re : Division par zéro

bonjour pierrot!


super, merci ça marche 🙂
bonne journée!

 

[jeanphi]

Re : Division par zéro

pierrot


en fait il y a un pb complémentaire pierrot...
si je lance la macro ca supprime le #DIV/0! mais ca supprime aussi les liens avec le TCD!

 

[jeanphi]

Re : Division par zéro

Pour être clair, la solution apportée par Pierrot marche très bien
Le problème c'est que si l'erreur #DIV/0! survient, le code de Pierrot enlève la formule de la cellule (données issues d'un TCD) et du coup si je relance la macro en ayant au préalable modifier les données afin d'éviter qu'un "cas 0 / 0" se produise, la valeur de la cellule reste malgré tout vide puisque la formule a disparu
Quelqu'un peut t'il m'aider??? 🙁
Merci

 

[pierrejean]

Re : Division par zéro

Re

Bien difficile a traiter 'le nez en l'air' ton problème !!!

Peux-tu creer un petit fichier exemple sans données confidentielles ?

 

[jeanphi]

Re : Division par zéro

Bonjour PJ


Ci joint mon fichier http://cjoint.com/?gkinpjis6b
Encore merci pour ton aide!!
Bonne journée

 

[jeanphi]

Re : Division par zéro

J'ai oublié de préciser que la feuille concernée est la feuille "Récap" 😉

 

[pierrejean]

Re : Division par zéro

Re

bonjour jeanphi

Je peux tout au plus t'indiquer une piste a savoir

remplacer tes formules par quelque chose du genre (version Vba)

IF(ISERROR(formule),"""",formule)

Mais je t'avoue que je n'y suis pas arrivé

 

[suistrop]

Re : Division par zéro

j avoue ne pas avoir tout compris la macro que tu as donnée est tres longue mais bon je vais quand meme donnée une réponse avec ce que j ai "cru" comprendre.

Tu veux garder une formule dans la cellule sans que ca marque diviser par 0 car quand ca marque cela ca enleve ta formule .... ca c est ce que j ai compris !
je te propose donc une solution trés moche 🙂

tu regarde si ton diviseur est nul si oui tu crée une variable qui le remplace par 10^20. comme ca apres dans ton tableau si tu affiche juste 1 ou 2 chiffre apres la virgule le résultat de 1/10^20 va etre zéro.

bon ok je sors 🙂