Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro qui ne s'arrête pas....

  • Initiateur de la discussion Initiateur de la discussion mumu
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mumu

XLDnaute Occasionnel
Bonjour,

Encore moi........ J'ai écrit ce bout de macro :

Code:
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value <> "7" Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Activate
End If
Loop

Jusque là tout va bien elle fait ce que je veux. Le problème est que quand elle arrive à la dernière ligne de ma feuille, elle continu à supprimer les lignes comme si la cellule de la ligne suivante qui est vide ne l'était pas. J'ai réussi à stopper la macro en supprimant le contenu de la cellule de la ligne qui est vide.....
J'ai essayé de remplacer <> "" par <> empty sans succès

Est-ce quelqu'un aurait une explication et une éventuelle solution, car du coup ça bloque à cet endroit ?.......

D'avance merci !!

Mumu
 
Re : macro qui ne s'arrête pas....

Bonjour Mumu,

Essayes de remplacer While (tant que ta cellule est vide)
par Until (jusqu'à ce que ta cellule soit vide)

si j'ai bien compris ton problème

Gruick
 
Re : macro qui ne s'arrête pas....

Bonjour

perso je préfère calculer le nombre de ligne est bouclé du style

maligne =range("A65536").end(xlup).row
for x = maligne to 1 step -1
if range("A" & x)<> 7 then rows(x).entirerow.delete
next
 
Re : macro qui ne s'arrête pas....

Salut PascalXLD,

C'est vrai que c'est beaucoup plus simple comme ça !!!!!!
Je me complique parfois un peu trop, j'ai pas les bons réflexes.

Merci pour cette solution !!

@ +

mumu
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
4
Affichages
586
Réponses
2
Affichages
588
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…