Erreur d'exécution 6 dépassement de capacité

[Dams7700]

Bonjour,

Je m'adresse au forum pour un nouveau soucis.

Mon programme tournait à merveille jusqu'à ce message d'erreur:

Erreur d'exécution 6

Dépassement de capacité

J'ai déjà un peu fouillé et essayé de remplacer les variables As integer en As double ou As long mais rien n'y fait.

Je suis un peu désemparé face à ce problème. qqun peut-il m'aider?

(Il m'est impossible d'envoyer le fichier en pièce jointe car trop gros, mais je peux l'envoyer par mail)

Merci d'avance

 

[adel53]

Re : Erreur d'exécution 6 dépassement de capacité

les deux il me semble je me suis focalisé principalement sur le premier non les listebox ne s'alimentent pas. Je suis toujours dessus

 

[adel53]

Re : Erreur d'exécution 6 dépassement de capacité

Personnellement en commentant les lignes ci-dessous j'arrive à afficher le userform avec les données donc il faut chercher là dedans
Listebox2 s'alimente je ne comprend plus rien

Me.ListBox1.List = bd.Value

Ainsi que le bloc suivant

With Sheets("BD")
' For i = 2 To .[A65000].End(xlUp).Row
' datduJour = Date
' If .Cells(i, 10) < Format(datduJour, "dd/mm/yyyy") Then 'Cells(1, 16)
' Me.ListBox4.AddItem
' Me.ListBox4.List(K, 0) = .Cells(i, 4)
' Me.ListBox4.List(K, 1) = .Cells(i, 5)
' Me.ListBox4.List(K, 2) = .Cells(i, 6)
' Me.ListBox4.List(K, 3) = .Cells(i, 7)
' Me.ListBox4.List(K, 4) = .Cells(i, 8)
' Me.ListBox4.List(K, 5) = .Cells(i, 9)
' Me.ListBox4.List(K, 6) = .Cells(i, 10)
' Me.ListBox4.List(K, 7) = .Cells(i, 11)
' Me.ListBox4.List(K, 9) = .Cells(i, 13)
' K = K + 1
' End If
' Next i
' End With

 

[Dams7700]

Re : Erreur d'exécution 6 dépassement de capacité

effectivement l'userform s'affiche. Je vais plancher la dessus.

Un grand merci pour ton aide

Si jamais l'erreur t'apparaissait n'hésite pas à m'en faire part

 

[adel53]

Re : Erreur d'exécution 6 dépassement de capacité

En remplaçant le contenu de BD par bd 2 le code fonctionne sans problème et affiche Me.ListBox1.List = bd.Value et Me.ListBox2.List = bd.Value
Donc tout laisse croire que tu as une erreur quelque part sur les données

 

[adel53]

Re : Erreur d'exécution 6 dépassement de capacité

En supprimant de la ligne 121 à la ligne 195 dans bd. Tout fonctionne je vais m'arreter là pour ma part je te laisse regarder à quel endroit il y a un problème.
J'ai laissé ce bloc commenté.

'With Sheets("BD")
' For i = 2 To .[A65000].End(xlUp).Row
' datduJour = Date
' If .Cells(i, 10) < Format(datduJour, "dd/mm/yyyy") Then 'Cells(1, 16)
' Me.ListBox4.AddItem
' Me.ListBox4.List(K, 0) = .Cells(i, 4)
' Me.ListBox4.List(K, 1) = .Cells(i, 5)
' Me.ListBox4.List(K, 2) = .Cells(i, 6)
' Me.ListBox4.List(K, 3) = .Cells(i, 7)
' Me.ListBox4.List(K, 4) = .Cells(i, 8)
' Me.ListBox4.List(K, 5) = .Cells(i, 9)
' Me.ListBox4.List(K, 6) = .Cells(i, 10)
' Me.ListBox4.List(K, 7) = .Cells(i, 11)
' Me.ListBox4.List(K, 9) = .Cells(i, 13)
' K = K + 1
' End If
' Next i
' End With

 

[Dams7700]

Re : Erreur d'exécution 6 dépassement de capacité

Je viens de trouver une solution à mon problème, lorsque je laisse mon script tel qu'il était au départ et que je change le format des cellules de la colonne K de l'onglet BD en format texte (ce sont en fait des numéros de lots) cela fonctionne parfaitement.
Je ne sais pas si c'est la solution optimal mais pour ma part cela me convient.

 

[adel53]

Re : Erreur d'exécution 6 dépassement de capacité

bonjour

Ok tant mieux alors.

Bonne journée