Discussion :

[stephadm]

Bonjour au forum,

Depuis un UserForm, je souhaite ouvrir un autre UserForm et activer le bouton nouveau pour creer une nouvelle fiche.

CheckBox1 (Vu pour cochée, RDV pour non cochée)

Quand je clique sur bouton "Enregistrer" de l'Userform1 et que la CheckBox1 est cochée, les données sont enregistrées dans classeur "Feuil23" puis je reviens au classeur "Feuil1" mais si la CheckBox1 est décochée alors les données sont aussi enregistrées dans classeur "Feuil23", l'UserForm1 se ferme et l'UserForm2 s'ouvre avec la création d'une nouvelle fiche pour RDV (comme si j'avais appuyer sur le bouton "Nouveau")

Voici ce que j'ai fait

Code :

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

1
2
3
4
5
UserForm1.Hide
If CheckBox1 = False Then
UserForm2.Show
UserForm2.CommandButton10_Click
End If

L'UserForm1 se ferme et l'UserForm2 s'ouvre mais après j'ai une erreur sur

Code :

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

UserForm2.CommandButton10_Click

Comment faire ?

Merci pour votre aide

Stephanie

[fring]

Bonjour,

Le code contenu dans l'évènement Click du Bouton10, place le dans un module standard

Code :

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

1
2
3
4
5
Private Sub MaMacro()
    'code...
    'code...
    'code...
End Sub

pour le UserForm2 ça donne

Code :

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

1
2
3
Private Sub CommandButton10_Click()
    MaMacro
End Sub

et pour le UserForm1

Code :

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

1
2
3
4
5
UserForm1.Hide
If CheckBox1 = False Then
    UserForm2.Show
    MaMacro
End If

[stephadm]

bonjour Fring et au forum,

Merci Fring pour votre réponse, j'ai essayé ceci

Code :

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

1
2
3
4
5
UserForm1.Hide
If CheckBox1 = False Then
    UserForm2.Show
    NouvelleFiche
End If

mais ça bug sur "NouvelleFiche" soulignée en jaune

Essais avec

Code :

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

1
2
3
4
5
UserForm1.Hide
If CheckBox1 = False Then
    UserForm2.Show
    UserForm2.NouvelleFiche
End If

Pareil même erreur

Une idée peut-être ?

Merci

Stephanie

[fring]

Tu as placé où la macro "NouvelleFiche" ?

[stephadm]

bonjour Fring et au forum,

La macro est placee dans l'UseForm2 ou se situe le bouton. J'ai vérifie en appuyant sur le bouton CommandButton10_Click() et ça fonctionne mais pas depuis lancement UserForm1

Merci

Stephanie

[fring]

Le code contenu dans l'évènement Click du Bouton10, place le dans un module standard

[stephadm]

bonjour Fring et au forum,

Le problème est que si je modifie comme vous me le conseillez, je suis obligée de modifier toutes les autres macros et risque de créer d'autres erreurs.

Y-a pas d'autre moyen ?

Merci

Stephanie

[fring]

la procédure "Private Sub CommandButton10_Click()", met la en Public

Code :

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

Public Sub CommandButton10_Click()

tu pourras ensuite l'appeler depuis une autre procédure

Code :

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

UserForm2.CommandButton10_Click

[stephadm]

bonjour Fring et au forum,

Fring, là je dis Respect,

c'était si simple que je n'y avait pas pensé !

Merci

Stephanie