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 à 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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3Debug.Print _ "Bonjour"
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") & "')"
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
et dans le code tu remplaces tous les
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dim Sh As Worksheet Set Sh = Sheets("Résultats")
par
Code : Sélectionner tout - Visualiser dans une fenêtre à part ThisWorkbook.Sheets("Résultats").Range("xx")
Code : Sélectionner tout - Visualiser dans une fenêtre à part 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 : 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") & "')"
Tu bat des record avec ta ligne... je sais pas ce que va donner ta requête SQL ...
tu peu faire aussi :
et ainsi de suite ...
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 & ....
je te conseille d'afficher ensuite ta chaine, pour vérifier que tu as tout ...
Oui en effet j'ai mis beaucoup de champs
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 : 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") & "')"
Merci à tous les deux
Mon problème est résolu
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager