code sur plusieurs lignes

Bonjour à tous,

La ligne de variable n'étant pas terminé sur la première ligne,
Le fait d'aller sur la seconde ligne, le code vba me met une erreur.

Comment faire ?

Bonjour,

tu aurai pu nous monter ton cas spécifique... en principe en VBA l'on peu passer en la ligne en terminant par un espace suivi d'un undescore :

Code:

---

1 2 3

Debug.Print _ "Bonjour"

---

Merci JackOuYA

J'ai essayé mais ça ne marche pas
Le code :

Code:

---

1 2

Text_SQL = "INSERT INTO resultat_joueurs VALUES (null," & id_tournoi & " ,'" & nom1 & "', '" & prenom1 & "', '" & numero_joueur1 & "', '" & joueur1_adversaire1 & "', '" & ThisWorkbook.Sheets("Résultats").Range("E11") & "', '" & ThisWorkbook.Sheets("Résultats").Range("D10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("F10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("F13") & "', '" & joueur1_adversaire2 & "', '" & ThisWorkbook.Sheets("Résultats").Range("I11") & "', '" & ThisWorkbook.Sheets("Résultats").Range("H10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("J10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("J13") & "', '" & joueur1_adversaire3 & "', '" & ThisWorkbook.Sheets("Résultats").Range("M11") & "', '" & ThisWorkbook.Sheets("Résultats").Range("L10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("N10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("N13") & "', _ '" & joueur1_adversaire4 & "', '" & ThisWorkbook.Sheets("Résultats").Range("Q11") & "', '" & ThisWorkbook.Sheets("Résultats").Range("P10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("R10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("R13") & "', '" & joueur1_adversairefinal & "', '" & ThisWorkbook.Sheets("Résultats").Range("Z11") & "', '" & ThisWorkbook.Sheets("Résultats").Range("Y10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("AA10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("AA13") & "', '" & ThisWorkbook.Sheets("Résultats").Range("AD11") & "', '" & ThisWorkbook.Sheets("Résultats").Range("AC10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("AE10") & "', '" & ThisWorkbook.Sheets("Résultats").Range("AE13") & "', '" & ThisWorkbook.Sheets("Résultats").Range("AG9") & "', '" & ThisWorkbook.Sheets("Résultats").Range("AG12") & "')"

---

Bonjour,

En mettant le code sur une seule ligne tu n'as pas d'erreur ?

Tu peux alléger l'écriture de ton code, en début de code tu déclares

Code:

---

1 2	Dim Sh As Worksheet Set Sh = Sheets("Résultats")

---

et dans le code tu remplaces tous les

Code:

---

ThisWorkbook.Sheets("Résultats").Range("xx")

---

par

Code:

---

Sh.Range("xx")

---

J'ai automatiquement un retour à la ligne en vba :(
il me rajoute automatiquement un " juste avant l'underscore
," _

Merci fring pour ta solution mais j'ai essayé et j'ai encore 2 lignes:

Code:

---

1 2

Text_SQL = "INSERT INTO resultat_joueurs VALUES (null," & id_tournoi & " ,'" & nom1 & "', '" & prenom1 & "', '" & numero_joueur1 & "', '" & joueur1_adversaire1 & "', '" & Sh.Range("E11") & "', '" & Sh.Range("D10") & "', '" & Sh.Range("F10") & "', '" & Sh.Range("F13") & "', '" & joueur1_adversaire2 & "', '" & Sh.Range("I11") & "', '" & Sh.Range("H10") & "', '" & Sh.Range("J10") & "', '" & Sh.Range("J13") & "', '" & joueur1_adversaire3 & "', '" & Sh.Range("M11") & "', '" & Sh.Range("L10") & "', '" & Sh.Range("N10") & "', '" & Sh.Range("N13") & "', '" & joueur1_adversaire4 & "', '" & Sh.Range("Q11") & "', '" & Sh.Range("P10") & "', '" & Sh.Range("R10") & "', '" & Sh.Range("R13") & "', '" & joueur1_adversairefinal & "', '" & Sh.Range("Z11") & "', '" & Sh.Range("Y10") & "', '" & Sh.Range("AA10") & "', '" & Sh.Range("AA13") & "', '" & Sh.Range("AD11") & "', '" & Sh.Range("AC10") & "', '" & Sh.Range("AE10") & "', '" & Sh.Range("AE13") & "', '" & Sh.Range("AG9") & "'," _ '" & Sh.Range("AG12") & "')"

---

Tu bat des record avec ta ligne... je sais pas ce que va donner ta requête SQL ...

tu peu faire aussi :

Code:

---

1 2 3 4

Text_SQL = "INSERT INTO resultat_joueurs VALUES (null," Text_SQL = Text_SQL & id_tournoi & " ,'" & nom1 & "', '" & prenom1 & "', '" & numero_joueur1 Text_SQL = Text_SQL & ....

---

et ainsi de suite ...

je te conseille d'afficher ensuite ta chaine, pour vérifier que tu as tout ...

Oui en effet j'ai mis beaucoup de champs :D

Je vais essayé ce que tu m'a donné ;)

Ou également faire les sauts de lignes toi même pour éviter une ligne de 3km de long

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Text_SQL = "INSERT INTO resultat_joueurs VALUES (null," & id_tournoi & " ,'" & nom1 & "', '" _ & prenom1 & "', '" & numero_joueur1 & "', '" & joueur1_adversaire1 & "', '" _ & Sh.Range("E11") & "', '" & Sh.Range("D10") & "', '" & Sh.Range("F10") & "', '" _ & Sh.Range("F13") & "', '" & joueur1_adversaire2 & "', '" & Sh.Range("I11") & "', '" _ & Sh.Range("H10") & "', '" & Sh.Range("J10") & "', '" & Sh.Range("J13") & "', '" _ & joueur1_adversaire3 & "', '" & Sh.Range("M11") & "', '" & Sh.Range("L10") & "', '" _ & Sh.Range("N10") & "', '" & Sh.Range("N13") & "', '" & joueur1_adversaire4 & "', '" _ & Sh.Range("Q11") & "', '" & Sh.Range("P10") & "', '" & Sh.Range("R10") & "', '" _ & Sh.Range("R13") & "', '" & joueur1_adversairefinal & "', '" & Sh.Range("Z11") _ & "', '" & Sh.Range("Y10") & "', '" & Sh.Range("AA10") & "', '" & Sh.Range("AA13") _ & "', '" & Sh.Range("AD11") & "', '" & Sh.Range("AC10") & "', '" & Sh.Range("AE10") _ & "', '" & Sh.Range("AE13") & "', '" & Sh.Range("AG9") & "'," & Sh.Range("AG12") & "')"

---

Merci à tous les deux ;)

Mon problème est résolu :D