Débugage inexplicable!

[TheProdigy]

Bonsoir à tous
Mon code ne marche pas quand j'ouvre mon fichier et je clique sur le bouton
il met erreur et le debugage sur la ligne de else:

Private Sub CommandButton1_Click()
If Sheets("mada").Visible = False Then
MADA.Show
Else: Sheets("mada").Select
Unload Me
End If
End Sub

Je voulais vous envoyer le fichier mais sa taille est grande
Merci

 

[Dan]

Re : Débugage inexplicable!

Bonjour,

En effet je ne vois le pb dans cette macro hormis de bien vérifier le nom de ta feuille.

A te lire

 

[Jacques87]

Re : Débugage inexplicable!

Bonsoir Adilrodigy
Salut mon ami Dan,

Comme Dan je ne vois pas de problème évident
Fais comme moi, essaie ceci en tant que macro, en faisant l'appel à partir de la feuille 2 par exemple

Sub essai()
If Sheets("feuil1").Visible = False Then
MsgBox ("feuille non visible")
Else: Sheets("Feuil1").Select
End If
End Sub

à condition, bien sûr, d'avoir une Feuil1
essaie une deuxième fois dans ton projet en remplaçant "Feuil1" par "Mada"

et dis nous ce qu'il se passe dans les deux cas

A+

 

[Dan]

Re : Débugage inexplicable!

Re,

La réponse de Tatiac m'appelle à te demander quelque chose :
MADA.show c'est pour montrer la feuille "mada" qui est cachée ou pour montrer une USF ?

A te lire

 

[Jacques87]

Re : Débugage inexplicable!

Dites donc Dan et Tatiak, auriez vous le don de lire dans les pensées des autres. Une boule de cristal à défaut d'XLD ferait l'affaire
Tout compte fait, en y réfléchissant bien, Tatiak doit être dans le vrai

Bonne soirée à tous les deux

 

[TheProdigy]

Re : Débugage inexplicable!

Bonjour dan bonjour jacques bonjour tatiak,

mada.show est un userform que je veux montrer et non une feuille.
En fait c userform de mot de passe. Vous voyez ce que je voulais dire?
il faut ajouter qu'à l'ouverture toutes les feuilles sont cachées

 

[Jam]

Re : Débugage inexplicable!

Salut à tous,

J'ai une petite question sur ton code concernant le userform:
- Tu cherches à l'afficher dans la première partie du IF mais tu le décharges dans la seconde partie (après le ELSE). L'aurais-tu déjà affiché auparavant ? En fait la structure ne me paraît pas très cohérente. D'autre part, si ton userform est lancé avant le ELSE, cela est certainement la cause du plantage puisque le userform a le focus (mode modal par défaut).

L'aide de M$ indique : "Un objet UserForm est toujours modal, il en résulte que l'utilisateur doit toujours répondre avant d'utiliser une autre partie de l'application. Aucun autre code ne s'exécutera tant que l'objet UserForm ne sera pas masqué ou déchargé. Bien que les autres feuilles de l'application soient désactivées pendant l'affichage d'un objet UserForm, les autres applications ne le sont pas."

- Ton CommandButton il est sur une feuille ou dans un userform et tu cherches à en ouvrir un autre (celui du login et pwd) - idem que précédement.

- Dernière chose, tu peux coder de cette façon là (à réarranger en fonction de ce que je t'ai indiqué avant 😉 ):

Private Sub CommandButton1_Click()
With Sheets("mada")
If not .Visible Then
   MADA.Show
Else
   .Select
Unload Me
End If
End With
End Sub

Bon courage

 

[TheProdigy]

Re : Débugage inexplicable!

Wao Jam! C'est extra! parfaitement ce que je voulais 🙂 🙂
Que dire des magiciens de ce forum. Je vous dois beaucoup 🙁

 

[Dan]

Re : Débugage inexplicable!

re,

adilprodigy, est-ce que tu peux expliquer ce qui va maintenant car la macro telle que proposée par JAM fonctionne comme celle que tu avais mise avant.
A te lire

 

[TheProdigy]

Re : Débugage inexplicable!

En fait Dan

Ce que je voulais c'est faire appel à userform mada si la feuil est masque dans le but de permettre à l'utilisateur de saisir le mot de passe mais une fois saisi cad afficher la feuil, le bouton va nous permettre de seulement la selectionner et ne plus demander le mot de passe puisque elle est déja affichée.
En fait y avait une confusion entre le userform et la fauil car ils portent le même nom. J'aurai du l mentionner, d'abord c la question que t'avais posée

Merci Dan et à tous les membres pour vos implications

 

[Dan]

Re : Débugage inexplicable!

OK.
Merci d'être venu donner cette explication.

A bientôt