Erreur etrange !

Question

Bonjour a tous.

Je suis confronte a un probleme dont la solution doit etre extremement simple mais pourtant, je n'arrive pas a en trouver la solution ...

Voici le script :

Public Sub ProcessInvertebratesBis()

Dim i As Integer
Dim Taxon As String
Dim DateSample As String
Dim j As Double
Dim k As Double

i = 2
j = 2
k = 5

Do While Worksheets("INV DATA").Range("A" & i).Value <> ""
    Taxon = Worksheets("INV DATA").Range("C" & i).Value
    DateSample = NameMaker(i)
    
    Do While flag = 0
    
        If Taxon = Worksheets("Results").Range(TransfoNumbRow(j) & "4").Value Then
            If Worksheets("Results").Range("A" & k).Value = DateSample Then
                Range(TransfoNumbRow(j) & k).Value = Worksheets("INV DATA").Range("E" & i)
                flag = 1
                Else: k = k + 1
            End If
            Else: j = j + 1
        End If
    Loop
    flag = 0
    i = i + 1
Loop

End Sub

L'erreur est reportee sur la ligne rouge. (Application-defined or Object-defined error )
TransfoNumbRow est une fonction qui renvoie une String correspondant a un nom de colonne quand on lui donne un no;bre.
NameMaker renvoit une chaine de caractere construite avec les elements du tableau "INV DATA"

Est ce que c'est grave docteur  ?

Renfield · Answer

k As Double, soit une valeur décimale... étrange typage de données...

utilises donc un Long ^^

cs_Taeris · Answer

Voilà, c'est corrigé. 
J'ai également réinitialisé j=2 et k=5 juste avant de reinitialiser flag = 0 à la fin.

Ceci dit la même erreur persiste !

cs_Taeris · Answer

Petit up

cs_Taeris · Answer

Le Problème est résolu, l'erreur était inérente à la base de données ... Navré !

Erreur etrange !

4 réponses

Votre réponse

Discussions similaires