Réduire le nombre d'UserForm

Bonjour,

J'aimerais simplifier mon fichier Excel en réduisant le nombre d'UserForm dans mon fichier sachant que de nombreux UserForm sont identique dans celui-ci mais n'ont pas la même action, mais je n'arrive pas à trouver de solution.

PS; Identifiant: ADMIN

Mot de passe: ADMIN

Bonjour Poutch, bonjour le forum,

Je viens de m'apercevoir la la solution proposée n'allait pas je my remet...

Bonjour Poutch, bonjour le forum,

Bon, ça y est...

• J'ai rajouté deux variables déclarées publiques (NF et TIT) en tout début du Module1.

Public NF As String
Public TIT As String

• je n'ai gardé que les 3 premières UserForms et supprimé les autres.

• le code de l'UserForm2 :

Private Sub CommandButton1_Click() 'NUIT
TIT = Me.CommandButton1.Caption
NF = " NUIT"
Unload Me
UserForm3.Caption = TIT
UserForm3.Show vbModeless
End Sub

Private Sub CommandButton2_Click() 'HC
TIT = Me.CommandButton2.Caption
NF = " HC"
Unload Me
UserForm3.Caption = TIT
UserForm3.Show vbModeless
End Sub

Private Sub CommandButton3_Click() 'HEMOSTASE
TIT = Me.CommandButton3.Caption
NF = " Hemostase"
Unload Me
UserForm3.Caption = TIT
UserForm3.Show vbModeless
End Sub

Private Sub CommandButton4_Click() 'IDE
TIT = Me.CommandButton4.Caption
NF = " IDE"
Unload Me
UserForm3.Caption = TIT
UserForm3.Show vbModeless
End Sub

Private Sub CommandButton5_Click() 'SECRETAIRE
TIT = Me.CommandButton5.Caption
NF = " Secretaire"
Unload Me
UserForm3.Caption = TIT
UserForm3.Show vbModeless
End Sub

Private Sub CommandButton6_Click() 'ARC
TIT = Me.CommandButton6.Caption
NF = " ARC"
Unload Me
UserForm3.Caption = TIT
UserForm3.Show vbModeless
End Sub

Private Sub CommandButton7_Click() 'OP
TIT = Me.CommandButton7.Caption
NF = " OP"
Unload Me
UserForm3.Caption = TIT
UserForm3.Show vbModeless
End Sub

Le code de l'Userform3 :

Private Sub CommandButton2_Click()
Unload Me
Sheets("Janvier" & NF).Select
End Sub

Private Sub CommandButton8_Click()
Unload Me
Sheets("Fevrier" & NF).Select
End Sub
Private Sub CommandButton7_Click()
Unload Me
Sheets("Mars" & NF).Select
End Sub
Private Sub CommandButton6_Click()
Unload Me
Sheets("Avril" & NF).Select
End Sub
Private Sub CommandButton5_Click()
Unload Me
Sheets("Mai" & NF).Select
End Sub

Private Sub CommandButton4_Click()
Unload Me
Sheets("Juin" & NF).Select
End Sub

Private Sub CommandButton3_Click()
Unload Me
Sheets("Juillet" & NF).Select
End Sub

Private Sub CommandButton9_Click()
Unload Me
Sheets("Aout" & NF).Select
End Sub

Private Sub CommandButton10_Click()
Unload Me
Sheets("Septembre" & NF).Select
End Sub
Private Sub CommandButton11_Click()
Unload Me
Sheets("Octobre" & NF).Select
End Sub
Private Sub CommandButton12_Click()
Unload Me
Sheets("Novembre" & NF).Select
End Sub
Private Sub CommandButton13_Click()
Unload Me
Sheets("Decembre" & NF).Select
End Sub

Merci, ThauTheme pour ta réponse c'est exactement ce qu'il me fallait