Sub lgllivcomalhparcl()[/COLOR]
Sub lgllivcomalhparcl()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim J As Integer 'déclare la variable J (incrément)
Const V1 As Date = DateSerial(2019, 1, 1) 'déclare la constante V1
Const V2 As Date = DateSerial(2019, 7, 31) 'déclare la constante V2
Set O = Sheets("b") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'de'finit la dernière ligne éditée DL de la colonne A de l'onglet O
J = 1 'initialise la variable J
For I = 1 To DL 'boucle des lignes 1 à DL
'condition : si...
If O.Cells(I, 7).Value >= O.Cells(I, 5).Value And _
O.Cells(I, 3).Value <= O.Cells(I, 2).Value And _
CDate(O.Cells(I, 2).Value) >= V1 And _
CDate(O.Cells(I, 2).Value) <= V2 And _
O.Cells(I, 12).Value = "RFM" Then
'copie la ligne I de l'onglet O et la colle dans la ligne J de l'onglet "n"
O.Cells(I, 1).EntireRow.Copy Sheets("n").Cells(J, 1)
J = J + 1 'incrémente J
End If 'fin de la condition
Next I 'prochaine ligne de la boucle
Sheets("n").Cells(1, 10).Value = "RFM" 'écrit "RFM"dans la cellule J1 de l'onglet "n"
End Sub
[COLOR=rgb(0, 0, 0)]