Discussion :

[Nico451]

Bonjour,

J'ai un bogue et je ne sais pas d'où il vient car je passe par le même chemin dans mon code.

J'explique :

A l'ouverture d'Excel, je sélection grâce à un UserForm le dossier dans lequel je veux travailler (Par exemple le premier).
Une fois sélectionné le nom du dossier arrive dans mon second UserForm, une question est posé quand je clique sur Non, il ne se passe rien c'est normal.
Le reste du code pas de problème
Par contre si je sélectionne mon second dossier, la question est posé et je clique non et le bouton apparait et ça ne devrait pas.

J'ai mis Q car à la sortie de Mon UserForm il me reposé la question. Je n'ai pas le choix de mettre change, car c'est une information que je mets dedans, si vous avait une autre idée, dit moi.

Si quelqu'un à une idée je suis preneur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 Public Q As Integer
Private Sub TextBox21_Change()
 
If Q <> "1" Then
 
        If MsgBox("Nouveau dossier à créer?", vbYesNo + vbQuestion + vbDefaultButton2, "Dossier") = vbYes Then
            CommandButton6.Visible = True
            Q = "1"
        Else
            CommandButton6.Visible = False
            Q = "1"
        End If
    End If
 
End Sub

Voici le code qui fait apparaitre le bouton, je n'ai pas mis le reste du code, dit moi si il vous faut autre choses pour m'aider.

Merci

[Pierre Fauconnier]

Salut.

Je pense que ce n'est pas opportun de gérer cela dans l'événement Change du textbox, car cet événement est déclenché à chaque modification du textbox...

Pour ce qui est de rendre le bouton visible ou invisible, vu que cette propriété est booléenne, tu peux faire plus court

Code :

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

commandbutton6.visible = (MsgBox("Nouveau dossier à créer?", vbYesNo + vbQuestion + vbDefaultButton2, "Dossier") = vbYes)

A mon avis, tu devrais expliquer en français (sans jargon vba ou excel) ce que tu souhaites réaliser et donner une copie d'écran de ton userform. Comme dit dans une autre discussion, nomme tes contrôles avec des noms parlants, sinon, tu ne vas jamais t'y retrouver.

[Nico451]

Salut,

Merci Pierre.

Il n'y a pas que ce petit bout de code dans le change, mais je ne vois pas quoi mettre comme évènement pour lancer le code qu'il y a dedans comme je viens mettre le nom du dossier dans le TextBox.

Et il faut absolument que cette question soit posé à ce moment là. C'est pour ça que j'ai mis ma variable Q en public. Pour éviter de repasser par cette question quand je sort du mon Userform et que j'efface tous.

[marot_r]

Bonjour.

As-tu essayé avec l'événement AfterUpdate ?

Et tu n'as pas besoin de déclarer ta variable public si tu ne t'en sers que dans ce module.
Un simple Dim suffit. Public Ou Global c'est quand tu veux que ta variable soit visible de tous les modules de ton appli, pas seulement celui où elle est déclarée.

A+