ligne de code trop longue pour la fenêtre VBA

  • Initiateur de la discussion Initiateur de la discussion papapaul
  • 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 !

papapaul

XLDnaute Impliqué
🙂 Bonjour à tous,
Quand j'ai une ligne de code à rallonge du genre

If ws.Name <> "Feuil1" And ws.Name <> "Feuil2" And ws.Name <> "Feuil3" And ws.Name <> "Feuil4" Then etc....etc....
Tout se met sur la même ligne et ça déborde de la fenêtre VBA.
Ca m'oblige ensuite si je veux revoir ou modifier le code à jouer
avec les flèches directionnelles. Comment mettre un saut de ligne ?
Histoire de paramétrage ???

Il me semble avoir déjà vu ce genre de code ou en mettant
un _ comme coupure, ça fait une sorte de saut de ligne qui
n'empêche pas la poursuite de la procédure.

C'est surement pas sorcier mais je trouve pas l'astuce 😕

Pas bien grave mais agaçant😡

Merci d'avance et bon soleil😎
 
Re : ligne de code trop longue pour la fenêtre VBA

Bonjour,

Pour passer à la ligne, il faut insérer un " _" (tiret du 8 sans les guillemets) dans ta ligne de code.

Cordialement

Edit : Encore 2 messages pour un...😕 J'efface le précédent
 
Dernière édition:
Re : ligne de code trop longue pour la fenêtre VBA

@ Spit : on comprend comment tu es arrivé Barbatruc....😀😀😀
Félicitations
j'ai essayé de t'envoyer un MP, mais la machine me dit que ta boîte aux lettres est pleine, et que tu ne peux plus en recevoir tant que tu n'auras pas fait le ménage....😱

@papapaul, comme te l'a dit Spit, un _ mais précédé d'un espace....

Bon We
 
Re : ligne de code trop longue pour la fenêtre VBA

Bonjour à tous,
Salut papapaul
Salut Spit🙂;
Re BH²,

Code:
Ah ben avec cette méthode, tu va nous "rattraper" _
à grande vitesse _
Félicitations mon "jeune" ami Spit _
A++ _
A+ à tous
 
Re : ligne de code trop longue pour la fenêtre VBA

Re,
Salut bhbh, JCGL,
@ Spit : on comprend comment tu es arrivé Barbatruc....
Ca m'arrive seulement depuis hier soir...😉
ta boîte aux lettres est pleine,
Ca doit être la rançon du succès😛😱
En fait j'ai quelques reliques dont je n'arrive pas à me débarrasser...
@papapaul, comme te l'a dit Spit, un _ mais précédé d'un espace....
Il y est; regarde bien; mais je ne l'ai pas mentionné explicitement donc tu as bien fait de le préciser.🙂

Bon, faut que j'enfile ma tenue de ménagère pour dépoussierer mon grenier à messages😉
et merci bhbh, JCGL

Cordialement
 
Dernière édition:
Re : ligne de code trop longue pour la fenêtre VBA

🙂 Merci bhbh, Split,
Fallait bien faire espace suivi de _ et tout de suite entrée pour
le saut de ligne.
Suis bête moi, tout essayer pourtant😱
Précision : Apparemment ca ne marche pas si on fait cette manip
a l'intérieur d'une expression entre " ".

Me sens moins bête tout d'un coup😀

Amitiés😉
 
Re : ligne de code trop longue pour la fenêtre VBA

Re,

Rassure toi ami caennais, il n'y a aucune méthode Spit.
Nous l'avons juste gentiment "cassé" : il vient de passer un palier XLD > 2K = Barbatruc.
Nous lui faisions remarquer qu'avec deux ou trois messages pour une même réponse, son "compteur" grimpait vite.
Mais il n'a pas besoin de çà pour être compétent

A++ à Ouistreham 🙂
A+ à tous
 
Dernière édition:
Re : ligne de code trop longue pour la fenêtre VBA

Bonsoir papapaul, Spitnolan08, bhbh, JCGL,

Petite info supplémentaire en passant papapaul,

Plutôt que :
Code:
[COLOR=NAVY]If[/COLOR] ws.Name <> "Feuil1" And ws.Name <> "Feuil2" And ws.Name <> "Feuil3" And ws.Name <> "Feuil4" And....   [COLOR=NAVY]Then[/COLOR]
Tu peux aussi faire plus clair :
Code:
    [COLOR=NAVY]Select Case[/COLOR] ws.Name
    [COLOR=NAVY]Case[/COLOR] "Feuil1", "Feuil2", "Feuil3", "Feuil4", ...
        [COLOR=GREEN]'[/COLOR]
    [COLOR=NAVY]Case [B]Else[/B][/COLOR]
        [COLOR=GREEN]'ICI ton code[/COLOR]
        [COLOR=GREEN]'[/COLOR]
        [COLOR=GREEN]'[/COLOR]
    [COLOR=NAVY]End Select[/COLOR]
