Copier/coller d'une feuille à l'autre

Bonjour à tous,

J'ai un petit souci sur une macro, je ne comprends pas pourquoi elle ne fonctionne pas, si quelqu'un pouvait m'aider, ce serait sympa !

Ce que je veux est simplement copier la cellule d'une feuille (Scope) pour la coller dans une autre feuille (Actuel) sous condition. Mais cela ne me copie rien du tout ! Une idée sur ce qui ne va pas ?

Merci d'avance

Sub ImporterAttributs()
Dim Actuel As Worksheet
Dim ScopeList As Worksheet
Dim i As Integer
Dim j As Integer

Set Actuel = Sheets("Actuel")
Set ScopeList = Sheets("Scope")

For i = 5 To 7
    For j = 3 To 60
       If Actuel.Cells(i, 5) = ScopeList.Cells(j, 2) Then

            ScopeList.Activate
            Cells(j, 3).Select
            Selection.Copy
            Actuel.Activate
            Cells(i, 8).Select
            ActiveSheet.Paste

        End If
    Next j
Next i

End Sub

Bonjour mayou, un fichier joint aiderait beaucoup.

Concernant ton test, peut-etre peut tu remplacer

If Actuel.Cells(i, 5) = ScopeList.Cells(j, 2) Then

par

If Actuel.Cells(i, 5).Value = ScopeList.Cells(j, 2).Value Then

Si ça fonctionne tant mieux, sinon il faudra un fichier je pense

Et le code pour débeuger un peu mieux

Sub ImporterAttributs()
Dim Actuel As Worksheet
Dim ScopeList As Worksheet
Dim i As Integer
Dim j As Integer
Dim nbRes as Integer

nbRes = 0

Set Actuel = Sheets("Actuel")
Set ScopeList = Sheets("Scope")

For i = 5 To 7
    For j = 3 To 60
       If Actuel.Cells(i, 5).Value = ScopeList.Cells(j, 2).Value Then
            nbRes = nbRes + 1 
            ScopeList.Activate
            Cells(j, 3).Select
            Selection.Copy
            Actuel.Activate
            Cells(i, 8).Select
            ActiveSheet.Paste

        End If
    Next j
Next i

Msgbox "Il y a " & nbRes & " cellules qui ont étés copiées"

End Sub

Ok merci pour ta réponse rapide. J'ai compris quel était le souci. Ma feuille où je vais chercher mes données ne contient que des formules. Les formules sont donc bien copiées collées, mais moi je souhaiterais que seule la valeur de la cellule qui soit copiée ! Une idée pour ça ?

C'est bon j'ai trouvé ! J'ai utilisé l'enregistreur de macro !

Pour ceux que ça intéresse, remplacer :

ActiveSheet.Paste

par

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False