Function GetColonneOfDate(c As Long)
GetColonneOfDate = Application.IfError(Application.Match(c, [7:7], 0), "")
End Function
Sub date_col()
[C10] = [7:7].Find([B10], LookIn:=xlFormulas).Column
End Sub
Sub date_col2()
[C10] = Application.Match([B10], [7:7], 0)
End Sub
mais l'autre probleme est que les cellules en ligne 7 sont des formules est donc le find ne marche pas
Plus rapide et sans problème...Perso j'utiliserais plutôt Application.Match, beaucoup plus rapide :
Code:Sub date_col2() [C10] = Application.Match([B10], [7:7], 0) End Sub
Function GetColonneOfDate(c As Long)
GetColonneOfDate = Application.IfError(Application.Match(c, [7:7], 0), "")
End Function