mon code est pour former une requete SQL à partir de données dans un tableau excel. J'ai codé ça en VBa
 
 
Sub toto()
For i = 1 To 64
    req = "insert into matable values("
    For j = 1 To 12
        req = req + "'" + Cells(i, j) + "',"
    Next
Next
Cells(99, 1) = req
 
End Sub

Bonjour,
 
 
Sub toto()  
For i = 1 To 64  
    req = "insert into matable values("  
    For j = 1 To 12  
        req = req + "'" + Cells(i, j).value + "',"  
    Next  
Next  
Cells(99, 1).value = req  
 
End Sub  
 
I.

mici ;-)