Boucle dans macro

Fermé

MARIEG58 - 4 août 2018 à 16:22
MARIEG58 - 6 août 2018 à 06:55

Bonjour,
J'ai une macro qui fonctionnait et cette fois ci j'ai un problème à ce niveau

'Dim i As Integer
With ThisWorkbook.Sheets("DonneesFrs")
For i = .Range("e" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("a" & i).Value <> "" Then
.Rows(i).Delete
End If
Next i

Pouvez vous me dire quel est mon problème.
J'ai l'impression que j'ai trop de lignes dans mon fichier (plus de 20000). Car si je réduis le nombre de ligne, je n'ai plus le message. Toutefois, je voudrais pouvoir traiter toutes les lignes.
Avez vous une astuce ?

Merci d'avance

Je travaille sur Excel 2010

Merci

A voir également:

Boucle dans macro
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Jitbit macro recorder - Télécharger - Confidentialité
Macro logiciel - Télécharger - Organisation
Boucle cmd - Forum Programmation

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
Modifié le 4 août 2018 à 18:16

Bonjour

Quel est le message d'erreur et sur quelle ligne se produit elle ?

Perso j'écrirai plutôt

Dim i As Long, lifin As Long
With ThisWorkbook.Sheets("DonneesFrs")
  lifin = .Range("e" & .Rows.Count).End(xlUp).Row
  For i = lifin To 2 Step -1
    If .Range("a" & i).Value <> "" Then
      .Rows(i).Delete
    End If
  Next i
End With

Cdlmnt

MARIEG58
4 août 2018 à 21:52

Bonsoir,
L'erreur est sur cette ligne :

For i = .Range("e" & .Rows.Count).End(xlUp).Row To 2 Step -1
Le message d'erreur est : Erreur d'exécution 6. Dépassement de capacité

Merci

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
5 août 2018 à 20:45

as tu essayé le code que je t'ai proposé ?
1. j'ai vu que tu avais inhibé la ligne de déclaration de la variable i (un integer va jusqu'à 32767, un entier long jusqu'à 2147483647)
2. For i = .Range("e" & .Rows.Count).End(xlUp).Row To 2 Step -1
A chaque tour de boucle .Range("e" & .Rows.Count).End(xlUp).Row est réévalué ...

Cdlmnt

MARIEG58
6 août 2018 à 06:40

Bonjour,
Oui j'ai essayé avec ton code mais j'ai un message d'erreur Erreur de compilation : Déclaration existante dans la portée en cours.
Je pense que c'est pour cela que j'avais inhibé la déclaration de variable
Je ne sais pas quoi faire :-(
Merci

MARIEG58
6 août 2018 à 06:55

Re bonjour,
J'ai changer le nom de la variable et ton code fonctionne
Merci !

Réponse 2 / 2

danielc0 Messages postés 1341 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 18 décembre 2024 155
4 août 2018 à 18:17

Bonjour,

Quel est le numéro et le libellé de l'erreur ?

Cordialement.

Daniel

MARIEG58
4 août 2018 à 21:50

Bonsoir,

Voici le message Erreur d'exécution 6. Dépassement de capacité

Merci

Discussions similaires

faire une boucle sans VBA

Mon pc s'allume et s'éteint en boucle

tele s'eteind et s'allume en boucle

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro