Navigation d'un userform à un autres

bonjour,

voilà, je passe de l'userform2 à l'userform3 avec CommandButton1_click() et ça marche.

quand je reviens sur l'userform2 avec CommandButton2 (de l'userform3) pas de souci.

Et quand je refais CommandButton1 pour aller sur l'userform3 y'a un bug :

Erreur d'exécution '400' :
Feuille déjà affichée ; affichage modal impossible

voici le code :

Private Sub CommandButton1_Click()

    Range("D81") = Replace(Me.TextBox1, vbCr, "")
    Range("D94") = Replace(Me.TextBox2, vbCr, "")
    Range("D117") = Replace(Me.TextBox3, vbCr, "")
    Range("D123") = Replace(Me.TextBox4, vbCr, "")
    Range("D129") = Replace(Me.TextBox5, vbCr, "")
    Range("D135") = Replace(Me.TextBox6, vbCr, "")
    Unload Me
   UserForm3.Show    
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub CommandButton3_Click()

    Range("D81") = Replace(Me.TextBox1, vbCr, "")
    Range("D94") = Replace(Me.TextBox2, vbCr, "")
    Range("D117") = Replace(Me.TextBox3, vbCr, "")
    Range("D123") = Replace(Me.TextBox4, vbCr, "")
    Range("D129") = Replace(Me.TextBox5, vbCr, "")
    Range("D135") = Replace(Me.TextBox6, vbCr, "")
    Unload Me
    UserForm1.Show

End Sub

merci d'avance,

Francky

Bonjour

Francky69100 a écrit :

quand je reviens sur l'userform2 avec CommandButton2 (de l'userform3) pas de souci.

Cela serait bien de voir ce code

ok voici le fichier,

Francky

Bonjour

Il te manque une ligne dans le code de la macro de l'userform3

Private Sub CommandButton3_Click()

    Range("D153") = Replace(Me.TextBox1, vbCr, "")
    Range("D166") = Replace(Me.TextBox2, vbCr, "")
    Range("D189") = Replace(Me.TextBox3, vbCr, "")
    Range("D195") = Replace(Me.TextBox4, vbCr, "")
    Range("D201") = Replace(Me.TextBox5, vbCr, "")
    Range("D207") = Replace(Me.TextBox6, vbCr, "")
    Unload Me
    UserForm2.Show

End Sub

Oups ! merci Banzai

Francky