Cordialement,
 
Re : ligne de code trop longue pour la fenêtre VBA

Bonjour,

Je souhaite couper la ligne de code suivante pour la mettre sur plusieurs lignes

Range("BQ" & Ligne).Value = "=IF(OR(AND(RC[-38]<=EOMONTH(RC[-23],10),RC[-38]<>""""),TODAY()<EOMONTH(RC[-23],10),TODAY()<RC[-67],RC[-67]>EOMONTH(RC[-23],11)),"""",IF(AND(RC[-67]<EOMONTH(RC[-23],10),TODAY()<=EOMONTH(RC[-23],11),RC[-38]=""""),TODAY()-EOMONTH(RC[-23],10),IF(AND(RC[-67]>EOMONTH(RC[-23],10),RC[-38]="""",TODAY()>=RC[-67],TODAY()<=EOMONTH(RC[-23],11)),TODAY()-RC[-67]+1,IF(AND(RC[-67]>EOMONTH(RC[-23],10),RC[-38]="""",TODAY()>=RC[-67],TODAY()>=EOMONTH(RC[-23],11)),EOMONTH(RC[-23],11)-RC[-67]+1,IF(AND(RC[-67]<EOMONTH(RC[-23],10),RC[-38]="""",TODAY()>=RC[-67],TODAY()>=EOMONTH(RC[-23],11)),EOMONTH(RC[-23],11)-EOMONTH(RC[-23],10),IF(AND(RC[-67]<EOMONTH(RC[-23],10),RC[-38]<EOMONTH(RC[-23],11)),RC[-38]-EOMONTH(RC[-23],10),IF(AND(RC[-67]>EOMONTH(RC[-23],10),RC[-38]<EOMONTH(RC[-23],10)),RC[-38]-RC[-67]+1,IF(AND(RC[-67]<EOMONTH(RC[-23],10),RC[-38]>EOMONTH(RC[-23],11)),EOMONTH(RC[-23],11)-EOMONTH(RC[-23],10),IF(AND(RC[-67]>EOMONTH(RC[-23],10),RC[-38]>EOMONTH(RC[-23],11)),EOMONTH(RC[-23],11)-RC[-67]+1)))))))))"

Merci d'avance pour aide
 
Re : ligne de code trop longue pour la fenêtre VBA

Bonjour,

essaye peut être ceci, il eut été préférable de créer ton propre fil de discussion...

Code:
Range("BQ" & Ligne).Value = "=IF(OR(AND(RC[-38]<=EOMONTH(RC[-23],10),RC[-38]<>"""")" _
& ",TODAY()<EOMONTH(RC[-23],10),TODAY()<RC[-67],RC[-67]>EOMONTH(RC[-23],11)),""""," _
& "IF(AND(RC[-67]<EOMONTH(RC[-23],10),TODAY()<=EOMONTH(RC[-23],11),RC[-38]="""")," _
& "TODAY()-EOMONTH(RC[-23],10),IF(AND(RC[-67]>EOMONTH(RC[-23],10),RC[-38]=""""," _
& "TODAY()>=RC[-67],TODAY()<=EOMONTH(RC[-23],11)),TODAY()-RC[-67]+1," _
& "IF(AND(RC[-67]>EOMONTH(RC[-23],10),RC[-38]="""",TODAY()>=RC[-67]," _
& "TODAY()>=EOMONTH(RC[-23],11)),EOMONTH(RC[-23],11)-RC[-67]+1,IF(AND" _
& "(RC[-67]<EOMONTH(RC[-23],10),RC[-38]="""",TODAY()>=RC[-67],TODAY()>=EOMONTH(RC" _
& "[-23],11)),EOMONTH(RC[-23],11)-EOMONTH(RC[-23],10),IF(AND(RC[-67]<EOMONTH(RC[-23],10)," _
& "RC[-38]<EOMONTH(RC[-23],11)),RC[-38]-EOMONTH(RC[-23],10),IF(AND(RC[-67]>EOMONTH(RC[-23],10)," _
& "RC[-38]<EOMONTH(RC[-23],10)),RC[-38]-RC[-67]+1,IF(AND(RC[-67]<EOMONTH(RC[-23],10)," _
& "RC[-38]>EOMONTH(RC[-23],11)),EOMONTH(RC[-23],11)-EOMONTH(RC[-23],10),IF(AND" _
& "(RC[-67]>EOMONTH(RC[-23],10),RC[-38]>EOMONTH(RC[-23],11)),EOMONTH(RC[-23],11)-RC[-67]+1)))))))))"

bonne journée
@+
 
- 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

Réponses
20
Affichages
2 K
Retour