Code VB est doublon

[Fernandez67]

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.

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

 

[Robert]

Bonsoir Fernandez, bonsoir le forum,

essaie comme ça :

RCible.Resize(1, 6) = Application.Transpose(RSource)

p.s. je suis baba de ce code je ne connaissais pas ces possibilités :
Set RCible = WSCible.Range('A65536').End(xlUp)(2)
RCible.Resize(2, 6) = Application.Transpose(RSource)
merci...

 

[Fernandez67]

Diantre !!!!

Je ne l'avais pas vue pourtant cela fait un moment que je cherche.

La solution est parfois si simple.

Concernant le code, il est le fruit de ce forum

Merci pour ton aide.

 

[daniel]

Bonjour à tout le monde,
Bonjour Fernandez, Bonjour Robert,
Voilà, je me suis permis de recopier le code pour voir le résultat, mais dès que je le lance, EXCEL me répond : Erreur de Compilation, Sub ou Function non définie. En regardant l'aide je ne vois pas la solution.
Pourriez-vous me dire à quoi cela est dû ???
De plus, la ligne
RCible.Resize(2, 6) = Application.Transpose(RSource)
ressort en rouge ???

Merci par avance pour votre patience.
Daniel

 

[Robert]

Bonjour Daniel, bonjour le forum,

Il est clair que si tu n'as pas d'onglet Matrice ni d'onglet BaseAdresse dans le classeur, cela va provoquer une erreur mais pas du tout celle que tu signales. Je ne comprends pas pourquoi tu as ce problème. Es-tu bien sûr d'avoir fait un copier/coller de tout le code de Fernandez ?

 

[Nico]

Bonjour a tous,

Je me demandais un truc :
A quoi sert ce code ?

et pourquoi j'au un message d'erreur 'subscript out of range' sur la ligne :
Set WSSource = WBSource.Sheets('Matrice')

(j'ai bien creer la feuille Matrice)

Merci,
A plus.