Re bonjour,
Je crois que je me suis mal expliqué. Je vais essayer de le faire mieux.
J'ai Un UF dénommé UserForm1 dans lequel j'ai le choix entre trois boutons
radio: 1= devis; 2 = facture et 3 compta.
Si je clique sur le 1 je souhaite que s'ouvre sur UF1 un deuxième UF (UF2)
Si je clique sur le 2 je souhaite que s'ouvre aussi UF2 .
Mais suivant que j'ai cliqué sur Devis ou Facture, je UF2 ne dout pas
comporter les même choses.Donc voici une partie des Procédures.
UF1 :
Private Sub OptionButton1_Click()
VariableTest
UserForm2.Label1.Caption = "DEVIS"
UserForm2.Show
End Sub
Private Sub OptionButton2_Click()
UserForm2.Label1.Caption = "FACTURE"
UserForm2.Show
End Sub
Sur un module normal :
Public Sub VariableTest()
Dim MaVar As String
MaVar = "DEVIS"
End Sub
UF2 :
Private Sub UserForm_Initialize()
If MaVar = "DEVIS" Then
Frame1.Visible = True
Else
Frame1.Visible = False
End If
End Sub
Sur l'exemple je ne parle que de Frame1, mais j'ai d'autres choses (ça je
sais faire)
Mais problème, Que je choisisse Devis ou facture. J'ai toujours:
Frame1.Visible = True qui sort
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir, Si tu le souhaites, mets un brouillon de ton classeur sur http://www.cijoint.fr/ -- Salutations JJ
"Patrick Catarsi" a écrit dans le message de news: C748564F.E34%
Re bonjour, Je crois que je me suis mal expliqué. Je vais essayer de le faire mieux. J'ai Un UF dénommé UserForm1 dans lequel j'ai le choix entre trois boutons radio: 1= devis; 2 = facture et 3 compta. Si je clique sur le 1 je souhaite que s'ouvre sur UF1 un deuxième UF (UF2) Si je clique sur le 2 je souhaite que s'ouvre aussi UF2 . Mais suivant que j'ai cliqué sur Devis ou Facture, je UF2 ne dout pas comporter les même choses.Donc voici une partie des Procédures. UF1 : Private Sub OptionButton1_Click() VariableTest UserForm2.Label1.Caption = "DEVIS" UserForm2.Show End Sub
Private Sub OptionButton2_Click() UserForm2.Label1.Caption = "FACTURE" UserForm2.Show End Sub
Sur un module normal : Public Sub VariableTest() Dim MaVar As String MaVar = "DEVIS" End Sub
UF2 : Private Sub UserForm_Initialize() If MaVar = "DEVIS" Then Frame1.Visible = True Else Frame1.Visible = False End If End Sub
Sur l'exemple je ne parle que de Frame1, mais j'ai d'autres choses (ça je sais faire) Mais problème, Que je choisisse Devis ou facture. J'ai toujours: Frame1.Visible = True qui sort
Si quelqu'un sait. Merci d'avance Patrick
Bonsoir,
Si tu le souhaites, mets un brouillon de ton classeur sur
http://www.cijoint.fr/
--
Salutations
JJ
"Patrick Catarsi" <patrick-catarsi@orange.fr> a écrit dans le message de
news: C748564F.E34%patrick-catarsi@orange.fr...
Re bonjour,
Je crois que je me suis mal expliqué. Je vais essayer de le faire mieux.
J'ai Un UF dénommé UserForm1 dans lequel j'ai le choix entre trois boutons
radio: 1= devis; 2 = facture et 3 compta.
Si je clique sur le 1 je souhaite que s'ouvre sur UF1 un deuxième UF (UF2)
Si je clique sur le 2 je souhaite que s'ouvre aussi UF2 .
Mais suivant que j'ai cliqué sur Devis ou Facture, je UF2 ne dout pas
comporter les même choses.Donc voici une partie des Procédures.
UF1 :
Private Sub OptionButton1_Click()
VariableTest
UserForm2.Label1.Caption = "DEVIS"
UserForm2.Show
End Sub
Private Sub OptionButton2_Click()
UserForm2.Label1.Caption = "FACTURE"
UserForm2.Show
End Sub
Sur un module normal :
Public Sub VariableTest()
Dim MaVar As String
MaVar = "DEVIS"
End Sub
UF2 :
Private Sub UserForm_Initialize()
If MaVar = "DEVIS" Then
Frame1.Visible = True
Else
Frame1.Visible = False
End If
End Sub
Sur l'exemple je ne parle que de Frame1, mais j'ai d'autres choses (ça je
sais faire)
Mais problème, Que je choisisse Devis ou facture. J'ai toujours:
Frame1.Visible = True qui sort
Bonsoir, Si tu le souhaites, mets un brouillon de ton classeur sur http://www.cijoint.fr/ -- Salutations JJ
"Patrick Catarsi" a écrit dans le message de news: C748564F.E34%
Re bonjour, Je crois que je me suis mal expliqué. Je vais essayer de le faire mieux. J'ai Un UF dénommé UserForm1 dans lequel j'ai le choix entre trois boutons radio: 1= devis; 2 = facture et 3 compta. Si je clique sur le 1 je souhaite que s'ouvre sur UF1 un deuxième UF (UF2) Si je clique sur le 2 je souhaite que s'ouvre aussi UF2 . Mais suivant que j'ai cliqué sur Devis ou Facture, je UF2 ne dout pas comporter les même choses.Donc voici une partie des Procédures. UF1 : Private Sub OptionButton1_Click() VariableTest UserForm2.Label1.Caption = "DEVIS" UserForm2.Show End Sub
Private Sub OptionButton2_Click() UserForm2.Label1.Caption = "FACTURE" UserForm2.Show End Sub
Sur un module normal : Public Sub VariableTest() Dim MaVar As String MaVar = "DEVIS" End Sub
UF2 : Private Sub UserForm_Initialize() If MaVar = "DEVIS" Then Frame1.Visible = True Else Frame1.Visible = False End If End Sub
Sur l'exemple je ne parle que de Frame1, mais j'ai d'autres choses (ça je sais faire) Mais problème, Que je choisisse Devis ou facture. J'ai toujours: Frame1.Visible = True qui sort
Si quelqu'un sait. Merci d'avance Patrick
Patrick Catarsi
Ça y est, j'ai trouvé la solution à mon problème. J'écrivais " Public MaVar As String" dans une procédure, alors que cela doit être en début de module
Public MaVar As String _____________________________________________________________ Sub DevisProc() MaVar = "DEVIS" End Sub Sub FactProc() MaVar = "FACTURE" End Sub
Merci et à bientôt Patrick
Le 11/12/09 20:04, dans C748564F.E34%, « Patrick Catarsi » a écrit :
Re bonjour, Je crois que je me suis mal expliqué. Je vais essayer de le faire mieux. J'ai Un UF dénommé UserForm1 dans lequel j'ai le choix entre trois boutons radio: 1= devis; 2 = facture et 3 compta. Si je clique sur le 1 je souhaite que s'ouvre sur UF1 un deuxième UF (UF2) Si je clique sur le 2 je souhaite que s'ouvre aussi UF2 . Mais suivant que j'ai cliqué sur Devis ou Facture, je UF2 ne dout pas comporter les même choses.Donc voici une partie des Procédures. UF1 : Private Sub OptionButton1_Click() VariableTest UserForm2.Label1.Caption = "DEVIS" UserForm2.Show End Sub
Private Sub OptionButton2_Click() UserForm2.Label1.Caption = "FACTURE" UserForm2.Show End Sub
Sur un module normal : Public Sub VariableTest() Dim MaVar As String MaVar = "DEVIS" End Sub
UF2 : Private Sub UserForm_Initialize() If MaVar = "DEVIS" Then Frame1.Visible = True Else Frame1.Visible = False End If End Sub
Sur l'exemple je ne parle que de Frame1, mais j'ai d'autres choses (ça je sais faire) Mais problème, Que je choisisse Devis ou facture. J'ai toujours: Frame1.Visible = True qui sort
Si quelqu'un sait. Merci d'avance Patrick
Ça y est, j'ai trouvé la solution à mon problème.
J'écrivais " Public MaVar As String" dans une procédure, alors que cela doit
être en début de module
Public MaVar As String
_____________________________________________________________
Sub DevisProc()
MaVar = "DEVIS"
End Sub
Sub FactProc()
MaVar = "FACTURE"
End Sub
Merci et à bientôt
Patrick
Le 11/12/09 20:04, dans C748564F.E34%patrick-catarsi@orange.fr, « Patrick
Catarsi » <patrick-catarsi@orange.fr> a écrit :
Re bonjour,
Je crois que je me suis mal expliqué. Je vais essayer de le faire mieux.
J'ai Un UF dénommé UserForm1 dans lequel j'ai le choix entre trois boutons
radio: 1= devis; 2 = facture et 3 compta.
Si je clique sur le 1 je souhaite que s'ouvre sur UF1 un deuxième UF (UF2)
Si je clique sur le 2 je souhaite que s'ouvre aussi UF2 .
Mais suivant que j'ai cliqué sur Devis ou Facture, je UF2 ne dout pas
comporter les même choses.Donc voici une partie des Procédures.
UF1 :
Private Sub OptionButton1_Click()
VariableTest
UserForm2.Label1.Caption = "DEVIS"
UserForm2.Show
End Sub
Private Sub OptionButton2_Click()
UserForm2.Label1.Caption = "FACTURE"
UserForm2.Show
End Sub
Sur un module normal :
Public Sub VariableTest()
Dim MaVar As String
MaVar = "DEVIS"
End Sub
UF2 :
Private Sub UserForm_Initialize()
If MaVar = "DEVIS" Then
Frame1.Visible = True
Else
Frame1.Visible = False
End If
End Sub
Sur l'exemple je ne parle que de Frame1, mais j'ai d'autres choses (ça je
sais faire)
Mais problème, Que je choisisse Devis ou facture. J'ai toujours:
Frame1.Visible = True qui sort
Ça y est, j'ai trouvé la solution à mon problème. J'écrivais " Public MaVar As String" dans une procédure, alors que cela doit être en début de module
Public MaVar As String _____________________________________________________________ Sub DevisProc() MaVar = "DEVIS" End Sub Sub FactProc() MaVar = "FACTURE" End Sub
Merci et à bientôt Patrick
Le 11/12/09 20:04, dans C748564F.E34%, « Patrick Catarsi » a écrit :
Re bonjour, Je crois que je me suis mal expliqué. Je vais essayer de le faire mieux. J'ai Un UF dénommé UserForm1 dans lequel j'ai le choix entre trois boutons radio: 1= devis; 2 = facture et 3 compta. Si je clique sur le 1 je souhaite que s'ouvre sur UF1 un deuxième UF (UF2) Si je clique sur le 2 je souhaite que s'ouvre aussi UF2 . Mais suivant que j'ai cliqué sur Devis ou Facture, je UF2 ne dout pas comporter les même choses.Donc voici une partie des Procédures. UF1 : Private Sub OptionButton1_Click() VariableTest UserForm2.Label1.Caption = "DEVIS" UserForm2.Show End Sub
Private Sub OptionButton2_Click() UserForm2.Label1.Caption = "FACTURE" UserForm2.Show End Sub
Sur un module normal : Public Sub VariableTest() Dim MaVar As String MaVar = "DEVIS" End Sub
UF2 : Private Sub UserForm_Initialize() If MaVar = "DEVIS" Then Frame1.Visible = True Else Frame1.Visible = False End If End Sub
Sur l'exemple je ne parle que de Frame1, mais j'ai d'autres choses (ça je sais faire) Mais problème, Que je choisisse Devis ou facture. J'ai toujours: Frame1.Visible = True qui sort
Si quelqu'un sait. Merci d'avance Patrick
Fredo P.
Eh voila j'arrive trop tard!:o-))) Fredo P.
"Patrick Catarsi" a écrit dans le message de news: C748FFF1.E4A%
Ça y est, j'ai trouvé la solution à mon problème. J'écrivais " Public MaVar As String" dans une procédure, alors que cela doit être en début de module
Public MaVar As String _____________________________________________________________ Sub DevisProc() MaVar = "DEVIS" End Sub Sub FactProc() MaVar = "FACTURE" End Sub
Merci et à bientôt Patrick
Le 11/12/09 20:04, dans C748564F.E34%, « Patrick Catarsi » a écrit :
Re bonjour, Je crois que je me suis mal expliqué. Je vais essayer de le faire mieux. J'ai Un UF dénommé UserForm1 dans lequel j'ai le choix entre trois boutons radio: 1= devis; 2 = facture et 3 compta. Si je clique sur le 1 je souhaite que s'ouvre sur UF1 un deuxième UF (UF2) Si je clique sur le 2 je souhaite que s'ouvre aussi UF2 . Mais suivant que j'ai cliqué sur Devis ou Facture, je UF2 ne dout pas comporter les même choses.Donc voici une partie des Procédures. UF1 : Private Sub OptionButton1_Click() VariableTest UserForm2.Label1.Caption = "DEVIS" UserForm2.Show End Sub
Private Sub OptionButton2_Click() UserForm2.Label1.Caption = "FACTURE" UserForm2.Show End Sub
Sur un module normal : Public Sub VariableTest() Dim MaVar As String MaVar = "DEVIS" End Sub
UF2 : Private Sub UserForm_Initialize() If MaVar = "DEVIS" Then Frame1.Visible = True Else Frame1.Visible = False End If End Sub
Sur l'exemple je ne parle que de Frame1, mais j'ai d'autres choses (ça je sais faire) Mais problème, Que je choisisse Devis ou facture. J'ai toujours: Frame1.Visible = True qui sort
Si quelqu'un sait. Merci d'avance Patrick
Eh voila j'arrive trop tard!:o-)))
Fredo P.
"Patrick Catarsi" <patrick-catarsi@orange.fr> a écrit dans le message de
news: C748FFF1.E4A%patrick-catarsi@orange.fr...
Ça y est, j'ai trouvé la solution à mon problème.
J'écrivais " Public MaVar As String" dans une procédure, alors que cela
doit
être en début de module
Public MaVar As String
_____________________________________________________________
Sub DevisProc()
MaVar = "DEVIS"
End Sub
Sub FactProc()
MaVar = "FACTURE"
End Sub
Merci et à bientôt
Patrick
Le 11/12/09 20:04, dans C748564F.E34%patrick-catarsi@orange.fr, « Patrick
Catarsi » <patrick-catarsi@orange.fr> a écrit :
Re bonjour,
Je crois que je me suis mal expliqué. Je vais essayer de le faire mieux.
J'ai Un UF dénommé UserForm1 dans lequel j'ai le choix entre trois
boutons
radio: 1= devis; 2 = facture et 3 compta.
Si je clique sur le 1 je souhaite que s'ouvre sur UF1 un deuxième UF
(UF2)
Si je clique sur le 2 je souhaite que s'ouvre aussi UF2 .
Mais suivant que j'ai cliqué sur Devis ou Facture, je UF2 ne dout pas
comporter les même choses.Donc voici une partie des Procédures.
UF1 :
Private Sub OptionButton1_Click()
VariableTest
UserForm2.Label1.Caption = "DEVIS"
UserForm2.Show
End Sub
Private Sub OptionButton2_Click()
UserForm2.Label1.Caption = "FACTURE"
UserForm2.Show
End Sub
Sur un module normal :
Public Sub VariableTest()
Dim MaVar As String
MaVar = "DEVIS"
End Sub
UF2 :
Private Sub UserForm_Initialize()
If MaVar = "DEVIS" Then
Frame1.Visible = True
Else
Frame1.Visible = False
End If
End Sub
Sur l'exemple je ne parle que de Frame1, mais j'ai d'autres choses (ça je
sais faire)
Mais problème, Que je choisisse Devis ou facture. J'ai toujours:
Frame1.Visible = True qui sort
"Patrick Catarsi" a écrit dans le message de news: C748FFF1.E4A%
Ça y est, j'ai trouvé la solution à mon problème. J'écrivais " Public MaVar As String" dans une procédure, alors que cela doit être en début de module
Public MaVar As String _____________________________________________________________ Sub DevisProc() MaVar = "DEVIS" End Sub Sub FactProc() MaVar = "FACTURE" End Sub
Merci et à bientôt Patrick
Le 11/12/09 20:04, dans C748564F.E34%, « Patrick Catarsi » a écrit :
Re bonjour, Je crois que je me suis mal expliqué. Je vais essayer de le faire mieux. J'ai Un UF dénommé UserForm1 dans lequel j'ai le choix entre trois boutons radio: 1= devis; 2 = facture et 3 compta. Si je clique sur le 1 je souhaite que s'ouvre sur UF1 un deuxième UF (UF2) Si je clique sur le 2 je souhaite que s'ouvre aussi UF2 . Mais suivant que j'ai cliqué sur Devis ou Facture, je UF2 ne dout pas comporter les même choses.Donc voici une partie des Procédures. UF1 : Private Sub OptionButton1_Click() VariableTest UserForm2.Label1.Caption = "DEVIS" UserForm2.Show End Sub
Private Sub OptionButton2_Click() UserForm2.Label1.Caption = "FACTURE" UserForm2.Show End Sub
Sur un module normal : Public Sub VariableTest() Dim MaVar As String MaVar = "DEVIS" End Sub
UF2 : Private Sub UserForm_Initialize() If MaVar = "DEVIS" Then Frame1.Visible = True Else Frame1.Visible = False End If End Sub
Sur l'exemple je ne parle que de Frame1, mais j'ai d'autres choses (ça je sais faire) Mais problème, Que je choisisse Devis ou facture. J'ai toujours: Frame1.Visible = True qui sort