Copier valeur

Bonjour,

Quelqu'un sait s'il existe un moyen de copier/valeurs dans la macro?

derniere_ligne = Sheets("Liste de mots et résultats").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To derniere_ligne

Sheets("Liste de mots et résultats").Range("A" & i).Copy Sheets("Outil").Range("L2")

Sheets("Outil").Range("M2:S2").Copy Sheets("Liste de mots et résultats").Range("B" & i)

Next i

Merci

Bonjour,

À tester ...

derniere_ligne = Sheets("Liste de mots et résultats").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To derniere_ligne
    Sheets("Liste de mots et résultats").Range("A" & i).Copy
    Sheets("Outil").Range("L" & i).PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    Sheets("Outil").Range("M2:S2").Copy
    Sheets("Liste de mots et résultats").Range("B" & i).PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next i

laceline

Bonjour,

Une méthode sans copie...

Sub Test()
    Dim A, B(), i%, dln%, wsO As Worksheet
    Set wsO = Sheets("Outil")
    With Sheets("Liste de mots et résultats")
        dln = .Cells(Rows.Count, 1).End(xlUp).Row
        A = .Range("A2:A" & dln).Value
        ReDim B(1 To UBound(A))
        For i = 1 To UBound(A)
            wsO.Range("L2") = A(i, 1)
            B(i) = WorksheetFunction.Index(wsO.Range("M2:S2"), 1, 0)
        Next i
        .Range("B2:B" & dln).Resize(, 7).Value = _
         WorksheetFunction.Transpose(WorksheetFunction.Transpose(B))
    End With
End Sub

Cordialement.