Discussion :

[phildouja]

Bonjour

Je crée des macros par INSERTLINES : il n'y a pas de problème ; par contre, j'ai un souci lorsque je veux insérer UNE seule instruction sur plusieurs lignes.
En effet, dans une macro que je crée je peux utiliser le underscore " _" pour aller à la ligne, mais si je fais la même chose dans mon INSERTLINES, une ligne est sautée après le " _" et du coup l'instruction n'est pas correcte.

En résumé y a -t-il un truc pour écrire une instruction sur plusieurs lignes dans INSERTLINES ?

Le but étant la lisibilité : je pourrais éventuellement tout écrire sur une seule ligne.

Merci d'avance

[pgz]

Bonjour.

Après un Underscore, il faut insérer la ligne suivante une ligne plus haut.
Quand la ligne de code est complète, effacer la dernière ligne. Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With MonTruc.CodeModule
   .Insertlines .CountOfLines+1,"Le début de ma ligne de code _ "
   .Insertlines .CountOfLines, "   la suite et fin de cette ligne de code"
   .Deletelines .CountOfLines,1
   .Insertlines .CountOfLines+1,"la ligne de code suivante"
End With

Bon courage,

PGZ

[myDearFriend!]

Bonsoir phildouja, pgz,

Et pourquoi ne pas simplifier comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Insertlines .CountOfLines + 1, "'Le début de la ligne de code _ " & vbLf & "et maintenant la suite"

Cordialement,
Didier_mDF

[pgz]

Mon cher ami,

Cela marche aussi, mais si on veut aussi couper la ligne dans le code d'écriture...
Et puis je crois que tu ne peux pas éviter le DeleteLines, faute de quoi il y aura une ligne blanche insérée.

Cordialement,

PGZ

[myDearFriend!]

Re pgz,

Si on veut couper la ligne dans le code d'écriture, à mon avis on peut faire aussi comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.Insertlines .CountOfLines + 1, "'Le début de la 1ere ligne de code _ " _
                & vbLf & "et maintenant la suite"

Concernant le fait qu'on ne puisse échapper au DeleteLines, désolé là, on n'est pas du même avis, mais bon...

Cordialement,
Didier_mDF

[phildouja]

C'est super. Merci beaucoup