Bonsoir amis(ies) adeptent du Forum
Un bout de macro tirer de John Walkenbach un peu modifier
Sub Tester()
Dim F1 As String, F2 As String, Rep As Boolean
F1 = "=NB.SI(B1:B5,B1)>0"
F2 = Application.ConvertFormula(F1, xlA1, xlR1C1, , Range("A1"))
F1 = Application.ConvertFormula(F2, xlR1C1, xlA1, , Range("A1"))
Range("A1").FormulaLocal = F1
Rep = Evaluate(Range("A1").Value)
End Sub
Comment Forcer le REP = vrai sans cellule intermedaire
pour utiliser une Function()
Si ici A2=1
et
B1=1
B2=2
B3=3
B4=4
B5=5
Merci Mytå