XL 2013 PAS DE NEXT SANS FOR

MrAntonin · 24 Octobre 2017

Rebonjour,

J'ai de nouveau un problème, impossible d'exécuté la macro car elle me retourne l'erreur "Pas de Next sans For" j'ai alors vérifié toute les boucles pour être sûre de toutes les avoir fermées, j'ai même utilisée un plugin sous notepadd ++ mais aucune erreur. Je ne vois pas d'où vient le problème, pouvez-vous m'éclairer ?

Cordialement,
MrAntonin

thebenoit59 · 24 Octobre 2017

Bonjour Antonin.

Je pense que tu as un End If de trop juste avant ton Next.

MrAntonin · 24 Octobre 2017

thebenoit59 à dit:
Bonjour Antonin.

Je pense que tu as un End If de trop juste avant ton Next.

J'ai supprimer rien ne change

Si... · 24 Octobre 2017

Bon_jour

Tu aurais dû le voir avec l'indentation (intérêt principal de cela)

Code:

   If Sheets(1).Range("L" & i).Value <> 0 Then
       ...
   End If
   End If

eriiic · 24 Octobre 2017

Bonjour,

c'est le contraire, il t'en manque un à la fin.
eric

Papou-net · 24 Octobre 2017

Bonjour MrAntonin, thebenoit59,

Je relève un End If manquant sous la ligne surlignée en jaune dans la PJ.

Cordialement.

Papou-net · 24 Octobre 2017

RE

J'en ai relevé un autre manquant.

Cordialement.

gosselien · 24 Octobre 2017

Bonjour à tous,

indentation facile avec ceci:
http://www.oaltd.co.uk/Indenter/Default.htm

P.

MrAntonin · 9 Novembre 2017

Merci tous le monde pour vos retours

gosselien à dit:
Bonjour à tous,

indentation facile avec ceci:
http://www.oaltd.co.uk/Indenter/Default.htm

P.

Merci ça va me servir !!!

herve62 · 9 Novembre 2017

Ce module fonctionne t-il sous 2010 ?
Je viens de l'essayer , à moins de mauvaise utilisation .... cela ne fait rien
Dans le code > clic droit 'Smart ident ' j'ai essayé les options et choix et supprimé volontairement un End if
il ne voit rien ?
Comment l'utiliser ?

MrAntonin · 9 Novembre 2017

herve62 à dit:
Ce module fonctionne t-il sous 2010 ?
Je viens de l'essayer , à moins de mauvaise utilisation .... cela ne fait rien
Dans le code > clic droit 'Smart ident ' j'ai essayé les options et choix et supprimé volontairement un End if
il ne voit rien ?
Comment l'utiliser ?

Je te pose le module avec tous les corrections et fonctionnel

XL 2013 PAS DE NEXT SANS FOR

MrAntonin

XLDnaute Nouveau

Pièces jointes

thebenoit59

XLDnaute Accro

MrAntonin

XLDnaute Nouveau

Si...

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pièces jointes

gosselien

XLDnaute Barbatruc

MrAntonin

XLDnaute Nouveau

herve62

XLDnaute Barbatruc

MrAntonin

XLDnaute Nouveau

Pièces jointes

Discussions similaires