Problème pour afficher mes usf

Salut le forum

Avec le code ci-dessous, je devrais pouvoir en fonction des boutons commandes correspondants, afficher mes usf.

Certaines partie du code (PackSalPrive_Click) fonctionne mais pas les autres.

Je ne connais pas la source du problème.

Merci de me donner un coup de main.

Private Sub Clepargne_Click()
Temporaire1.Caption = "COMPTE1"
   'Fiche.MultiPage1.Value = 0
Fiche.Show
Sheets("DONNE").Cells(4, 3) = "COMPTE1"
End Sub

Private Sub ExitTypeCpte_Click()
Unload Me
End Sub

Private Sub PackBusi_Click()
Temporaire1.Caption = "PACK1"
Fiche.Show
Sheets("DONNE").Cells(4, 3) = "PACK1"
End Sub

Private Sub PackSalPrive_Click()
   Temporaire1.Caption = "PACK2"
   PsPrive.Show
Sheets("DONNE").Cells(4, 3) = "PACK2"
End Sub
Private Sub Chretraite_Click()
Temporaire1.Caption = "COMPTE1"
PsPrive.Show
Sheets("DONNE").Cells(4, 3) = "COMPTE1"
End Sub
Private Sub CpteVirPrive_Click()
Temporaire1.Caption = "COMPTE2"
PsPrive.Show
Sheets("DONNE").Cells(4, 3) = "COMPTE2"
End Sub

Private Sub PackFonx_Click()
Temporaire1.Caption = "PACK FIXE"
Fonxionaria.Show
Sheets("DONNE").Cells(4, 3) = "PACK FIXE"
End Sub

Private Sub CpteVirPub_Click()
Temporaire1.Caption = "COMPTE VIR1"
Fonxionaria.Show
Sheets("DONNE").Cells(4, 3) = "COMPTE VIR1"
End Sub
Private Sub CpteSnd_Click()
Temporaire1.Caption = "SND"
Fonxionaria.Show
Sheets("DONNE").Cells(4, 3) = "SND"
End Sub
Private Sub PackSalPub_Click()
Temporaire1.Caption = "PACK SAL"
Fonxionaria.Show
Sheets("DONNE").Cells(4, 3) = "PACK SAL"
End Sub
Private Sub CpteSnd2_Click()
Temporaire1.Caption = "SND2"
Fonxionaria.Show
Sheets("DONNE").Cells(4, 3) = "SND2"
End Sub

Private Sub ChPart_Click()
Temporaire1.Caption = "COMPTE CH
Fiche.Show
Sheets("DONNE").Cells(4, 3) = "COMPTE CH"
End Sub

Salut le forum

Comme cela, sans fichier, les chances de réponses sont quasi inexistantes.

Mytå

Salut Myta

Merci pour votre feedback.

Les codes du fichier joint ne se ressemblent pas forcement mais ont la même logique.

Merci de vous appuyer sur les codes du ficiher joint svp.

Qu'est ce qui bloc l'exécution des fichiers?

Merci pour vos aides.

Salut,

Je peux me tromper mais :

Quand je lance le mode pas a pas en debug (touche F8), j'ai une erreur sur le forms pfPub sur :

Private Sub UserForm_initialize()
TextBox1 = Date
TextBox2 = Sheets("DONNE").Range("h21")
TextBox35 = Sheets("DONNE").Range("h21")
ComboBox5.List = Sheets("PARAMETRE").Range("D5:D22").Value
ComboBox2.List = Sheets("PARAMETRE").Range("R452:R816").Value
ComboBox1.List = Sheets("PARAMETRE").Range("C5:C22").Value
ComboBox6.List = Sheets("PARAMETRE").Range("U101:U279").Value
ComboBox7.AddItem "25"
ComboBox7.AddItem "50"
ComboBox7.AddItem "NEANT"
End Sub

les lignes concernant combobox7 sont en erreur : ce combobox n'existe pas dans le forms pfPub..

Supprime/modifie ...

Damien

Salut Bigdams

Merci pour votre contribution.

J'ai apporté la correction du combobox7 mais le bug persiste tj chez moi.

Vous dites que chez vous ca marche.

Pourquoi chez moi y'a le bug alors.

merci de voir svp

Salut

Juste pour dir que c'est bon.

Dans un autre usf, j'ai omis de corriger le ComboBox7.

En corrigeant le tout, ca fonctionne comme souhaité.

Merci infiniment