Autres formulaire avec plusieurs userform

[tony rital]

Bonjour Je suis très novice en vba je souhaite créer un formulaire à plusieurs userform pour l'inscription des membres de mon club mais mes données ne sont pas dans les bonnes cellules des feuilles de mon fichier je vous mets mon fichier en pièces jointes merci de votre aide

 

[sylvanu]

Bonsoir Tony rital, et bienvenu sur XLD,
Il vous faut préciser à chaque fois la feuille sur laquelle vous voulez écrire.
Essayez pour userform3 :

Private Sub CommandButton1_Click()
Dim L As Integer
With Sheets("RP")
    L = .[A65000].End(xlUp).Row + 1 'POUR PLACER LE NOUVEL ENREGISTREMENT 0 LA PREMIERE LIGNE DE TABLEAU NON VIDE
    .Range("A" & L).Value = ComboBox2.Value
    .Range("B" & L).Value = TextBox18.Value
    .Range("C" & L).Value = TextBox17.Value
    .Range("E" & L).Value = TextBox6.Value
    .Range("F" & L).Value = TextBox12.Value
    .Range("G" & L).Value = TextBox13.Value
    .Range("H" & L).Value = TextBox9.Value
End With
Unload Me 'ou Unload UserForm1
UserForm4.Show
End Sub

et pour le 4 :

Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("CONFIRMEZ-VOUS L'INSCRIPTION", vbYesNo, "DEMANDE DE CONFIMATION D'AJOUT") = vbYes Then
    With Sheets("Cotipack")
        L = .[A65000].End(xlUp).Row + 1
        .Range("A" & L).Value = ComboBox13.Value
        .Range("B" & L).Value = TextBox1.Value
        .Range("C" & L).Value = TextBox2.Value
        .Range("J" & L).Value = ComboBox6.Value
        .Range("D" & L).Value = ComboBox9.Value
        .Range("E" & L).Value = ComboBox10.Value
        .Range("F" & L).Value = ComboBox11.Value
        .Range("G" & L).Value = ComboBox12.Value
    End With
End If
End Sub

Le point avant le range signifie que vous utiliserez la feuille déclarée dans le with. Ainsi :

 With Sheets("Cotipack")
    L = .[A65000].End(xlUp).Row + 1
    .Range("A" & L).Value = ComboBox13.Value
End With

signifie :
L = Sheets("Cotipack").[A65000].End(xlUp).Row + 1
Sheets("Cotipack").Range("A" & L).Value = ComboBox13.Value

 

[tony rital]

Super cela fonctionne parfaitement, merci

je souhaiterais aussi sur le dernier userform que la pae se ferme quand je clique sur ok lors du msg box comment faire?

 

[sylvanu]

Bonjour,
Mettez un "Unload Me" à la fin de votre macro, CommandButton1_Click de Userform4.

 

[tony rital]

Bonjour Sylvanu,

un grand merci pour ton aide cela fonctionne.

j'aimerais mettre un bouton précédent dans L'userform 3 vers L'userfom1 et de L'userform4 vers L'userform3, mais sans que cela efface les données préalablement écrite? je ne sais pas si je suis clair?

Merci de ton aide