Incrémenter d'une ligne dans la feuille l'écriture de la saisie d'une textbox

**iriane** · 26/08/2010, 10h57

bonjour à tous,
super débutant(66ans),
je travaille un peut sur excel!!!, mais la je franchis un grand pas.
voila j'essaie de faire une feuille de saisie en userform, c'est pas mal, mai la ou ça ce gâte c'est les fonctions.
sur une feuille avec, je saisie sur une ligne avec plusieurs texbox, ensuite j'ai un commandbutton pour valider l'enregistrement sur la feuille,à la validation je désire que la ligne saisie descende d'une ligne, pour laisser la place à ma nouvelle saisie,et je souhaite que mes texbox saisie, se vide pour un nouvel enregistrement.
je dois vous avouer que j'ai tout copié (mal surement) ailleurs
voila ce que j'ai écrits

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
Private Sub CommandButton1_Click()
      Rows("2:2").Select
      Selection.Insert shift: x1Dow , CopyOrigin: x1FormatFronleftOrabove
End Sub
 
Private Sub CommandButton1_Click()
Rows("2:2").Select
Selection.Insert shift: x1Dow , CopyOrigin: x1FormatFronleftOrabove
End Sub
 
Private Sub CommandButton5_Click()
Sheets("horaires").Select
End Sub
 
Private Sub CommandButton6_Click()
Sheets("recettes").Select
End Sub
 
Private Sub CommandButton7_Click()
Sheets("fournisseurs").Select
End Sub
 
Private Sub CommandButton8_Click()
Sheets("banque").Select
End Sub
 
 
 
Private Sub TextBox1_Change()
Range("A2").Value = TextBox1.Value
End Sub
 
Private Sub TextBox10_Change()
Range("f2").Value = TextBox10.Value
End Sub
 
Private Sub TextBox11_Change()
Range("A2").Value = TextBox11.Value
End Sub
 
Private Sub TextBox12_Change()
Range("b2").Value = TextBox12.Value
End Sub
 
Private Sub TextBox13_Change()
Range("c2").Value = TextBox13.Value
End Sub
 
Private Sub TextBox14_Change()
Range("d2").Value = TextBox14.Value
End Sub
 
Private Sub TextBox15_Change()
Range("e2").Value = TextBox15.Value
End Sub
 
Private Sub TextBox16_Change()
Range("A2").Value = TextBox16.Value
End Sub
 
Private Sub TextBox17_Change()
Range("b2").Value = TextBox17.Value
End Sub
 
Private Sub TextBox2_Change()
Range("b2").Value = TextBox2.Value
End Sub
 
Private Sub TextBox3_Change()
Range("c2").Value = TextBox3.Value
End Sub
 
Private Sub TextBox4_Change()
Range("d2").Value = TextBox4.Value
End Sub
 
Private Sub TextBox5_Change()
Range("A2").Value = TextBox5.Value
End Sub
 
Private Sub TextBox6_Change()
Range("b2").Value = TextBox6.Value
End Sub
 
Private Sub TextBox7_Change()
Range("c2").Value = TextBox7.Value
End Sub
 
Private Sub TextBox8_Change()
Range("d2").Value = TextBox8.Value
End Sub
 
Private Sub TextBox9_Change()
Range("e2").Value = TextBox9.Value
End Sub

un grand merci pour votre aide

**delphine35** · 26/08/2010, 11h39

Bonjour,

Petites recommandations : utilise les balises code # :

Code :

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

 c'est plus lisible pour le code ... y a des couleurs ..

Erreur de débutant

Sinon, quand le code en long ... ou que tu as des userform ...
il y a la possibilité de mettre le fichier en piece jointe

Pour ton problème :

Code :

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

1
2
Rows("2:2").Select
Selection.Insert shift: x1Dow , CopyOrigin: x1FormatFronleftOrabove

peut etre remplacer par :

Code :

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

Rows("2:2").Insert

tu met

Code :

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

1
2
3
Private Sub TextBox1_Change()
Range("A2").Value = TextBox1.Value
End Sub

a chaque caractere taper dans le textbox, il va modifier la cellule A2
=> ca risque de ramer ...

Je ne sais pas si cela peut t'aider :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Private Sub CommandButton5_Click()
    alim_textbox ("horaires")
End Sub
 
Private Sub CommandButton6_Click()
    alim_textbox ("recettes")
End Sub
 
Private Sub CommandButton7_Click()
    alim_textbox ("fournisseurs")
End Sub
 
Private Sub CommandButton8_Click()
    alim_textbox ("banque")
End Sub
 
 
 
Private Sub alim_textbox( sh As string)
 
With Worksheets(sh)
'Insertion d'une ligne
    .Rows("2:2").Insert
 
    .Range("A2").Value = TextBox1.Value
    .Range("F2").Value = TextBox10.Value
    .Range("B2").Value = TextBox12.Value
    .Range("C2").Value = TextBox13.Value
    .Range("d2").Value = TextBox14.Value
    .Range("e2").Value = TextBox15.Value
    '...
 
End With
 
'Vide les textbox
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
    '...
 
'sauvegarde le fichier
ActiveWorkbook.Save
 
End Sub

**iriane** · 26/08/2010, 11h58

un grand merci delphine
je vais tester cet après midi, je donnerais le résultat.

au fait, c'est quoi les: utilise les balises code # :

merci

**delphine35** · 26/08/2010, 12h18

les balises code :

quand tu ecrit ton post, sur la 2eme ligne en dessous de l'intitulé "Message:", tu as le signe #, tu clique dessus et des balises CODE vont apparaitre et tu met ton code entre les 2 balises.
Des balises : comme par [...] et fini par [/...]

**iriane** · 26/08/2010, 12h51

super delphine

la première étape est passé, en validant, les cellules de la ligne 1 descendent bien à la ligne deux.
mais il faut que je te dise que sur mon userform, j'ai un commandbutton pour chaque feuille afin de naviguer facilement et de voir la feuille, et un commendbutton valider pour chaque feuille.

maintenant reste à vider les texbox après la saisie, idem pour les texboxs, chaque feuille a les siens,
j'espère que je me suis bien expliqué ???

**delphine35** · 26/08/2010, 12h57

j'ai un commandbutton pour chaque feuille

Perso j'aurais plutot mis des optionButton ou un multipage

commendbutton valider pour chaque feuille.

Un seul suffit !! Si tu selectionnes ta feuille avant le meme bouton peut tout faire ...

Tu peux mettre ton fichier en piece jointe ou me l'envoyer ? Ce sera plus facile pour comprendre ....