erreur d'execution '6' ????? KESAKO

Question

bonjour

ai un probleme que je considere comme insoluble
lors de l'execution de cette fonction j'obtiens un msg d'erreur au moment du retour de la fonction:
erreur d'execution'6'
depassement capacite


Function Auxiliaire(code As String) As Integer
''fonction renvoyant le compte auxiliaire rattache au N° article
Dim nbligne As Integer
Dim ligne As Integer
nbligne = TotalLigne(1)'compte le nombre de ligne de la feuille1
For ligne = 3 To nbligne
    If Worksheets(1).Cells(ligne, 1).Value = code Then'si je trouve le code dans ma colonne je retourne l'auxiliaire
    Auxiliaire = Worksheets(1).Cells(ligne, 7).Value
    End If
Next ligne
End Function



je ne comprends pas donc si vous voyez pkoi dites moi
merci
@@++

cs_rene38 · Answer

et "auxiliaire" est censé valoir combien ?

king_kunu · Answer

"auxiliaire" est le retour de la fonction
je veux ke la fonction me renvoie la valeur de la cellule auxiliaire corespondante a la valeur de la cellule code

cs_rene38 · Answer

J'entends bien mais peux-tu donner des exemples de cette valeur de la cellule auxiliaire ?

crenaud76 · Answer

Tu dois dépasser la valeur limite des integer, soit 32767 !!

Christophe R.

king_kunu · Answer

tou just christophe...
ca m'ai revenu ce matin au reveil.
les valeurs de auxiliaire sont des numeo de compte(compte auxiliaire en fait)...
donc sur 6 chiffre...d'ou l'utilisation de double a la place de integer...

merci pr vos reponse...

cs_rene38 · Answer

Utilise Long plutôt que Double puisque tu n'as pas besoin de virgule : 
tient 2 fois moins de place 
et accepte jusqu'à 2 147 483 647

king_kunu · Answer

merci rene

Erreur d'execution '6' ????? KESAKO

7 réponses

Discussions similaires