Re : copies de ligne et marquage sous condition
ub Export()
Dim Plage As Range, Dte As Date, i As Long, NF As String, Ligne As Long
With ThisWorkbook.Worksheets("pronos_journalier")
Dte = CDate(.Range("Dte").Value)
Set Plage = .Range("Debut").CurrentRegion
For i = 1 To Plage.Rows.Count
NF = Format(Plage.Range("A" & i).Value, "00")
If FeuilExist(NF) Then
Ligne = Application.Match(CLng(Dte), ThisWorkbook.Worksheets(NF).Range("C1:C10000"), 0)
ThisWorkbook.Worksheets(NF).Range("D" & Ligne & ":K" & Ligne).Value = .Range("D" & i + .Range("Debut").Row - 1 & ":K" & i + .Range("Debut").Row - 1).Value
End If
Next i
End With
End Sub
Function FeuilExist(Nomfeuil As String) As Boolean
Dim z As String
FeuilExist = True
On Error GoTo err1
z = ThisWorkbook.Worksheets(Nomfeuil).Name
On Error GoTo 0
Exit Function
err1:
On Error GoTo 0
FeuilExist = False
End Function
Sub Vider()
Dim i As Long, NF As String
For i = 1 To 100
NF = Format(i, "00")
If FeuilExist(NF) Then Sheets(NF).Range("D7:K37").ClearContents
Next i
End Sub
Je la mets comme cela en bas de ta macro ?
et je fais comment après pour vider ?
j'ai vider manuellement et voici ce que cela me dit
vois sur le fichier ci-joint ;