Discussion :

[pserres]

Bonjour,

je suis un novice en VBA et je suis en train de faire un userform. J'ai déjà fini ma présentation avec des boutons enregistrer, effacer, et quitter. Tous mes textbox ou combobox sont bien paramétrer.

Mon problème viens de mon bouton enregistrer. Il me mets un message pour confirmer l'enregistrement. En cliquant sur oui, ils sont copier dans un onglet. J'aimerais qu'il soit copié dans un onglet précis. Si je suis dans mon onglet en question, les données se copie bien la ou je le désire, et la suite. Maintenant si je suis sur un autre onglet quand je lance mon userform, les données se copie dans l'onglet ou je suis. J'aimerais que mes données soit tous le temps copier dans l'onglet FACTURATION.

Est ce que quel'qu'un peut m'aider ? Je vous remercie

VOici mon fichier:

FACTURE.xlsb.xlsm

[marot_r]

Bonjour.

Peux-tu poster le code correspondant à "enregister" ?

A+

[pserres]

Bonjour,

et voici

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
Private Sub CommandButton1_Click() Dim L As Integer
 If MsgBox("Confirmez-vous l’insertion de ce nouveau BAT ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
 L = Sheets("FACTURATION").Range("B65536").End(xlUp).Row + 1
 Range("B" & L).Value = TextBox1
 Range("C" & L).Value = TextBox9
 Range("D" & L).Value = TextBox2
 Range("E" & L).Value = TextBox3
 Range("F" & L).Value = ComboBox2
 Range("G" & L).Value = TextBox4
 Range("H" & L).Value = TextBox5
 Range("I" & L).Value = TextBox6
 Range("J" & L).Value = ComboBox3
 Range("K" & L).Value = ComboBox4
 Range("L" & L).Value = ComboBox5
 Range("M" & L).Value = TextBox7
 End If
 TextBox4 = ""
ListBox1 = Clear
ComboBox1 = Clear
TextBox5 = Clear
TextBox6 = Clear
TextBox7 = Clear
TextBox8 = Clear
ComboBox2 = Clear
ComboBox3 = Clear
ComboBox4 = Clear
ComboBox5 = Clear
ComboBox6 = Clear
TextBox8 = Clear
End Sub

[pserres]

J'ai aussi mis un code pour me vider certaines textbox après enregistrement.

[MarcelG]

Bonjour,

1 règle d'or concerne le rattachement des objets.
Ici, les objets Range ne sont pas rattachés à leur feuille Parent.
Excel considère donc la feuille active.
Tu peux donc utiliser le nm de ta feuille sur un bloc With.
Ainsi

Code :

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

1
2
3
4
5
With Worksheets("Facturation")
  dernl = .
  .Range("B" & L).Value =
  etc....
End With

Question:
A quoi correspond cette ligne

Code :

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

1
2
 
TextBox8 = Clear

?

2 conseils:
1 - Toujours indenter le code(i.e. positionner en retrait les paragraphes inclus dans un bloc If, With, For....)
2 - Bien nommer les contrôles en les préfixant par un libellé indiquant leur nature (Txt_lestock, Cbx_service...)
Le code sera ainsi plus lisible et des boucles seraient envisageables si les cellules sont nommées en adéquation aux contrôles (Cellule nommée "service" informée par Txt_service)

[pserres]

Merci pour ton retour.

Je le met ou ton code exactement? je le mets à la place du mien? je voudrais bien garder mon message avant validation.

Pour la ligne en question, c'est une erreur.

Merci pour les conseils, je vais bien renommer mes list....

[MarcelG]

Salut,

Je le met ou ton code exactement? je le mets à la place du mien?

Ben oui.
Le bloc With débute avant la ligne de code utilisant son argument objet.