Copier / Coller une ligne avec condition sur un autre onglet

**bunz13** · 08/06/2016, 12h38

Bonjour à tous,
je recherche le script qui me copie une ligne de la cellule A à O avec une condition sur la cellule P qui se trouve sur la même ligne
si sur mon onglet (SHEET1) je mets "OUI" sur la cellule P de la ligne 40 donc on copie de A40 à O40 sur l'onglet (SHEET2) à la suite

j'ai réussi à le faire sur excel 2007 voilà la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
function CopierColler() {  
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   If Target.Column = 16 Then
   If UCase(Target.Value) = "OUI" Then
            Range("A" & Target.Row).Resize(1, 15).Copy
            ActiveSheet.Paste Destination:=Worksheets("SHEET2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
            Application.CutCopyMode = False
        End If
     End If
   End Sub
}