Code VBA - Gestion de Stocks

Version imprimable

15/10/2014, 17h11
polysandre

Code VBA - Gestion de Stocks
Bonjour à tous,

Je souhiaterais copier automatiquemt les données de la feuille Base vers la feuille MIF et donc dés que lôn modifie la feuille Base cela doit modifier la feuille MIF.

J'ai donc créé une Macro Copie que j'ai inséré dans le code de la feuille MIF
Cependant j'obtiens un Error 9 Out of Range quand j'essaie de le faire

Voici ce que 'ai inscris :
Code:

1 2 3 4 5 Sub Copie() Dim lastrow As Long Sheets("Base").Cells.Copy Sheets("MIF").Cells End Sub
Dans le code de la feuille :
Code:

1 2 3 Private Sub Worksheet_Change(ByVal Target As Range) Copie End Sub
J'obtiens cette erreur au niveau de la ligne sheets copy... sur la Macro.

Auriez-vous une idée ?

Merci de votre aide.

PS: j'ai déjà été consulter à quoi correspondait ce code erreur cependant les objets dont je parle existe bel et bien.
15/10/2014, 17h19
Thautheme
Bonjour Polysandre, bonjour le forum,

Je trouve un peu lourd ce copier/coller sur la macro événementielle Change... Mais essaie comme ça :
Code:

1 2 3 4 5 Sub Copie() Dim lastrow As Long 'cette variable ne sert à rien Sheets("Base").Cells.Copy Sheets("MIF").Range("A1") End Sub

Bonjour à tous,

Je pose la question dans la m'eme discussion.

En fait je suis en train de faire un excel de Gestion des stocks.

J'ai donc ma feuille Documents, qui contient tous les documents et devra contenir la quantité dont je dispose etc...

J'ai donc fait un code me permerttant avec un USERFORM de gérer les entrées, sorties, destructions.

Voici le code en question :

Code:

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
 
Dim ligne
 
Private Sub AjoutCommande_Initialize()
Me.Choixdoc.RowSource = "Documents!N2:N" & Sheets("Documents").[n65000].End(xlUp).Row
End Sub
 
Private Sub Choixdoc_Change()
  ligne = Me.Choixdoc.ListIndex + 2
   Me.Nomdoc = Sheets("Documents").Cells(ligne, 13)
     Me.datemaj = Sheets("Documents").Cells(ligne, 18)
      Me.Quantitédispo = Sheets("Documents").Cells(ligne, 16)
      Me.Langue = Sheets("Documents").Cells(ligne, 1)
 
End Sub
Private Sub bValider3_Click()
 
'--- Positionnement dans la base des destruction
   ligne = Sheets("Destructions").[a65000].End(xlUp).Row + 1
   '--- Transfert Formulaire dans la base des destructions
   Sheets("Documents").Cells(ligne, 3) = Me.Choixdoc
   Sheets("Documents").Cells(ligne, 1) = Me.Langue
   Sheets("Documents").Cells(ligne, 2) = Me.Nomdoc
       Sheets("Documents").Cells(ligne, 4) = Me.Quantité
        Sheets("Documents").Cells(ligne, 5) = Me.Emplacement
   Sheets("MDocuments").Cells(ligne, 6) = Date 'date du jour
 
 
 
  '--- Transfert Formulaire dans la liste des documents
    Sheets("Documents").Cells(ligne, 13) = Me.Nomdoc
   Sheets("Documents").Cells(ligne, 20) = Me.Quantitéjetée
   Sheets("Documents").Cells(ligne, 19).FormulaR1C1 = "=SUM(RC[-4])-RC[-1]"
   xQ = Sheets("Documents").Cells(ligne, 19).Value
   Sheets("Documents").Cells(ligne, 16) = xQ
   Me.Quantitédispo = Sheets("Documents").Cells(ligne, 4)
   Me.datemaj = Date
   Me.Quantitéjetée = ""
   Sheets("Documents").Cells(ligne, 19).ClearContents
   Sheets("Documents").Cells(ligne, 20).ClearContents
 
 
 
 
  End Sub
Private Sub bQuitter3_Click()
  Unload Me
  Sheets("accueil").Select
End Sub

