Ajouter une case dans un code

[guy72]

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

 

[Pierrot93]

Re : Ajouter une case dans un code

Bonjour Guy;

Mais cela ne fonctionne pas.

cela veut dire quoi ? message d'erreur ou pas le résultat attendu... sachant que nous sommes dans de l'événementielle, ton code boucle déjà sur lui même, pas pu tester mais sûr qu'il serait bon de désactiver les procédures pendant l'exécution... essaye ceci :

Application.EnableEvents = False
'ton code
Application.EnableEvents = True

A noter, utilise la balise code, celui ci sera plus facile et agréable à lire.

bon après midi
@+

Edition : bonjour masterdisco

 

[guy72]

Re : Ajouter une case dans un code

Bonjour,
Merci de vous intéresser à mon affaire.
Voici un fichier en étude, car je débute dans le UserForm.

 

[Pierrot93]

Re : Ajouter une case dans un code

Re,

pas tout testé de ton fichier, mais perso j'aurais plutôt placé le code dans la procédure événementielle :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'ton code
Application.EnableEvents = True
End Sub

@+

 

[guy72]

Re : Ajouter une case dans un code

Re
Non, cela empêche les boutons de se déverrouiller.
Cordialement
Guy