GB3- Gridview et presse papier( Temps de lecture estimé à Moins d'une minute)
Bonjour,
Dans ce petit tutoriel, je vous propose de copier l'intégralité d'une gridview dans le presse papier pour pouvoir le coller dans un éditeur de texte pour créer un fichier CSV par exemple.
A) création de l'interface.
Posez une gridview et un bouton
renommez la gridview en 'grille' et le button1 en Bcopy.
B) Ecriture du code.
Dans l'évènement Bcopy_Click(), écrivez ce code :
Dim maliste As String Dim a As Integer maliste = Null For a = 0 To (grille.Rows.Max - 1) maliste = maliste & grille[a, 0].Text & ";" & grille[a, 1].Text & ";" & grille[a, 2].Text & ";" & grille[a, 3].Text & ";" & grille[a, 4].Text & ";" & grille[a, 5].Text & ";" & grille[a, 6].Text & ";" & grille[a, 7].Text & ";" & Chr$(10) Next Clipboard.Copy(maliste) End Select
Le texte ainsi copié sera toutes les cellules des lignes séparées par un point virgule sur tout le tableau.
A votre convenance, vous pouvez coller ce texte dans une textarea par exemple avec la commande:
TextArea1.text = Clipboard.Paste()
ou dans une autre application (éditeur de texte) par un clic droit de la souris et 'Coller'
Merci pour votre attention.