Erreur d'exécution 6 Dépassement de capacité

Résolu

MMAGNIN Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Maurice - 7 déc. 2014 à 13:09

Bonsoir à tous,

Après avoir tapé la macro suivante :

Sub test()
Dim i As Integer
i = 1
Dim a As Integer
a = 1
Dim b As Integer
b = 1
While i <= 40
If Sheets("Feuil1").Range("E" & a).Value <> "" Then
Sheets("Feuil2").Range("A" & b).Value = Sheets("Feuil1").Range("A" & a).Value
Sheets("Feuil2").Range("B" & b).Value = Sheets("Feuil1").Range("B" & a).Value
Sheets("Feuil2").Range("C" & b).Value = Sheets("Feuil1").Range("C" & a).Value
Sheets("Feuil2").Range("D" & b).Value = Sheets("Feuil1").Range("D" & a).Value
i = i + 1
b = b + 1
End If
a = a + 1
Wend
End Sub

J'ai une erreur d'exécution 6 '' Dépassement de capacité " qui s'affiche lors de lancement de la macro, après le débogage l'erreur se trouve dans la ligne a = a +1

Pour information j'ai essayé la fonction Dim As Long pour toutes les variables et ça ne marche pas non plus.

Donc pour l'instant je suis bloqué.

Merci de votre aide.

Cordialement,

Afficher la suite

A voir également:

Erreur d'execution 6 dépassement de capacité
Nero 6 - Télécharger - Gravure
Paris multiple 2/6 explication ✓ - Forum Loisirs / Divertissements
Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
Le logiciel amd a détecté un dépassement de délai du pilote - Forum Carte graphique
Belote a 6 - Forum Graphisme

9 réponses

Réponse 1 / 9

Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention 953

Salut le Forum

Un test sur le nombre max de lignes (Pour a et b)

If a > 1048576 Then Exit Sub

Mytå

Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »

Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention 953

Re le Forum

Et tu veux faire quoi avec ton code . . .

Mytå

Réponse 2 / 9

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

Bonjour à tous,

Dim a As Integer

Tu es limité à 256, met As Long.

eric

MMAGNIN Messages postés 7 Date d'inscription Statut Membre Dernière intervention

Bonsoir Eric,

Après remplacement de As Integer par As Long

La macro m'affiche ''erreur d'exécution 1004''

Erreur définie par l'application ou par l'objet

L'erreur est dans la ligne suivante :

If Sheets("Feuil1").Range("E" & a).Value <> "" Then

Pour info je suis un débutant

Merci d'avance de votre retour,

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

Et bien quelqu'un pourra regarder quand tu auras répondu à myta (au-dessus).

Quand tu colles un code indente-le et met-le en forme avec l'icone <>
Et un fichier de travail générera plus de réponses : cjoint.com et coller ici le lien fourni.

eric

MMAGNIN Messages postés 7 Date d'inscription Statut Membre Dernière intervention > eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention

Merci pour ta réponse Eric,

Voici le lien de mon fichier :

http://www.cjoint.com/data3/3LhawrgLkhK.htm

Réponse 3 / 9

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour à tous

tu implémente "i" que lorsqu'il y a qqchose dans la colonne E
donc quand tu dépasses la dernière ligne de E ta boucle tourne sur elle m^me ("i" ne s'implémente plus puisqu'inséré dans le "if")jusqu'à ce que "a" dépasse la capacité d'un type "long"

Réponse 4 / 9

MMAGNIN Messages postés 7 Date d'inscription Statut Membre Dernière intervention

Salut michel,

Pour corriger le code je dois faire comment SVP ?

Je suis un novice

Merci d'avance de ta réponse.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

Maurice

Bonjour

Je pense a un truc comme ca

Sub Test()
Dim L As Long
Dim B As Long
B = 1
Application.ScreenUpdating = False
DernLigne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
   For L = 1 To DernLigne
      If Range("E" & L).Value > 0 Then
         Range("A" & L & ":D" & L).Copy
         Sheets("Feuil2").Range("A" & B).PasteSpecial xlPasteValues
         B = B + 1
      End If
   Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

A+
Maurice

MMAGNIN Messages postés 7 Date d'inscription Statut Membre Dernière intervention

Salut Maurice,

Tout d'abord merci pour ta réponse

J'ai essayé ton code, il marche sans problème

mais le souci c'est que il prend toutes les lignes de la feuille1 et il les colle dans la feuille2. Or moi je voulais qu'il copie juste 40 lignes de la feuille1, parce que dans la feuille2 je suis limité à 40 lignes.

Peux-tu m'apporter cette modification STP, j'en serai vraiment reconnaissant

D'avance merci,

Réponse 6 / 9

Maurice

Re
il sufit de mettre 40 sur le For

For L = 1 To 40

a toi de voir

A+

Maurice

Réponse 7 / 9

MMAGNIN Messages postés 7 Date d'inscription Statut Membre Dernière intervention

quant je mets :

DernLigne = 40
For L = 1 To 40

Il me prends 40 lignes de la feuille1 et il les copie dans la feuille2, mais pas que les lignes avec la cellule E pleine, il prends les deux cas (cellule E pleine et cellule E vide). moi je veux qu'il me prenne que les lignes là où la cellule E est pleine (une valeur).

je m'excuse pour le dérangement.

Réponse 8 / 9

Maurice

re

je pense que tu maitise pas du tout les macro

regarde bien

Sub Test()
Dim DernLigne As Long
Dim L As Long
Dim B As Long
B = 1
Application.ScreenUpdating = False
Feuil2.Cells.ClearContents
'DernLigne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
DernLigne = 40
   For L = 1 To DernLigne
      If Range("E" & L).Value > 0 Then
         Range("A" & L & ":E" & L).Copy
            Feuil2.Range("A" & B).PasteSpecial xlPasteValues
         B = B + 1
'         If B > 40 Then Exit For
      End If
   Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

A+
Maurice

MMAGNIN Messages postés 7 Date d'inscription Statut Membre Dernière intervention

Merci Maurice pour le temps consacré

Oui, j'avoue que je ne maîtrise pas du tout les macros, j'ai jamais fait c'est ma première fois

Merci encore

A+

Réponse 9 / 9

Maurice

re
et pour copier 40 Ligne sur la feuille2

Sub Test()
Dim DernLigne As Long
Dim L As Long
Dim B As Long
B = 1
Application.ScreenUpdating = False
Feuil2.Cells.ClearContents
DernLigne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
   For L = 1 To DernLigne
      If Range("E" & L).Value > 0 Then
         Range("A" & L & ":E" & L).Copy
            Feuil2.Range("A" & B).PasteSpecial xlPasteValues
         B = B + 1
         If B > 40 Then Exit For
      End If
   Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

A+
Bon je vais manger

Maurice

Discussions similaires

Voxbone ? qui est-ce ?

Belote à 6 joueurs

"AMD a détecté un dépassement de délai du pilote"

Règle du jeu

Erreur 3005 sur France TV

Votre réponse

Discussions similaires