Problème copy / paste

[hmagnin]

bonjour,

quelqu'un peut-il m'aider en me disant pourquoi le code ci dessous ne fonctionne pas


Dim i As Integer
Dim ligne As Integer
Dim j As Integer
Dim X As String
Dim Z As String

Sheets("Données").Activate

Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Sheets("tableau").Activate

For i = 1 To 10



X = Feuil5.Cells(i, 2).Value



Sheets("Données").Activate


For j = 1 To 15

Sheets("Données").Activate
Z = Cells(2, j).Value



If X = Z Then


Sheets("tableau").Activate
Cells(i, 1).Copy


Sheets("Données").Activate
ActiveSheet.Cells(3, j).Select
ActiveSheet.Paste

End If

Next



Next


Le message d'erreur intervient sur activesheet.paste

merci pour votre aide
hugo

 

[Pierrot93]

Re : Problème copy / paste

Bonjour,

A noter qu'en vba les "activate" ou "select" sont rarement utiles, tu pourrais coder de cette façon :

For j = 1 To 15
    Z = Sheets("Données").Cells(2, j).Value
    If X = Z Then
        Sheets("tableau").Cells(i, 1).Copy Sheets("Données").Cells(3, j)
    End If
Next j

A voir également où est placé ton code, module de feuille ou standard, préférable un module standard...

sans plus de détails difficile d'en dire plus...

bon après midi
@+

 

[hmagnin]

Re : Problème copy / paste

merci pour ta réponse,
mon code est dans un module "normal".
Il manque pas l'instruction pour coller dans ta réponse ...

je mets mon fichier en ligne

a+

 

[Pierrot93]

Re : Problème copy / paste

Re,

peux pas ouvrir ton fichjier, pas 2007 sous le coude..;

Il manque pas l'instruction pour coller dans ta réponse ...

le collage est dans l'instruction (1 seule ligne de code), utilisation de l'argument "Destination", il faut lire :
Sheets("tableau").Cells(i, 1).Copy Destination:=Sheets("Données").Cells(3, j)

 

[hmagnin]

Re : Problème copy / paste

sa marche nickel
un grand merci, je vais pouvoir avancer
a++