F
Fernandez67
Guest
Bonsoir à tous,
J'ai un petit problème avec le code suivant.Il me copie la zone 2 fois à la suite, est ce normale ?
Le but est bien de transposer la copie à la suite d'uhne base, mais pas en doublon !!
Je ne comprend pas.
J'ai un petit problème avec le code suivant.Il me copie la zone 2 fois à la suite, est ce normale ?
Le but est bien de transposer la copie à la suite d'uhne base, mais pas en doublon !!
Je ne comprend pas.
Code:
Sub AdresseCopyDataToDatabase()
Dim WBSource As Workbook, WSSource As Worksheet
Dim WBCible As Workbook, WSCible As Worksheet
Dim RSource As Range, RCible As Range
Set WBSource = ThisWorkbook
Set WSSource = WBSource.Sheets('Matrice')
Set RSource = WSSource.Range('G16:G21')
Set WBCible = ThisWorkbook
Set WSCible = WBCible.Sheets('BaseAdresse')
Set RCible = WSCible.Range('A65536').End(xlUp)(2)
RCible.Resize(2, 6) = Application.Transpose(RSource)
End Sub