3tata6111165
XLDnaute Nouveau
bonjour a tous
ce code fonctionne sauf avec la variable v3 je pense qu'il manque un C....(v3) mais je ne trouve pas
merci d'avance
version execl 2007
' calcul OTD
' ligne livre a lheure et complete
Sub lgllivcomalhparcl()
Sheets("b").Select
var11 = 0 'var11=nb ligne non liver
i = 1
j = 1
v1 = "01/01/2019"
v2 = "31/07/2019"
v3 = "RFM"
With Sheets("b")
Do While Cells(i, 1).Value <> ""
If .Cells(i, 7).Value >= .Cells(i, 5).Value And .Cells(i, 3).Value <= .Cells(i, 2).Value And .Cells(i, 2).Value >= CDate(v1) And .Cells(i, 2).Value <= CDate(v2) And .Cells(i, 12).Value = v3 Then
Sheets("b").Cells(i, 1).EntireRow.Copy _
Destination:=Sheets("n").Cells(j, 1)
var11 = var11 + 1
j = j + 1
End If
i = i + 1
j = j
Loop
End With
Sheets("n").Cells(1, 10).Value = v3 'CStr(UserForm1.ListBox1.Text)
End Sub
ce code fonctionne sauf avec la variable v3 je pense qu'il manque un C....(v3) mais je ne trouve pas
merci d'avance
version execl 2007
' calcul OTD
' ligne livre a lheure et complete
Sub lgllivcomalhparcl()
Sheets("b").Select
var11 = 0 'var11=nb ligne non liver
i = 1
j = 1
v1 = "01/01/2019"
v2 = "31/07/2019"
v3 = "RFM"
With Sheets("b")
Do While Cells(i, 1).Value <> ""
If .Cells(i, 7).Value >= .Cells(i, 5).Value And .Cells(i, 3).Value <= .Cells(i, 2).Value And .Cells(i, 2).Value >= CDate(v1) And .Cells(i, 2).Value <= CDate(v2) And .Cells(i, 12).Value = v3 Then
Sheets("b").Cells(i, 1).EntireRow.Copy _
Destination:=Sheets("n").Cells(j, 1)
var11 = var11 + 1
j = j + 1
End If
i = i + 1
j = j
Loop
End With
Sheets("n").Cells(1, 10).Value = v3 'CStr(UserForm1.ListBox1.Text)
End Sub