Problème de dépassement de capacité

Question

Bonjour,

je sollicite votre aide concernant une partie de mon programme qui bug. Cette petite partie de code est censé récupérer le numéro de ligne d'une feuille excel où se trouve la valeur de L et la valeur de s.

On parcourt la premiere colonne qui correspond au L et on parcourt ensuite la deuxieme colonne qui correspond au s.

Le petit programme marche parfois mais lorsque je réitére le calcul, il bug et m'affiche :

Erreur d'execution 6 : dépassement de capacité.

Si quelqu'un peut me venir en aide, ce serait gentil de votre part. Merci d'avance

Florian


Public Sub rangTableau(ByVal L As Long, ByVal s As Long, ByVal destination As String)

Dim i As Double
Dim varL As Double
Dim vars As Double
i = 4
vars = 0
varL = 0

Do
    varL = ThisWorkbook.Worksheets(Feuil2).range("A" & CStr(i)).Value
    If varL = L Then Exit Do
    If varL = Null Then Exit Do
    If varL = 0 Then Exit Do
    i = i + 1
Loop

Do
    vars = ThisWorkbook.Worksheets(Feuil2).range("B" & CStr(i)).Value
    If vars = s Then Exit Do
    If vars = Null Then Exit Do
    If vars = 0 Then Exit Do
    i = i + 1
Loop
ligne = i
ThisWorkbook.Worksheets(Feuil1).range(destination).Value = _
    ligne
End Sub

ucfoutu · Answer

Bonjour,

- VBA n'étant pas VB6, efforce-toi la prochaine fois de "poster" dans la section adéquate.

- If varL = Null
N'est pas possible, sauf si (m'étonnerait beaucoup) tu as déclaré une variable Null.

Ouvre ton aide VBA sur la fonction IsNull 
Une très bonne habitude : mettre
Option Explicit 
tout en haut de chaque module de codee  (Tu aurais alors vu comment Null était dénoncé)



____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

Problème de dépassement de capacité

1 réponse

Votre réponse

Discussions similaires