Private Sub MSFlexGrid1_DblClick() 'ligne de depart x = MSFlexGrid1.Row z = x 'Transert de donnees For y = x To z MSFlexGrid1.Col 0: entry0 MSFlexGrid1.TextMatrix(y, 0) MSFlexGrid1.Col 1: entry1 MSFlexGrid1.TextMatrix(y, 1) MSFlexGrid1.Col 2: entry2 MSFlexGrid1.TextMatrix(y, 2) 'remplissage d'une ligne MSFlexGrid2.AddItem entry0 & Chr(9) & entry1 & Chr(9) & entry2 Next y End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub G_DblClick() On Error Resume Next n = MSFlexGrid1.Cols For i = 1 To n - 1 MSFlexGrid1.Col 0: MSFlexGrid2.TextMatrix(i, 0) MSFlexGrid1 MSFlexGrid1.Col 1: MSFlexGrid2.TextMatrix(i, 1)MSFlexGrid1 MSFlexGrid1.Col 2: MSFlexGrid2.TextMatrix(i, 1)MSFlexGrid1 Next i End Sub
Voilà ! Et je n'ajouterai pas un seul mot à tout cela.