Remise à zéro: Dépassement de Capacité

[adelaidetermote]

Bonjour tous le monde,

Alors je me trouve confronter a un petit soucis, j'aimerais à l' aide d' un bouton et d' un code VBA qui lui serait affecter remettre à zéro un tableau. Le problème c'est que ma 1ere colonne je la remet a zéro la deuxième colonne également et la troisième est une opération sur les deux, une division plus précisement, j' ai rentré ce code VBA

For x = 0 To 11
Cells(48 + x, 10) = (Cells(48 + x, 8) / Cells(48 + x, 9)) * 10 ^ -2
Next x

Le problème c'est qu'il me met un message d' erreur Dépassement de capacité, je pense que c'est du au fait que l'opération divise par 0.

Alors ma question est comment faire pour reinserer la formule, même si les deux colonnes prises en compte sont a zéro

Voili voilou, j' espère que je me suis fait comprendre

Merci d' avance

Adé

 

[Etienne2323]

Re : Remise à zéro: Dépassement de Capacité

Salut Ade,
sans les données, difficile de faire une vérification. Donc, si je me fis à votre jugement et que le problème provient bien de la division par zéro, alors il suffirait de tester la présence d'un 0. Voici une manière de procédér

For x = 0 To 11
    'Faire un test pour qu'il n'y ait pas de division par 0
    If Cells(48 + x, 9).Value = 0 Then
        Cells(48 + x, 10) = 0 'Si c'est le cas, alors inscrit 0
    Else 'Sinon, fait le calcul
        Cells(48 + x, 10) = (Cells(48 + x, 8) / Cells(48 + x, 9)) * 10 ^ -2
    End If
Next x

Cordialement,

Étienne

 

[Efgé]

Re : Remise à zéro: Dépassement de Capacité

Bonjour adelaidetermote, Etienne2323,
On peux aussi essayer ceci :

[COLOR=BLUE]Sub[/COLOR] adelaidetermote()
Range("J48:J59").Formula = "=(H48/I48)*10^-2"
[COLOR=BLUE]End Sub[/COLOR]

Cordialement

 

[adelaidetermote]

Re : Remise à zéro: Dépassement de Capacité

Re,

En effet Efgé c t bien ça qu'il me fallait comme formule, ça fonctionne correctement quand je remet tout à zéro. Merci Etienne pour ta réponse tout de même, le problème je pense venait bien du fait que je diviz par Zéro lors du clik sur le bouton correspondant à la macro

Merci à vous

Adé