Discussion :

[Florian54]

Bonjour,

Je voulais savoir si c'était possible de faire un couper/coller d'une cellule ou d'un ensemble de cellule dans un fichier excel piloté depuis vb.net ?

En effet, pour des raisons de mises en page (et d'économie de papier ! Soyons écolo !) je souhaiterais prendre une partie d'un tableau et l'afficher en dessous du tableau initial.

Merci d'avance pour votre aide.

Cordialement, Florian

[anonymousse]

bonsoir,

c'est possible en faisant par exemples :

Code :

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

1
2
3
4
5
6
7
8
9
10
MonWorkBook.Worksheets("MaPage1").cells(r1,c1).Cut
MonWorkBook.Worksheets("MaPage2").cells(r2,c2).paste
 
MonWorkBook.Worksheets("MaPage1").Range("MaPlage1").cells(r1,c1).Cut
MonWorkBook.Worksheets("MaPage2").Range("MaPlage2").cells(r2,c2).paste
 
MonWorkBook.Worksheets("MaPage1").Range("MaPlage1").cells.Cut
MonWorkBook.Worksheets("MaPage2").Range("MaPlage2").cells(r2,c2).paste
 
...

à adapter les noms et valeur si une ou plusieurs cellules, possibilité d'utiliser également PasteSpecial, Insert, ....

Une bonne méthode très simple consiste à utiliser la mémorisation automatique de macro en VBA sous Excel, et transposer le code sous VB

[Florian54]

Bonjour,

Tout d'abord, merci pour ta réponse.
Par contre, j'ai essayé sa :

Code :

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

1
2
3
 
ExcelInstance.Worksheets(1).Range(FeuilleCourante.Cells(5, 5), FeuilleCourante.Cells(7, 9)).Cut()
ExcelInstance.Worksheets(1).Cells(12, 1).Paste()

ExcelInstance est du type Excel.Application.

Cependant, j'ai un message d'erreur m'indiquant que la propriété Paste n'éxiste pas.

J'ai également essayé en mettant une plange et en utilisant Range("Maplage").Paste() mais j'obtiens la même erreur.

Si quelqu'un à une idée, je suis preneur.

Merci

[anonymousse]

bonsoir,

ExcelInstance est du type Excel.Application

il faut déclarer le classeur utilisé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Private _Application As Excel.Application
    Private _WorkBooks As Workbooks
    Private _WorkBook As Workbook
 
    _Application = New Excel.Application
    _WorkBooks = _Application.Workbooks
    _WorkBook = _WorkBooks.Open(NomClasseurUtilisé)
 
    _WorkBook.Worksheets(1).Range(FeuilleCourante.Cells(5, 5), FeuilleCourante.Cells(7, 9)).Cut()
    _WorkBook.Worksheets(1).Cells(12, 1).Paste()