Discussion :

[Chaturanger]

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.

[Invité]

Bonjour,

Pourquoi ne pas utiliser directement une formule ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sinon, dans le module de l'onglet Feuil1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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