guy72
XLDnaute Impliqué
Bonjour,
Je souhaiterais ajouter une case dans le code suivant:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
If [B7] = "Oui" Then
[A10] = [A10] + 1
ElseIf [B7] = "Non" Then
[A16] = [A16] + 1
End If
End If
If Target.Address <> "$A$16" Or Target.Count > 1 Then Exit Sub
If Target = "" Or Target <> 3 Then Exit Sub
Select Case Application.CountIf([B16:B20], "n")
'J'ai changé en [B15:B20] et ajouté Case 6 [B20] = "", et j'ai décalé les
autres [n°] de cellules .
Mais cela ne fonctionne pas.
Case 5
[B20] = ""
Case 4
[B19] = ""
Case 3
[B18] = ""
Case 2
[B17] = ""
Case 1
UserForm1.TextBox7.Value = ""
End Select
End Sub
Merci de votre aide
--
Cordialement
Guy
Je souhaiterais ajouter une case dans le code suivant:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
If [B7] = "Oui" Then
[A10] = [A10] + 1
ElseIf [B7] = "Non" Then
[A16] = [A16] + 1
End If
End If
If Target.Address <> "$A$16" Or Target.Count > 1 Then Exit Sub
If Target = "" Or Target <> 3 Then Exit Sub
Select Case Application.CountIf([B16:B20], "n")
'J'ai changé en [B15:B20] et ajouté Case 6 [B20] = "", et j'ai décalé les
autres [n°] de cellules .
Mais cela ne fonctionne pas.
Case 5
[B20] = ""
Case 4
[B19] = ""
Case 3
[B18] = ""
Case 2
[B17] = ""
Case 1
UserForm1.TextBox7.Value = ""
End Select
End Sub
Merci de votre aide
--
Cordialement
Guy