inderdire tous les useranges

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:

---

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

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:)

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!

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:D

Code:

---

1 2 3 4 5

sub commandbutton_click userform1.hide userform2.hide userform3.show end sub

---

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

Code:

---

Formulaire1.hide

---

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

Code:

---

1 2 3 4

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

---

salutation patrick

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:

---

1 2 3

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

---

bonjour

j'ai completement detourner le problème en mettant une condiction sur l'affichage des userforms du style bouton a bascule et tous fonctionne
merci a tous :ccool:
cela reviens à faire ci dessus

bonjour pilounet


il y avais une solution bien plus simple

dans un des modules standard que tu a dans ton fichier tu déclare une variable booleenne du style

public bloque_usf as boolean 'a déclarer en haut de module

ta variable étant public elle est modifiable partout dans le classeur

ensuite dans ta feuille tu ajoute ton bouton

et dans le clic du bouton dans le module de ta feuille

tu met

Code:

---

1 2 3 4 5 6 7

private nombouton_click if bloque_usf =true then bloque_usf =false else bloque_usf =true end if end sub

---

et l'ors de l'appel a l'userform a la place de

Code:

---

userform1.show

---

tu y met la condition

[CODE]if bloque_usf=true then userform1.show CODE]

qu'es que l'on ferait sans eux ? "les patrick" :ccool:

heum heum.....

ouis je sais ...je sais ....:mouarf::mouarf::mouarf::mouarf::mouarf:

dans l'exemple que je t'es donné tu peut ajouter aussi lors du changement d'état de ta variable le changement de couleur du bouton par exemple histoire d'avoir la reponse visuelle

exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

private nombouton_click if bloque_usf =true then bloque_usf =false nombouton.backcolor=vbgreen   else bloque_usf =true nombouton.backcolor=vbred   end if end sub

---

quand c'est vert c'est bon quand c'est rouge c'est pas bon
comme ça avant d'appuyer sur ton bouton tu sais si c'est la peine ou pas
ou inversement a toi de decider comment utiliser ta variable

au plaisir