Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
Sub Macro1()
Dim pf As Range, dl&
dl = Cells(Rows.Count, "K").End(3).Row
Sheets("PdC Initial").Range("$A$1:$O$" & dl).AutoFilter Field:=11, Criteria1:="Oui"
Set pf = Sheets("PdC Initial").[_FilterDataBase]
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy _
Sheets("PdC back up").Cells(Rows.Count, "K").End(3).Offset(, -10)(2)
End Sub
Sub Macro1()
Dim I As Object 'déclare la variable I (onglet Initial)
Dim B As Object 'déclare la variable B (onglet Back up)
Dim dl As Long 'déclare la variable DL (Dernière ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim PLV As Range 'déclare la variable PLV (Plage Visible)
Set I = Sheets("PdC Initial") 'définit l'onglet I
Set B = Sheets("PdC back up") 'définit l'onglet B
dl = I.Cells(Application.Rows.Count, 11).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 11 (=K) de l'onglet I (à adapter à ton cas)
Set PL = I.Range("K2:K" & dl) 'définit la plage PL
I.Range("A1").AutoFilter Field:=11, Criteria1:="Oui" 'filtre la colonne 11 (=K) avec "Oui" comme critère
Set PLV = PL.SpecialCells(xlCellTypeVisible) 'définit la plage PLV des cellules visible (non filtrées) de la plage PL
PLV.EntireRow.Copy B.Cells(Application.Rows.Count, 11).End(xlUp).Offset(1, -10) 'copie les lignes entières de la plage PLV et les colle dans la première cellule vide de la colonne 11 (=K) de l'onglet B
I.Range("A1").AutoFilter 'supprime le filtre automatique
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 And Target.Row > 1 Then
If Target = "Oui" Then
Cells(Target.Row, 1).Resize(, 15).Copy Sheets("PdC back up").Cells(Rows.Count, "K").End(3).Offset(, -10)(2)
End If
End If
End Sub
