Traduire en VBA au moins , au plus

bonjour

pour elaborer un petit code j'aurai besoin d'exprimer ces deux conditions :

" si il existe au moins une cellule de la plage e6:e10 contenant 2 alors ......... "

"si il existe au plus une cellule de la plage e6:e10 contenant 2 alors ......."

sauriez vous comment faire ?

en vous remerciant par avance

Bonsoir,

Sub essai()
Dim Nb%
    Nb = Application.CountIf(Range("e6:e10"), 2) ''' =NB.SI(E6:E10;2)
    If Nb > 0 Then
        If Nb = 1 Then
            MsgBox ("existe " & Nb & " fois")
        End If
        If Nb > 1 Then
            MsgBox ("existe " & Nb & " fois")
        End If
    Else
        MsgBox ("n'existe pas")
    End If
End Sub

Amicalement

Claude

Merci pour pour la rapidité de cette réponse

si j'ai tout compris

Nb = Application.CountIf(Range("e6:e10"), 2)

compte simplement combien de fois 2 apparait dans la plage e6:e10

If Nb > 0 Then
        If Nb = 1 Then

synthetise " au plus "

et

If Nb > 1 Then

" au moins" ?

re,

Oui, tu as bien compris, c'est pas çà que tu voulais ?

Claude

merci est ce que dans ce cas on peut reprendre le code de cette facon ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Nb%
    Nb = Application.CountIf(Range("e6:e10"), 2)

    If Nb <= 1 Then
    MsgBox ("2 apparait au plus  " & Nb & " fois")
    Else

    MsgBox ("2 apparait au moins  " & Nb & " fois")
    End If

    End Sub

puisque le contraire de inferieur ou egale est strictement superieur

Un grand merci pour tes réponses Dubois qui m'ont bien aidé

mon code ne va pas puisque pour la notion "au moins" je n'ai pas Nb=1 d'ecris dans ma deuxieme partie du code

ce que j'ai ecris en seconde partie du code traduit à partir de 1 fois le nbr 2 , merci

re,

oui tu peux écrire comme çà, mais là, tu ne gère pas Nb=0

Claude