Autres formulaire avec plusieurs userform

tony rital

XLDnaute Nouveau
Supporter XLD
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
 

Pièces jointes

  • Modapp - Copie.xlsm
    55.1 KB · Affichages: 6

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Tony rital, et bienvenu sur XLD,
Il vous faut préciser à chaque fois la feuille sur laquelle vous voulez écrire.
Essayez pour userform3 :
VB:
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 :
Code:
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 :
Code:
 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

XLDnaute Nouveau
Supporter XLD
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
 

Pièces jointes

  • Modapp - Copie.xlsm
    408.3 KB · Affichages: 8

Discussions similaires

Réponses
17
Affichages
878
Réponses
6
Affichages
201

Statistiques des forums

Discussions
312 819
Messages
2 092 397
Membres
105 403
dernier inscrit
LouisRYn