Remplir cellules Exel a partir d une interface VB 6Résolu

Question

Bonjour tt le monde,

pouvez vous m aidez? j ai un problème. j essaye de remlir une cellule exel à partir d une interface vb j utilise la fonction Range mais je sais pas l utiliser avec une variable.
le code est le suivant

l:nombre de case non vide dans le tableau T 
For j = 0 To l - 1
n = T(j)
j = j + 14
Set db = OpenDatabase(App.Path & "\BD.mdb")sql "select * from Crew where Code '" & n & "' "
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
xlsfeuille.Range("B j :Dj").Value = rs.Fields(2) & "   " & rs.Fields(3)
Next

qu on jexecute le programme ajoute le rs.fields(2) &...3 à la rangé " BJ:DJ",je sais pas comment faire?alors je peux compter sur votre aide?

caco64 · Accepted Answer

Pour paramétrer ton range, utilise plutôt la foncion cells :
xlsfeuille.Range(cells(j,2),cells(j,4)).Value = rs.Fields(2) & "   " & rs.Fields(3)

ou autrement :

xlsfeuille.Range("B" & j &":D" & j).Value = rs.Fields(2) & "   " & rs.Fields(3)

La haine aveugle n'est pas sourde

mctoufiq · Answer

Merci pour votre response coco64.elle  m a ete d une grande utilité parce que j été vraiment bloqué

caco64 · Answer

Avec plaisir !

La haine aveugle n'est pas sourde

Remplir cellules Exel a partir d une interface VB 6

3 réponses

Votre réponse

Discussions similaires