[vba] remplir une msflexgrid

[badboy9312]

Bonjour,
voila mon problème: j'ai, par exemple,une msflexgrid de 4 colonne et de 3 ligne et j'aimerais que lorsqu'on clik sur une de ces cellules on peut lui mettre une valeur Est-il possible de le faire? merci d' avance
voia mon code pour le msflexgrid (qui est table)


sub affecte()

Dim result As String
table.Clear

table.Rows = 0
table.Cols = 4
result = " " & vbTab & " > " & vbTab & " = " & vbTab & "<" & vbTab & ""
table.AddItem (result)
dim i as integer

for i=1 to 3

result = " "& vbTab & " " & vbTab & " " & vbTab & "" & vbTab & ""
table.AddItem (result)
next i


table.FixedCols = 1
table.FixedRows = 1
table.ColAlignment(0) = 1
table.ColAlignment(1) = 5
table.ColAlignment(2) = 5
table.ColAlignment(3) = 5
table.ColWidth(0) = 1335
table.ColWidth(3) = 1335
table.ColWidth(2) = 1700
table.ColWidth(1) = 1700
affecte = i

End Function

 

[KangOl]

balise