Discussion :

[MEGEVAN]

Etant novice dans le VBA je recherche une âme charitable pour me renseigner.
Voilà j'ai un classeur de trois feuilles pour effectuer une gestion de stocks. J'ai créé un Userforme pour effectuer la saisie de stocks. Il y a 3 gestions, A, B, C donc j'ai créé 3 boutons pour m'amener chacune des feuilles du classeur. Jusque là tout va bien mais quand je mets la macro pour la Gestion A c'est bon aussi mais je n'arrive pas à la faire fonctionner pour la gestion B et la gestion C. Les 3 bases A,B,C sont identiques comment rédiger cette macro afin qu'elle fonctionne pour les 3 gestions A,B,C. Je vous fais passer cette macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TextBox1_AfterUpdate()
 
 If WorksheetFunction.CountIf(Sheets("GESTION A").Range("A:A"), Me.TextBox1.Value) = 0 Then
 MsgBox "Cette adresse n'existe pas. Veuillez ressaisir une nouvelle adresse", vbInformation + vbOKOnly, "Adresse non trouvée"
 End If
 
 With Me
 .TextBox2 = Application.WorksheetFunction.VLookup((Me.TextBox1), Sheets("GESTION A").Range("SOURCEA"), 2, 0)
 .TextBox3 = Application.WorksheetFunction.VLookup((Me.TextBox1), Sheets("GESTION A").Range("SOURCEA"), 3, 0)
 .TextBox4 = Application.WorksheetFunction.VLookup((Me.TextBox1), Sheets("GESTION A").Range("SOURCEA"), 4, 0)
 .TextBox5 = Application.WorksheetFunction.VLookup((Me.TextBox1), Sheets("GESTION A").Range("SOURCEA"), 6, 0)
End With
 
End Sub

D'avance un grand merci à la personne qui me répondra

[Invité]

Bonjour,

Une solution possible :

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
 
Private Sub TextBox1_AfterUpdate()
 
 Dim AireGestionEnCours As Range
 Dim Continuer As Boolean
 
  With Me
      .TextBox2 = "": .TextBox3 = "": .TextBox4 = "": .TextBox5 = ""
  End With
 
 
 Continuer = False
 If WorksheetFunction.CountIf(Sheets("GESTION A").Range("A:A"), Me.TextBox1.Value) > 0 Then
    Set AireGestionEnCours = Sheets("GESTION A").Range("SOURCEA")
    Continuer = True
 End If
 
 If WorksheetFunction.CountIf(Sheets("GESTION B").Range("A:A"), Me.TextBox1.Value) > 0 Then
    Set AireGestionEnCours = Sheets("GESTION B").Range("SOURCEB")
    Continuer = True
 End If
 
 If WorksheetFunction.CountIf(Sheets("GESTION C").Range("A:A"), Me.TextBox1.Value) > 0 Then
    Set AireGestionEnCours = Sheets("GESTION C").Range("SOURCEC")
    Continuer = True
 End If
 
 If Continuer = False Then
    MsgBox "Cette adresse n'existe pas. Veuillez ressaisir une nouvelle adresse", vbInformation + vbOKOnly, "Adresse non trouvée"
    Exit Sub
 End If
 
 With Me
      .TextBox2 = Application.WorksheetFunction.VLookup((Me.TextBox1), AireGestionEnCours, 2, 0)
      .TextBox3 = Application.WorksheetFunction.VLookup((Me.TextBox1), AireGestionEnCours, 3, 0)
      .TextBox4 = Application.WorksheetFunction.VLookup((Me.TextBox1), AireGestionEnCours, 4, 0)
      .TextBox5 = Application.WorksheetFunction.VLookup((Me.TextBox1), AireGestionEnCours, 6, 0)
End With
 
Set AireGestionEnCours = Nothing
 
End Sub

Personnellement, je n'aurais pas utilisé un Textbox pour faire cette sélection, mais plutôt une ListBox avec 2 colonnes : 1 pour la référence, 1 pour indiquer la table de gestion.

[MEGEVAN]

Bonjour ,
maintenant que j'ai mon stock j'aimerai faire la gestion des entrées sorties à partir de celui ci et de réinscrire le nouveau stock dans la feuille de gestion sans archivage de mouvements. Par contre afin d'éviter les erreurs de mouvements j'aimerai pouvoir le faire avec un bouton d'option. plus la quantité pour les entrées et moins pour les sorties. Il existe peut être une autre solution je suis ouvert à toutes les manières.
D'avance un très grand merci.