Discussion :

[Strasha]

Salut a tous,
J'ai un petit probleme dont j'espere grace a vous trouver la solution.
Je dispose d'une PVTable ( objet du style tableau ) et je veux pouvoir faire une selection de son contenu et le copier dans le clipboard.
En utilisant Ctrl+c on ne peut copier qu'une partie de ce tableau et on ne peut pas copier le tableau dans son integralité.
D'ou l'idee de coder une fonction qui recupere l'objet de la selection et qui la copie dans le presse papier.
J'ai bien trouvé la fonction clipboard.setText qui permet de copier un texte dans le clipboard mais je n'arrive pas a trouver la fonction qui permet de recuperer l'ensemble des elements de ma selection.
Vu que mon objet a copier n'est pas une textbox je ne peux pas utiliser la fonction seltext.
Pouvez vous me dire avec quels outils je pourrait faire la copie de mon tableau?
J'espere avoir ete assez clair.
Je vous remercie pour vos reponses.
Strasha

[ProgElecT]

Ton tableau se présente sous forme de lignes et colonnes ?
Si oui voilà ce que cela peut donner pour un tableau type MSHFlexGrid pour

copier le tableau dans son integralité

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim T As Integer, U As Integer
Dim Recup As String
Recup = ""
For T = 0 To MSHFlexGrid1.Rows - 1
 For U = 0 To MSHFlexGrid1.Cols - 1
  If U = 0 Then
   Recup = Recup & vbCrLf & MSHFlexGrid1.TextMatrix(T, U)
   Else
   Recup = Recup & ", " & MSHFlexGrid1.TextMatrix(T, U)
  End If
 Next U
Next T
Clipboard.SetText = Recup

pour

recuperer l'ensemble des elements de ma selection

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Recup = ""
For T = MSHFlexGrid1.Row To MSHFlexGrid1.RowSel
 For U = MSHFlexGrid1.Col To MSHFlexGrid1.ColSel
  If U = MSHFlexGrid1.Col Then
   Recup = Recup & vbCrLf & MSHFlexGrid1.TextMatrix(T, U)
   Else
   Recup = Recup & ", " & MSHFlexGrid1.TextMatrix(T, U)
  End If
 Next U
Next T
Clipboard.SetText = Recup

[Strasha]

Merci d'avoir pris le temps de me repondre.
En fait le tableau que j'utilise n'a rien a voir avec mxfleshgrid c une commande developpee par infragistic avec d'autres methode.
Je cherche depuis une heure et je n'arrigve pas a trouver la fonction qui permet de recuperer le texte dans une cellule.
La route est longue

[zazaraignée]

Et que recommande le site de infragistic pour le développement d'application (avec VB ou autres) avec ce composant? Tu as cherché?