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-04T10:12:06+00:00

    Bonjour Célestin,

    Il est probable que c'est votre déclaration de types de variables qui vous met dedans:

    Cordialement

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

    0 commentaires
  2. DanielCo 107.7K Points de réputation
    2016-05-04T10:10:53+00:00

    Bonjour,

    Si tu cliques sur "débogage", quelle est la ligne en erreur ? Quelles sont alors les valeurs des variables et leur type ?

    Daniel

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

    0 commentaires
  3. Anonyme
    2016-05-04T09:26:35+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

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

    0 commentaires