Discussion :

[Vincent32]

Bonjour,

Est-il possible d'écrire une ligne de code très longue sur plusieurs lignes ?

Si oui comment ?

Merci pour votre aide

[casefayere]

Bonjour,
Forum VBa donc

un espace à la coupure désirée, un "_" et "enter pour mettre en ligne suivante, attention de ne pas mettre après n'importe quelle instruction
exemple :

Code :

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

.Cells(I, 2).Formula = "=if(" & .Cells(I, 1).Address & "="""","""",VLookup(" & .Cells(I, 1).Address & ", feuil1!A2:E18, 2, False))"

peut devenir :

Code :

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

1
2
 .Cells(I, 2).Formula = "=if(" & .Cells(I, 1).Address & _
    "="""","""",VLookup(" & .Cells(I, 1).Address & ", feuil1!A2:E18, 2, False))"

[casefayere]

Ah bon, résolu ?, content de t'avoir connu............

[sefal]

MDR,

Moi ton astuce m'a aidé en tant que novice en VBA

Merci pour ta réponse même avec plusieurs année de retard ;-)

Séfal

[Fredjo71]

Bonjour à tous,

Je me permet de remonter le sujet car la solution proposée m'a bien aidée pour faire un retour de ligne dans le code de VBA..

Par contre, il semblerait que j'ai trop de caractère dans une seule ligne car j'obtiens un message d'erreur : "trop de caractère de continuité de ligne"..

Et je suis bloqué..

C'est vrai que mon code pourrait être un peu plus joli sans doute mais ça marche... jusqu'à 25 expressions :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'injection dans act
Sheets("act").Cells(i, 1).Value = Sheets("mep").Cells(f, 1) _
                            & "," & Sheets("mep").Cells(f, 2) _
                            & "," & Sheets("mep").Cells(f, 3) _
                            & "," & Sheets("mep").Cells(f, 4) _
                            & "," & Sheets("mep").Cells(f, 5) _
                            & "," & Sheets("mep").Cells(f, 6) _
                            & "," & Sheets("mep").Cells(f, 7) _
                            & "," & Sheets("mep").Cells(f, 8) _
                            & "," & Sheets("mep").Cells(f, 9) _
                            & "," & Sheets("mep").Cells(f, 10) _
                            & "," & Sheets("mep").Cells(f, 11) _
                            & "," & Sheets("mep").Cells(f, 12) _
                            & "," & Sheets("mep").Cells(f, 13) _
                            & "," & Sheets("mep").Cells(f, 14) _
                            & "," & Sheets("mep").Cells(f, 15) _
                            & "," & Sheets("mep").Cells(f, 16) _
                            & "," & Sheets("mep").Cells(f, 17) _
                            & "," & Sheets("mep").Cells(f, 18) _
                            & "," & Sheets("mep").Cells(f, 19) _
                            & "," & Sheets("mep").Cells(f, 20) _
                            & "," & Sheets("mep").Cells(f, 21) _
                            & "," & Sheets("mep").Cells(f, 22) _
                            & "," & Sheets("mep").Cells(f, 23) _
                            & "," & Sheets("mep").Cells(f, 24) _
                            & "," & Sheets("mep").Cells(f, 25)

Merci d'avance pour vos suggestions !

[jpvba]

Bonjour Fredjo71,


Je scinderais ta ligne en attribuant une valeur a une variable ou je ferais une boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
a = Sheets("mep").Cells(f, 1) _
                            & "," & Sheets("mep").Cells(f, 2) _
                            & "," & Sheets("mep").Cells(f, 3) _
                            & "," & Sheets("mep").Cells(f, 4) _
b = Sheets("mep").Cells(f, 5) _
                            & "," & Sheets("mep").Cells(f, 6) _
                            & "," & Sheets("mep").Cells(f, 7) _
                            & "," & Sheets("mep").Cells(f, 8) _ 
 
 
Sheets("act").Cells(i, 1).Value = a & b