Copier / Collage Transpose en VBA

[FERNANDEZ67]

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 :

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]

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

 

[FERNANDEZ67]

Merci Bebere !!!!!

Géniale, j'espère être bientôt autonome...

 

[Fernandez67]

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 ?