Re,
et en faisant la même procédure en faisant appel avec Call
exemple faussé ci-dessous pas très pratique, il doit y avoir 100000 fois mieux:
Private Sub Cmb_Echeance_Click()
DernCol = Cells(6, Columns.Count).End(xlToLeft).Column
DerLig = Range("C" & Rows.Count).End(xlUp).Row
Set Plage_Date = Range(Cells(6, 8), Cells(6, DernCol))
For n = 7 To DerLig
'recherche en ligne
Set Date_Ok = Plage_Date.Find(Cells(n, 3), , xlValues, xlWhole, , , False)
If Not Date_Ok Is Nothing Then
Col1RAZ = Date_Ok.Column + 1
Range(Cells(n, Col1RAZ), Cells(n, DernCol)) = 0
End If
Next n
Set Plage_Date = Nothing
Call Cmb_Echeance1 ' on appel Call ==> private sub Cmb_Echeance1() <==
End Sub
' a rectifier ci-dessous
Private Sub Cmb_Echeance1()
DernCol = Cells(6, Columns.Count).End(xlToLeft).Column
DerLig = Range("C" & Rows.Count).End(xlUp).Row
Set Plage_Date = Range(Cells(6, 8), Cells(6, DernCol))
For o = 7 To DerLig
'recherche en ligne
Set Date_Ok = Plage_Date.Find(Cells(o, 3), , xlValues, xlWhole, , , False)
If Not Date_Ok Is Nothing Then
Col1RAZ = Date_Ok.Column + 1
Range(Cells(o, Col1RAZ), Cells(o, DernCol)) = 0
End If
Next o
Set Plage_Date = Nothing
End Sub