Discussion :

[pilounet54]

bonjour
es que l'on peu interdire l'affichage de tous les userforms avec un bouton et un autre bouton pour autorise
autorise ne veux pas dire

Code :

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

 show

exemple :j'ai plusieurs userfom qui se declenche sur la selection d'une cellule
si je souhaite ne pas les avoir j'appuie sur un bouton
merci

[Paritec]

Bonjour Pilounet54 le forum
Tu as plusieurs userforms qui s'ouvrent en même temps???
mais quel est donc l'intérêt puisque tu ne pourras pas travailler avec plus qu'un userform.
Je serais curieux de voir ton fichier, si toutes tes demandes sont relatives à ce fichier les diverses sélection et autre, tu dois avoir pris le chemin d'une usine à gaz!!!!
a+
papou

[pilounet54]

bonjour mais j'ai plusieurs userform qui souvre de différente façon
et je souhaite pour plusieurs raisons interdire ou autorisé les userforms
comme un fusible dans une habitation qui interdit ou qui autorise la lumière dans des piéces
c'est un programme pour une association et je fait cela en bénévolat
j'ai le temps ,même si j'avance ligne par ligne ce n'est pas pour autant une usine a gaz!
si tu veux le voir je t'invite chez moi!

[Paritec]

Bonjour Pilounet54 le forum
oui je sais tu as le temps, mais avoir 90 pages de codes dans un fichier excuses moi mais c'est plus une application c'est une usine.
Bref autre point de détail ce qui autorise ou non la lumière c'est l'interrupteur car le fusible lui et un limiteur d'intensité.
Pour tes userforms tu peux toujours mettre .hide
il le masque mais ne le ferme pas
a+
papou

Code :

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

1
2
3
4
5
sub commandbutton_click
userform1.hide
userform2.hide
userform3.show
end sub

[pilounet54]

je cherche quelque chose de plus radical car même si je fait un click off userforms avec le code

Code :

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

Formulaire1.hide

cela ne l'empeche pas de réapparaitre avec ceci :

Code :

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

1
2
3
4
cellule_click = ActiveCell.AddressLocal
        If cellule_click = ("$I$4") Then
         Formulaire1.Show
        End If

salutation patrick

[SfJ5Rpw8]

Bonjour,

pour activer/désactiver un choix une case à coché semble plus indiquée ...

rajoute dans ta feuille une case à cocher issue de la boite à outils contrôles

tu peu si tu le désire renommer celle-ci (zone de saisie en haut à gauche de ta feuille excel..) et remplacer le nom par défaut du style "CheckBox1" par le nom désiré ... ccVue1..

et si cette case est sur la feuille dont le nom visible dans l'éditeur VBE est "feuil1" ..

puis pour ton code:

Code :

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

1
2
3
 (..) If cellule_click = ("$I$4") And CheckBox1 Then
         Formulaire1.Show
        End If (..)