Discussion :

[peofofo]

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 ?

[JackOuYA]

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 :

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

1
2
3
 
 Debug.Print _
  "Bonjour"

[peofofo]

Merci JackOuYA

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

Code :

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

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") & "')"

[fring]

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 :

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

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

et dans le code tu remplaces tous les

Code :

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

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

par

Code :

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

Sh.Range("xx")

[peofofo]

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

[peofofo]

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

Code :

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

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") & "')"

[JackOuYA]

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

tu peu faire aussi :

Code :

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

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 ...

[peofofo]

Oui en effet j'ai mis beaucoup de champs

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

[fring]

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

Code :

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

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") & "')"

[peofofo]

Merci à tous les deux

Mon problème est résolu