Cependant, lorsque je testem dans le menu déroulant de la référence, je n'ai aucune référence qui apparaît.
Tout en sachant que le fait de sélectionner une référence doit m'afficher les infos, langue, nom du document, emplacement, quantité, date de deernière maj... etc

Voici les codes de mes Macro Tri et Initialise :

Code:

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
 
 
Sub Tri()
'
Sheets("Documents").Range("A1").Select
 
    Range([A2], [F65536].End(xlUp)).Select
       Selection.Sort Key1:=Range("A2"), Header:=xlGuess, OrderCustom:=1, MatchCase:= _
    ActiveWindow.ScrollRow = 6
    Range("A1").Select
End Sub
Sub initialise()
Sheets("Documents").Select
 
    Dim Derlig As Long
    Derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Range("a2:a" & Derlig).Name = 
    Range("b2:b" & Derlig).Name = 
     Range("c2:c" & Derlig).Name = 
    Range("d2:d" & Derlig).Name = 
    Range("e2:e" & Derlig).Name =     
Range("f2:f" & Derlig).Name = 
    Range("g2:g" & Derlig).Name = 
    Range("h2:h" & Derlig).Name = 
    Range("i2:i" & Derlig).Name = 
    Range("j2:j" & Derlig).Name = 
    Range("k2:k" & Derlig).Name = 
    Range("l2:l" & Derlig).Name = 
    Range("m2:n" & Derlig).Name =
   Range("k2:k" & Derlig).Name = 
    Range("l2:l" & Derlig).Name = 
    Range("m2:n" & Derlig).Name = 
 
      Call Tri
   Call initialise
End Sub

Merci.

16/10/2014, 10h33
Thautheme

Bonjour le fil, bonjour le forum,

je sais que ce forum ne préconise pas les pièces jointes mais, pour ma part, je préfère constater les faits avec une pièce jointe que repasser le code ligne par ligne... Pas sûr aussi, Polysandre, que ce soit une bonne idée d'avoir posté sur le même fil...
16/10/2014, 10h36
polysandre

Bonjour

Tu veux dire, avec Mon Excel source ?

Tu penses que je devrais ouvrir un autre fil?

Je suis désolée, je débute en VBa donc j'ai pas mal de questions.
16/10/2014, 10h37
Marc-L

Dans le second code :

• Lignes n°9 & 10 : il y en a une en trop …

• A quoi sert la ligne n°35 ? Vérifier dans quelle procédure elle est située …
• Et les noms définis sur les plages servent-ils à quelque chose ? Pas de trace ailleurs dans les codes …

Dans le premier code :

• J'inverserais les lignes n°47 & 48 …

• Ligne n°19 : mettre la cellule de départ en dur n'est pas conseillé (voir avec Rows.Count) surtout à partir d'Excel 2007.
•Du reste là aussi conformément aux règles du forum la version aurait dû être mentionnée dans le titre de cette discussion …

Merci d'indiquer quelle est la partie du code en relation avec la problématique rencontrée …
16/10/2014, 10h51
polysandre

Bonjour,

Merci de ta réponse.

Je travaille sur EXCEL 2010.

Je vais regarder tes commentaires et essayer de etravailler à partir de là.

Polysandre.

Alimenter une Combo Box

Bonjour à tous, j'ai retravaillà le code pour alimenter la combo box

Cependant cette dernière reste vide.

Le voici :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Ajoutcommande_Initialize() ' A l'ouverture de l'USF Dim rngRef As Range Dim ws As Worksheet Set ws = Worksheets("Documents") 'On crée une boucle qui alimente la liste de la ComboBox "ChoixDoc" For Each rngRef In ws.Range("Ref_liste") Me.Choixdoc.AddItem rngRef.Value Next rngRef End Sub
Vous auriez une suggestion ?

Merci de votre aide.

Polysandre

23/10/2014, 22h22
AlainTech

Bonjour,

Ne jamais écrire l'entête d'une procédure événementielle, mais la choisir par les listes déroulantes.

Code:

Private Sub Ajoutcommande_Initialize()

Cette procédure est invariable quel que soit le nom de l'Userform.

Code:

Private Sub Userform_Initialize()
27/10/2014, 10h11
polysandre

Bonjour,

Merci pour votre aide, en effet j'avais finalement réussi par comprendre que mon erreur venait de là.

Polyasandre.