Copier / Collage Transpose en VBA

F

FERNANDEZ67

Guest
Bonjour,

j'ai le code suivant, et j'aimerai y intégrer le collage spéciale 'transpose' afin de pouvoir filtrer la base ultérieurement :




Code:
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
Sub AdresseCopyDataToDatabase()

Dim WBSource As Workbook, WSSource As Worksheet
Dim WBCible As Workbook, WSCible As Worksheet
Dim RSource As Range, RCible As Range
Dim CheminDatabase As String

CheminDatabase = ThisWorkbook.Path & '\\Database.xls'

Set WBSource = ThisWorkbook
Set WSSource = WBSource.Sheets('Matrice')
Set RSource = WSSource.Range('F16:G20')

Set WBCible = ThisWorkbook
Set WSCible = WBCible.Sheets('BaseAdresse')

Set RCible = WSCible.Range('A65536').End(xlUp)(2)

RSource.Copy RCible

End Sub


Etant une huître en VB, poiurriez vous m'aider à intégrer cette ligne dans le code...

D'avance merci pour votre précieuse aide qui me permet d'apprendre VB sur tas...
 

Bebere

XLDnaute Barbatruc
bonjour Fernandez


ThisWorkbook, le classeur ou le code est exécuté

la ligne Set WBCible = ThisWorkbook devrait être
Set WBCible = Workbooks('NomClasseur')

Set WBSource = ThisWorkbook
Set WSSource = WBSource.Sheets('Matrice')
Set RSource = WSSource.Range('F16:G20')

Set WBCible = ThisWorkbook
Set WSCible = WBCible.Sheets('BaseAdresse')

Set RCible = WSCible.Range('A65536').End(xlUp)(2)

RSource.Copy
RCible.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

End Sub
à bientôt
 
F

Fernandez67

Guest
Arf du coup

Les infos sont reécris les une pardessus les autres et non plus à la suite,


Set RCible = WSCible.Range('A65536').End(xlUp)(2)

RSource.Copy
RCible.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

End Sub

La ligne de commande Set Rcible ne fait plus sont travail, pourquoi ?
 

Discussions similaires

Statistiques des forums

Discussions
312 798
Messages
2 092 219
Membres
105 293
dernier inscrit
Hélène Power