Discussion :

[BDA53]

Bonjour amis développeur sur VBA,

Dans le cadre d'une recherche de données dans une base de données mysql, j'ai développé cette macro pour transformer des données excel en "données sql" pour les utiliser dans une requête :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim l As Integer
 
For l = 2 To Worksheets("Feuil2").Range("A2").End(xlDown).Row
 
        Worksheets("Feuil2").Range("A" & l).Select
        ActiveCell.FormulaR1C1 = "'" & Worksheets("Feuil2").Range("A" & l) & "',"
 
Next l

Je m'explique, de la 2ème ligne du tableau excel vers sa dernière ligne non vide (To Worksheets("Feuil2").Range("A2").End(xlDown).Row), les quotes sont ajoutées aux données excel + la virgule.
Si on prend un exemple, cela donne : format excel = 123456 => format sql après lancement de la macro = '123456',
Mon but était de pouvoir faire une requête sql avec l'instruction in (ex : "where tab_id in ('123456', '123457', ......, 'n');").
Si cette macro peut encore servir à quelqu'un c'est top.

Voilà bonne journée à tous,
Cordialement,
BDA53

[Pierre Fauconnier]

Salut.

Il peut être intéressant de noter que Excel 365 (Attention, version différente de Excel 2016!!) expose une nouvelle fonction CONCAT qui permet de travailler en matricielle et donc de réaliser cela par formule