Recopier que les valeurs

Bonjour le forum

J'ai une macro qui recopie des données mais elle recopie les formules hors je voudrais qu'elle ne recopie que les valeurs.

Que faut-il rajouter dans la macro

Sub Macro54()
'
' Macro54 Macro
' Plat-AK musique
'

 Dim c As Range, r As Range
    With Sheets("Plat")
       For Each c In .Range("BM2:BQ2")
          For Each r In .Range("AF2:AF19")
             If c = r Then
                r.Resize(1, 6).Copy .Range("K7").End(xlUp).Offset(1, 0)
                Exit For
             End If
          Next
       Next
    End With

End Sub

merci

Bonjour,

Tu peux tester la macro suivante :

Sub Macro55()
' Macro55 Macro
' Plat-AK musique
 Dim c As Range, r As Range
    With Sheets("Plat")
       For Each c In .Range("BM2:BQ2")
          For Each r In .Range("AF2:AF19")
             If c = r Then
                r.Resize(1, 6).Value = .Range("K7").End(xlUp).Offset(1, 0).Value
                Exit For
             End If
          Next r
       Next c
    End With
End Sub

En espèrant que cela t'aide ...

Edit : Comme stipulé par h2so4 ... il faut inverser les éléments ...

.Range("K7").End(xlUp).Offset(1, 0).Resize(1, 6).Value = r.Resize(1, 6).Value

bonsoir

bonsoir James007

essaie ceci

Sub Macro54()
'
' Macro54 Macro
' Plat-AK musique
'

 Dim c As Range, r As Range
    With Sheets("Plat")
       For Each c In .Range("BM2:BQ2")
          For Each r In .Range("AF2:AF19")
             If c = r Then
                .Range("K" & rows.count).End(xlUp).Offset(1, 0).Resize(1, 6).Value = r.Resize(1, 6).Value
                Exit For
             End If
          Next
       Next
    End With

End Sub

Salut Jad,

comme ceci, peut-être...

             If c = r Then
                iRow = .Range("K" & Rows.Count).End(xlUp).Row + 1
                .Range("K" & iRow).Resize(1, 6).Value = r.Resize(1, 6).Value
                Exit For
             End If

A+

Salut h2so4 ...

Tu as totalement raison ...

avec .Value ... il faut inverser les éléments ....