Discussion :

[jeje644]

Bonjour,

Je suis en train de travailler sur les formulaires et je rencontre quelques limites de connaissance. Je travaille sous un classeur Excel. Je souhaite alimenter la fiche individuelle présente dans la feuille fiche individuelle à partir de ce qui est inscrit dans mon formulaire. Je souhaite que cette alimentation ne se fasse que si la personne clique sur le bouton sauvegarder. Tout ceci est présent dans la pièce jointe

1) Je souhaite créer un bouton sauvegarder qui grâce auquel lorsqu'on clique dessus, on peut sauvegarder ce qui a été tapé dans le formulaire sous une fiche créée dans le classeur Excel. Pouvez vous me donner la manière de faire cela ?

2) Dans le formulaire je demande de renseigner le nombre de voitures, de vélos, de motos dont la personne dispose. Je souhaite enregistrer sur la fiche Excel le nombre le plus élevé des 3. Comment faire ?

3) J'ai un oui/non. Comment téléchager cette donnée dans ma fiche sur Excel ?

4) Je souhaite insérer un bouton onglet suivant dans mon formulaire afin de continuer la saisie dans l'onglet suivant. Quel est le code ?

Le travail que j'ai fait pour l'instant est dispo ici :
formulaire 2003.xls

Merci d'avance pour votre aide !

[Theze]

Bonjour,

Déjà, afin d'éviter les lignes de code inutiles dans "Userform_Initialize" je te propose ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Userform_Initialize()
 
    Dim I As Integer
 
    For I = 1 To 5
 
        CB1.AddItem WeekdayName(I)
        CB2.AddItem I
        CB3.AddItem I
        CB4.AddItem I
 
    Next I
 
End Sub

1) Je souhaite créer un bouton sauvegarder qui grâce auquel lorsqu'on clique dessus, on peut sauvegarder ce qui a été tapé dans le formulaire sous une fiche créée dans le classeur Excel. Pouvez vous me donner la manière de faire cela ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub CommandButton2_Click()
 
    Range("B2").Value = TextBox1.Text
    'et ainsi de suite...
 
End Sub

2) Dans le formulaire je demande de renseigner le nombre de voitures, de vélos, de motos dont la personne dispose. Je souhaite enregistrer sur la fiche Excel le nombre le plus élevé des 3. Comment faire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("B9").Value = Application.WorksheetFunction.Max(CB2.Text, CB3.Text, CB4.Text)

3) J'ai un oui/non. Comment téléchager cette donnée dans ma fiche sur Excel ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("B4").Value = IIf(OptionButton1.Value = True, "Oui", "Non")

4) Je souhaite insérer un bouton onglet suivant dans mon formulaire afin de continuer la saisie dans l'onglet suivant. Quel est le code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton5_Click()
 
    MultiPage1.Value = 0 'pour revenir à la page "Véhicule"
 
End Sub
 
Private Sub CommandButton6_Click()
 
    MultiPage1.Value = 1 'pour aller à la page "Enfants"
 
End Sub

Hervé.

[jeje644]

Merci beaucoup pour ta réponse claire et concise !!!!

Je vais regarder ça de plus près et tester.
Je reviendrai vers vous si je rencontre un problème pour appliquer ou autre !