Discussion :

[ncl98]

Bonjour,
J'ai été chargé de reprendre l'élaboration d'un formulaire sur une feuille EXCEL sur laquelle sont intégrés quelques contrôles active X.
Un contrôle OptionButton affiche une liste déroulante (validation de données) dont le choix (chiffre de 1 à 4) affiche le nombre d'exemplaire correspondant.
Or, le déclencheur étant le bouton d'option, les exemplaires supplémentaires ne s'affichent qu'après une nouvelle action sur ce même bouton d'option.
Comment sortir du SUB pour rendre la sous-procédure indépendante ?
Merci pour votre aide.OptionButton.xlsm

[Thautheme]

Bonjour Ncl, bonjour le forum,

Essaie comme ça :

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
18
19
Option Explicit
 
Private Sub OptionButton1_Change()
  If OptionButton1.Value = True Then
      ActiveSheet.Unprotect Password:="test"
      Range("A7:A11").EntireRow.Hidden = False
      'Call Afficher
  Else
      ActiveSheet.Unprotect Password:="test"
      Range("A7:A32").EntireRow.Hidden = True
      Range("C15").Select
      ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:= _
        False
  End If
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$9" Or Target.Address = "$D$9" Then Module1.Afficher
End Sub

[ncl98]

Merci Thautheme,
Ca fonctionne. Il ne reste plus qu'à trouver comment modifier le choix.
A bientôt (peut-être ?)