Débugage inexplicable!

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 17 Décembre 2006

• #2

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

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 17 Décembre 2006

• #3

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

Code:

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+

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 17 Décembre 2006

• #4

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

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 17 Décembre 2006

• #5

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

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 18 Décembre 2006

• #6

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

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 18 Décembre 2006

• #7

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."

Cliquez pour agrandir...

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

Code:

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

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 18 Décembre 2006

• #8

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 🙁

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 18 Décembre 2006

• #9

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

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 18 Décembre 2006

• #10

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 18 Décembre 2006

• #11

Re : Débugage inexplicable!

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

A bientôt

 

Vote positif 0 Vote négatif