Erreur: Dépassement de capacité

Anonyme
2016-05-03T14:43:48+00:00

Bonjour,

Je débute actuellement en VBA Excel et j'ai un problème dans l'exécution de ma macro.

Voici le code:

     Dim eff As Integer

     Dim c As Integer

     Dim j As Long

     Dim ma_var As Integer

        eff = 1

        c = 2

'Je calcule le nombre de lignes non vide de mon fichier Excel, ce qui va me permettre de définir la dernière ligne de mon tableau.    

        Do While Cells(c, 1) <> ""

            eff = eff + 1

            c = c + 1

        Loop

    'Je cherche à caclculer un pourcentage de la ligne 2 à ma ligne eff.

    For j = 2 To eff

    Cells(j, 7) = Cells(j, 6) / Cells(j, 5)

    Next j

Cependant, quand la fin de ma boucle est supérieur à 100, j'ai un message d'erreur: Dépassement de capacité.

J'ai essayé de changer les types de mes varaibles, mais cela ne donne rien.

Je sais que la question a été plusieurs fois posée mais je n'ai pas trouvé de réponse qui puisse être adapté à mon problème.

Merci d'avance pour votre aide.

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires
Réponse acceptée par l’auteur de la question
Anonyme
2016-05-17T08:25:57+00:00

Bonjour Célestine,

Tout ce qu'on a sous le nez et qu'on ne voit pas!

Tant mieux si vous avez votre solution.

Cordialement

Cette réponse a-t-elle été utile ?

0 commentaires
Réponse acceptée par l’auteur de la question
Anonyme
2016-05-12T08:42:06+00:00

Bon Célestine,

Merci de votre fichier; la division par zéro est interdite parce que mathématiquement elle donne un résultat infini...

Ce qui est bizarre, c'est qu'Excel ne vous l'ait pas dit (j'ai fait le test, il s'est arrêté et il m'a dit: #Div/0!)

Donc, évitez toujours un diviseur égal à 0!

Cordialement

Cette réponse a-t-elle été utile ?

0 commentaires

50 réponses supplémentaires

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2016-05-09T09:23:48+00:00

    Bonjour,

    Donne un exemple des valeurs de Cells(j, 6) et Cells(j, 5) qui posent problème.

    Cordialement.

    Daniel

    Bonjour DanielCo,

    Par exemple Cells(j,6) = 4357,42 et Cells(j,5)=4377,69

    Du coup Cells(j,7) = 0,995369704113357.

    Je me demande si mon erreur n'est pas du au stockage d'autant de chiffres dans chaque cellule.

    Si cela est le cas, je ne sais pas comment contourner le problème.

    Auriez vous une solution?

    Cordialement,

    Célestin06

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2016-05-09T09:19:24+00:00

    Bonjour,

    Pas de dépassement sur plus de 100 000 Lignes

    Sub titi()

    Dim j As Long

     For j = 2 To Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

        Cells(j, 7) = Cells(j, 6) / Cells(j, 5)

        Next j

    End Sub

    '--

    'LSteph

    Bonjour LSteph,

    J'ai essayé ton bout de programme mais j'ai toujours mon message d'erreur.

    Du coup je me demande si en faisant une division je stocke trop de chiffres en mémoire et que c'est à ce niveau là qu'il y a un dépassement de capacité.

    Je pens que le problème vient de là.

    Comment peut on stocker un nom avec quatre chiffres après la virgule plutot que la dizaine qu'Excel propose?

    Merci par avance de ta réponse,

    Cordialement,

    Célestin06

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. Anonyme
    2016-05-09T09:11:45+00:00

    Bonjour Jacky.J,

    Mes colonne E et F sont bien renseignés aucune des deux est vide.

    J'ai essayé le bout de code que tu proposes mais j'ai toujours le même message d'erreur.

    Cordialement,

    Célestin06

    Cette réponse a-t-elle été utile ?

    0 commentaires