Message d'erreur dans 3 cellules

Bonsoir a tous, forum bonsoir,

J'ai un petit soucis lorsque je clic sur un bouton pour effacer quelques cellules.

Les cellules s'efface bien MAIS cette erreur (#DIV/0!) s'affiche dans les cellules.

C'est un peu embêtant, car je ne peux plus effectuer d'autres calculs en plus ca fait moche a l'écran

Voir svp le petit fichier ci-joint, j'y explique le soucis.

Merci beaucoup pour votre aide

Cordialement Ray

Bonjour

Ton énoncé

Le problème survient lorsque je clic sur le bouton (EFFACE LES DONNEES) pour infos ce sont les cellules B3-B4-B5-B6-B12-B13

et ton code

Range("D3:D6").ClearContents

Erreur de code ou d'énoncé?

Cordialement

Bonsoir Amadeus,

Merci pour ta réponse, bon ca commence mal, effectivement un oubli de correction.

Je dois effacer B3:B6 seulement.

J'ai modifier mais je ne peux toujours pas faire un autre calcul.

Merci a toi bonne soirée

Cdlt Ray

Re Amadeus,

Bon ca refonctionne, mais quand j'efface les 4 cellules j'ai toujours le message d'erreur qui s'affiche.

je mets la version qui fonctionne, l'autre est plantée.

Merci bonne soirée.

Cdlt Ray

Bonjour toutes et tous

Coucou Amadeus

et avec si erreur en cellule D11

= SIERREUR(SOMME(D9/D6);"")

et avec si erreur en cellule D13

=SIERREUR(SOMME(D11/60);"")

et avec si erreur en cellule B13

=SIERREUR(D11/(24*3600);"")

Note : j'ai placé l'effacement après Then du message box

ci-joint, à tester

EDIT : tester ne s'efface pas correctement

EDIT : voir test002 ?

crdlt,

André

Bonjour a tous, salut forum,

Bonjour André,

Merci pour tes réponses

J'ai adapter et corrigé mon programme, maintenant je n'ai plus l'erreur qui s'affiche

cela me convient bien et je peux utliser mon programme comme bon me semble.

Je clos le sujet mais avant grand merci a toi et Amadeus.

Bon dimanche a tous et encore merci pour votre aide et votre savoir partagé.

Cordialement Ray