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