Forum Clubic

Aide VB : Dépassement de capacité

J’ai un problème de dépassement de capacité dans Excel (VB)
Voila le code qui cause un probleme :

Dim sh As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Dim c As Range
Dim d As Range
Dim Recherche2 As Integer
Dim Recherche3 As Integer
Dim Trouve As String

'Recherche pour la durée
Trouve = “NON”
If cb_grade1.Text > “” And cb_newgrade1.Text > “” Then
Recherche2 = cb_grade1.Value
Recherche3 = cb_newgrade1.Value
For Each c In sh3.Range(“b3”, sh3.Range(“b5000”).End(xlUp))
If Recherche2 = c.Value Then
Ligne1 = c.Row
For Each d In sh3.Range(“c3”, sh3.Range(“c5000”).End(xlUp))
'Trouver la bonne position
If Recherche3 = d.Value Then
Ligne2 = d.Row
If Ligne1 = Ligne2 Then
'Affecté la durée trouvée
sh2.Range(“S13”).Value = sh3.Range(“D” & Ligne2).Value
Trouve = “OUI”
Exit For
End If
End If
Next
End If
Next
End If
If Trouve = “NON” Then
'Si duré non trouvé remettre à vide
sh2.Range(“S13”).Value = “”
End If

Alors voila, le dépassement de capacité se produit lorsque je choisi une valeur dans un combobox, il y a environ 40 valeurs dans ce combobox. et le dépassement de capacité se produit environ sur la 15ieme valeur et plus. Si je choisi la premiere, deuxieme, troisieme valeur, tout fonctionne à merveille.

Merci de votre aide

1/indente ton code
2/fait quelques années que j’ai arreté le VB, mais de mes souvenir pour accéder à la valeur courante ta combo fonctionne comme un tableau en recuperant l’index courant :
if(combo[combo.selectedindex].value = truc) then
'ton code
endif

vb ça pu… mais on peut quand meme coder propre

pour les next ajouter apres le nom de la variable a incrementer (je crois que c possible )

a mon avis t as une boucle infiny