Une ligne de code vba à ajouter, mais où ?

[13GIBE59]

Bonjour le forum

Dans le fichier joint, la macro contenue dans le module 1 (un copier-coller un peu particulier) fonctionne paraitement (merci RENAUDER 🙂).

Mais je souhaite ne coller que les valeurs. Où dois-je ajouter la ligne de code suivante ?

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

Merci d'avance. 😀

 

[Cousinhub]

Re : Une ligne de code vba à ajouter, mais où ?

Bonjour,

essaie ainsi :

Sub touteslignes()
With Sheets(1)
   For Each cell In .Range("A2:A" & .[A65000].End(xlUp).Row)
        If cell.Value = "þ" Then
            Set MaPlage = .Range(.Cells(cell.Row, 2), .Cells(cell.Row, 5))
            MaPlage.Copy
            Sheets(2).Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        End If
    Next cell
    Application.CutCopyMode = False
End With
Sheets(2).Activate
Range("F1").Select
End Sub

 

[13GIBE59]

Re : Une ligne de code vba à ajouter, mais où ?

Bonjour bhbh 🙂

Merci, grande classe, rapide, efficace !
Que demander de plus ? 😉

A bientôt.