1 code pour deux UserForms

Bonjour a toutes et tous.

J'ai une partie de code qui doit être utilisé par deux UserForm :

NDeContrat.lblNDeContrat = isect

lors j'ai voulu faire :

Dans le module contenant ce code :

Sub contrat ()

Select Case NDeContrat
Case 1: USF_FicheDeRenseignements
Comme c'est un userform (c'est ce que j'ai compris)

Case 2: résultat
Case Else
End Select

blab, bla, bla ...

NDeContrat.lblNDeContrat = isect

end sub

Dans un autre module

Public NDeContrat

Et dans les boutons de chaques UserForm :

Userforme 1 :

cmd bouton 1()

NDeContrat = 1

end sub

Userforme 2 :

cmd bouton 1()

NDeContrat = 2
end sub

cela me donne une erreur : utilisation incorrect de la propriété

cela me surligne en bleu : USF_FicheDeRenseignements

Donc j'espère avoir été trés explicite et vous remercie par avance, Jacques

*Bonjour Jacques*,

Bonjour a toutes et tous.

J'ai une partie de code qui doit être utilisé par deux UserForm :

NDeContrat.lblNDeContrat = isect

lors j'ai voulu faire :

Dans le module contenant ce code :

Sub contrat ()

Select Case NDeContrat
Case 1: USF_FicheDeRenseignements
Comme c'est un userform (c'est ce que j'ai compris)

USF_FicheDeRenseignements.Show
Reviens nous dire

Case 2: résultat
Case Else
End Select

blab, bla, bla ...

NDeContrat.lblNDeContrat = isect

end sub

Dans un autre module

Public NDeContrat

Et dans les boutons de chaques UserForm :

Userforme 1 :

cmd bouton 1()

NDeContrat = 1

end sub

Userforme 2 :

cmd bouton 1()

NDeContrat = 2
end sub

cela me donne une erreur : utilisation incorrect de la propriété

cela me surligne en bleu : USF_FicheDeRenseignements

Donc j'espère avoir été trés explicite et vous remercie par avance,
Jacques

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Bonjour a toutes et tous.

J'ai une partie de code qui doit être utilisé par deux UserForm :

NDeContrat.lblNDeContrat = isect

lors j'ai voulu faire :

Dans le module contenant ce code :

Sub contrat ()

Select Case NDeContrat
Case 1: USF_FicheDeRenseignements
Case 2: résultat
Case Else
End Select

blab, bla, bla ...

NDeContrat.lblNDeContrat = isect

end sub

Dans un autre module

Public NDeContrat

Et dans les boutons de chaques UserForm :

Userforme 1 :

cmd bouton 1()

NDeContrat = 1

end sub

Userforme 2 :

cmd bouton 1()

NDeContrat = 2
end sub

cela me donne une erreur : utilisation incorrect de la propriété

cela me surligne en bleu : USF_FicheDeRenseignements

Donc j'espère avoir été trés explicite et vous remercie par avance, Jacques

Bonjour Jacques,

Si j'ai bien compris :
Dans le premier UserForm (UserForm1) :

Private Sub CommandButton1_Click()
contrat Me
End Sub

Idem dans le deuxième UserForm (UserForm2) :

Private Sub CommandButton1_Click()
contrat Me
End Sub

et dans le module :

Public Sub contrat(usf As UserForm)
Dim isect As String ' à adapter

isect = "toto"
usf.lblNDeContrat = isect
End Sub

Bonjour a toutes et tous.

J'ai une partie de code qui doit être utilisé par deux UserForm :

NDeContrat.lblNDeContrat = isect

lors j'ai voulu faire :

Dans le module contenant ce code :

Sub contrat ()

Select Case NDeContrat
Case 1: USF_FicheDeRenseignements
Case 2: résultat
Case Else
End Select

blab, bla, bla ...

NDeContrat.lblNDeContrat = isect

end sub

Dans un autre module

Public NDeContrat

Et dans les boutons de chaques UserForm :

Userforme 1 :

cmd bouton 1()

NDeContrat = 1

end sub

Userforme 2 :

cmd bouton 1()

NDeContrat = 2
end sub

cela me donne une erreur : utilisation incorrect de la propriété

cela me surligne en bleu : USF_FicheDeRenseignements

Donc j'espère avoir été trés explicite et vous remercie par avance,
Jacques

--
Cordialement,

Jacques.