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
," _