Sortir d'un SUB pour exécuter une procédure

Version imprimable

21/03/2019, 09h09
ncl98

1 pièce(s) jointe(s)

Sortir d'un SUB pour exécuter une procédure

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.Pièce jointe 459868

Bonjour Ncl, bonjour le forum,

Essaie comme ça :

Code:

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

21/03/2019, 10h10
ncl98

RE Sortir d'un SUB pour exécuter une procédure

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