Discussion :

[MaximeIndustrie]

Bonjour,

Par peur de vous endormir, je resterai bref dans la présentation du fichier.
Il est utile pour :

- Déclarer informatiquement déposer des unités référence X, gamme X zone X. (permet de savoir ce qu'il y a en stock dans chaque zones)
- Rechercher informatiquement une référence X, gamme X, zone X que l'on décompte à l'état des stocks (permet de savoir ce qui va être retiré du stock)


Etant d'un niveau global dans l'ensemble en dessous de la moyenne du forum, j'aurai besoin d'aide pour le débloquage de mon programme.
Le fichier n'est pas encore terminé mais surtout, n'est pas fonctionnel.
Je suis dans l'attente dans un premier temps qu'il puisse tourner sans erreurs ensuite, de le pofiner légèrement pour qu'il réponde bien à nos attentes.

Je tiens à m'excuser tout d'abord devant les personnes qui passeront par l'ouverture de mon fichier car je le sais, ce n'est pas forcément dans la culture du site.
Celui-ci est composé essentiellement d'un bou de codage d'un novice et d'un collège à niveau intermédiaire.

Le problème actuel est celui-ci :

Le formulaire "Prise composant", en recherchant une référence avec celui-ci, celà génère un bug dans le code. Que moi même je n'arrive pas à résoudre.

Je tenais à remercier d'avance ceux qui trouveront la solution.

Cordialement.

[Menhir]

Je tiens à m'excuser tout d'abord devant les personnes qui passeront par l'ouverture de mon fichier car je le sais, ce n'est pas forcément dans la culture du site.

Ce n'est pas une question de culture, c'est une question de sécurité et de règles.
Mais puisque tu le sais, agis en conséquence et présente les éléments nécessaires à la compréhension de ton problème en copiant le code dans ton message (de préférence encadré de balises CODE) et éventuellement en présentant une copie d'écran.

Le formulaire "Prise composant", en recherchant une référence avec celui-ci, celà génère un bug dans le code. Que moi même je n'arrive pas à résoudre.

Quand l'exécution renvoie un message d'erreur, il faut indiquer le libellé de ce message et la ligne de code qui est désignée par le débugage.

[MaximeIndustrie]

Si vous pensez le dépannage possible de cette façon, je vous met le code juste en dessous :

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
Private Sub ComboBox1_Change()
    If ComboBox1.Text <> "" Then
        Set f1 = Sheets("Etat")
        Set f2 = Sheets("Data")
        Ref = ComboBox1.Text
        Set f1 = Sheets("Etat")
        Set d1 = CreateObject("Scripting.Dictionary")
        Set d2 = CreateObject("Scripting.Dictionary")
        DerLig = f1.[A10000].End(xlUp).Row
        For Each c In f1.Range("A2.A" & DerLig)
            If c = Ref * 1 Then
                d1.Add c.Offset(0, 1).Value, c.Offset(0, 1).Value
                d2.Add c.Offset(0, 3).Value, c.Offset(0, 3).Value
            End If
        Next c
        ListBox1.List = Application.Transpose(d1.keys)
        ListBox2.List = Application.Transpose(d2.keys)
    End If
End Sub

Ligne 10 (partie en rouge), code erreur 1004.

Cordialement.