Non exécution d'un programme

Romain242
Messages postés
3
Date d'inscription
jeudi 23 juin 2011
Statut
Membre
Dernière intervention
23 juin 2011
- 23 juin 2011 à 14:20
Romain242
Messages postés
3
Date d'inscription
jeudi 23 juin 2011
Statut
Membre
Dernière intervention
23 juin 2011
- 23 juin 2011 à 15:52
Bonjour,

Je suis nouveau sur le forum et je tripote la programmmation que depuis quelques mois.


Dans le cadre de mon travail j'ai réalisé un fichier excel de gestion des stocks avec un petit programme en VBA qui me permet d'obtenir une interface simple et convivial. Seulement j'ai un probléme dans le fonctionnement car sur mon tableau de donnés que j'utilise (16 colonnes et 216 lignes) le programme marche trés bien jusqu'a la ligne 75 au dela il ne fonctionne plus.

Avez vous une idée d'ou cela peut venir?
(j'ai deja bien regardé mon programme et il n'y a jamais de limite fixé a 75 ou au alentour)

Merci de votre aide.

4 réponses

cs_Julien39
Messages postés
6414
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
29 juillet 2020
366
23 juin 2011 à 14:29
Il y a forcément quelque chose de particulier sur la ligne 75, pour t'en assurer inverse les lignes 74 et 75.

Peut etre une cellule vide ?
0
Romain242
Messages postés
3
Date d'inscription
jeudi 23 juin 2011
Statut
Membre
Dernière intervention
23 juin 2011

23 juin 2011 à 14:41
C'est une bonne idée merci, je vien d'essayer et sa emboucanne tout encore plus.... J'ai l'impression que lorsque c'est inversé et que je prend la ligne 76 il me modifie le stock de la ligne 75

Je suis dessus depuis plus de 2h et je commence a desespérer ....
0
cs_Julien39
Messages postés
6414
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
29 juillet 2020
366
23 juin 2011 à 15:43
Tu peux nous donner ton code (au moins celui qui te permet de parcourir tes enregistrements) ?
0
Romain242
Messages postés
3
Date d'inscription
jeudi 23 juin 2011
Statut
Membre
Dernière intervention
23 juin 2011

23 juin 2011 à 15:52
Il est un peu long ... j'écréme un peu ! C'est pas top surment comme programmation mais bon ...



Private Sub cb1_Click()
On Error GoTo fin
Worksheets("fournisseur1").Activate
N = ComboBox1.Column(10)
p = tbquantite.Value
s = Cells(N, 10)
g = Cells(N, 15)

'Passation de comande
If ob3.Value = True Then
If appro.Value = True Then
Cells(N, 15) = g + p
End If
If reserv.Value = True Then
Cells(N, 15) = g - p
End If
Cells(N, 16) = tbcom.Value
'edition de la commande
Call edcommande
Call attente
GoTo fin
End If
fin:
'permet de rester sur la page d'index
Worksheets("index").Activate
On Error Resume Next
End Sub

Private Sub edcommande()
Worksheets("commande").Activate
Dim M As Long
M = Range("c28").End(xlUp).Row + 1
Cells(M, 2) = M - 9
Cells(M, 3) = tbquantite.Value
Cells(M, 4) = Label2.Caption
Cells(M, 5) = Label4.Caption
Cells(M, 7) = Label6.Caption
Cells(M, 8) = Label7.Caption
Cells(7, 8) = tbcom.Value
Cells(M, 9) = ComboBox1.Column(5)
Cells(M, 10) = ComboBox1.Column(6)
Cells(M, 11) = ComboBox1.Column(7)
Cells(M, 12) = Cells(M, 10) * Cells(M, 11) * Cells(M, 3)
End Sub

Private Sub attente()
Worksheets("LIVRAISON").Activate
Dim H As Long
H = Range("A65536").End(xlUp).Row + 1
Cells(H, 1) = tbcom.Value
Cells(H, 2) = Label2.Caption
Cells(H, 3) = Label4.Caption
Cells(H, 4) = Label6.Caption
Cells(H, 5) = Label7.Caption
Cells(H, 6) = ComboBox1.Column(4)
Cells(H, 7) = ComboBox1.Column(5)
Cells(H, 8) = ComboBox1.Column(6)
Cells(H, 9) = ComboBox1.Column(7)
Cells(H, 10) = ComboBox1.Column(8)
Cells(H, 11) = tbquantite.Value
End Sub
0