Vérifier valeur dans range

Bonjour

Dans le range (B1:I1), chaque cellule contient un chiffre ou est vide.

Le code doit inscrire 1 dans la cellule A1 si ce chiffre n'est présent dans aucune cellule du range.
Le code ne fait rien s'il trouve le 1 dans le range.

J'ai essayé avec 2 méthodes ("for each cell" et "find" mais je n'y arrive pas. Je suis sous Excel 2016.

J'ai joint ma feuille excel.

Merci de m'aider.

Citation:

---

Envoyé par Chaturanger

---

Bonjour,

Pourquoi ne pas utiliser directement une formule ?

Code:

---

=SI(NB.SI(B1:I1;"=1");"";1)

---

Sinon, dans le module de l'onglet Feuil1 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_Change(ByVal Target As Range)     If Target.Count > 1 Then Exit Sub   If Not Intersect(Target, Range("B1:I1")) Is Nothing Then   If WorksheetFunction.CountIf(Range("B1:I1"), "=1") > 0 Then Range("A1") = "" Else Range("A1") = 1 End If   End If   End Sub

---

Bonjour Eric,

La demande précisant "Le code ne fait rien s'il trouve le 1 dans le range.", je me permets une petite rectification :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("B1:I1")) Is Nothing Then Exit Sub If WorksheetFunction.CountIf(Range("B1:I1"), "=1") = 0 Then Range("A1").Value = 1 End Sub

---