XL 2013 PAS DE NEXT SANS FOR

[MrAntonin]

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]

Bonjour Antonin.

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

 

[MrAntonin]

Bonjour Antonin.

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

J'ai supprimer rien ne change

 

[Si...]

Bon_jour

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

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

 

[eriiic]

Bonjour,

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

 

[Papou-net]

Bonjour MrAntonin, thebenoit59,

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

Cordialement.

 

[Papou-net]

RE

J'en ai relevé un autre manquant.

Cordialement.

 

[gosselien]

Bonjour à tous,

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

P.

 

[MrAntonin]

Merci tous le monde pour vos retours

Bonjour à tous,

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

P.

Merci ça va me servir !!!

 

[herve62]

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]

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