Discussion :

[Fouinette85]

Bonjour le forum,

Je suis un peu débutante dans la programmation et je travaille sur un fichier de gestion de stocks.
J'ai 2 versions de mon fichier, une qui fonctionne et une copie avec des fonctionnalités supplémentaires mais certaines fonctions que je pense ne pas avoir modifiées ne marchent plus. Donc si quelqu'un se sent d'âme à essayer de m'aider à retrouver où pourrait bien se cacher l'erreur ça serais avec grand plaisir^^.

http://www.yousendit.com/download/ [...] V3hMWEE9PQ

Principe du fichier : En deux mots, il s'agit de compléter des tableaux de gestion de stock à partir de fichier CSV d'entrée et de sortie de stock.
Différence entre les deux fichiers : Dans le premier il n'y a que la fonction d'entrée de stock qui est implémentée et elle fonctionne normalement. Dans le second j'ai rajouté la fonction de sortie de stock sensiblement identique à celle d'entrée de stock mais dans les 2 fonctions aucunes données n'arrive sur la feuille réception des données et encore moins dans chaque feuille de produit.

Le problème porte donc sur les fonctions d'importations de données c'est à dire d'entrée et de sortie de stock (bouton sur l'onglet accueil). Les deux fonctions ne bug pas dans les deux fichiers. Mais dans le 2ème les données ne sont pas réceptionnées alors que la fonction ne plante pas.

Je sais qu'il est compliqué de se plonger dans un projet complet mais je pense que l'erreur doit être relativement évidente pour des gens plus expérimentés que moi.

Merci à ceux qui lirons le post jusqu'au bout et d'autant plus à ceux qui m'aiderons à résoudre mon problème.

[Invité]

Bonjour,

1) le lien que vous avez indiqué semble ne pas vouloir fonctionner.

2) quel est le rapport entre le titre de votre sujet et le problème que vous exposez ?

[Fouinette85]

Je poste un autre lien en espérent que cette fois il fonctionnera

http://www.yousendit.com/download/dV...UnFVbS9IRGc9PQ

En ce qui concerne le titre, mon problème est de trouver pourquoi une macro fonctionne sur un fichier et pas sur l'autre, désolé si c'est un peu trop méthaphorique.

[Invité]

Re,

Une 1ère erreur dans la dernière ligne affichée ci-dessous pour cette procédure :

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
Public Sub parcoursDonneesSorties()
    Dim cellule As Integer
    Dim numFacturation As String
    Dim dateFacturation As String
    Dim qte As String
    Dim produit As String
    Dim celluleF As Integer
    Dim informationP As String
    Dim dateF As Date
    Dim nbLigne As Long
    
    cellule = 2
    numFacturation = Sheets("reception_donnees").Range("A" & cellule).Value
    dateFacturation = Sheets("reception_donnees").Range("B" & cellule).Value
    qte = Sheets("reception_donnees").Range("E" & cellule).Value
    produit = Sheets("reception_donnees").Range("D" & cellule).Value
    
    Do While (produit <> "")
        ' Recherche de la ligne sur laquel on doit ajouter les entrées sur la feuille produit
        cellule = cellule + 1
        celluleF = 2
        informationP = Sheets(produit).Range("I" & celluleF).Value

La variable produit a la valeur 3960 qui bien évidemment correspond à la valeur contenue en D2 sur la feuille "reception_donnees" et qui se rapporte au titre "Quantité proposée" or, à priori, il n'y a pas de feuille "3960".

Je ne suis pas allé plus loin pour l'instant.

Pour essayer de détecter des anomalies de ce genre, placez des points d'arrêt et utilisez le mode "Pas-à-pas détaillé".