1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Function DoublCellVraiFaux(cel1 As Range, valeur As String) As Boolean
Dim tableau, x As Long
'Application.Volatile
valeur = Trim(valeur)
DoublCellVraiFaux = False
tableau = Application.Transpose(Range(cel1, cel1.Offset(Rows.Count - cel1.Row).End(xlUp)))
'****************************************************************
'pour les 1 ou 2 caractere a droite
tableau = Application.Transpose(Range(cel1, cel1.End(xlDown)))
x = UBound(Filter(tableau, Left(valeur, Len(valeur) - 1), True))
x = x + UBound(Filter(tableau, Left(valeur, Len(valeur) - 2), True))
'****************************************************************
'pour les 1 ou 2 caractere a gauche
tableau = Application.Transpose(Range(cel1, cel1.Offset(Rows.Count - cel1.Row).End(xlUp)))
x = x + UBound(Filter(tableau, Right(valeur, Len(valeur) - 1), True))
x = x + UBound(Filter(tableau, Right(valeur, Len(valeur) - 2), True))
'****************************************************************
Debug.Print valeur & " :! " & x
DoublCellVraiFaux = x > 0
End Function |
Partager