Mauvaise fonction
Résolu
cs_simon22
Messages postés
161
Date d'inscription
vendredi 8 octobre 2004
Statut
Membre
Dernière intervention
20 août 2015
-
21 janv. 2006 à 20:43
cs_simon22 Messages postés 161 Date d'inscription vendredi 8 octobre 2004 Statut Membre Dernière intervention 20 août 2015 - 21 janv. 2006 à 23:09
cs_simon22 Messages postés 161 Date d'inscription vendredi 8 octobre 2004 Statut Membre Dernière intervention 20 août 2015 - 21 janv. 2006 à 23:09
A voir également:
- Mauvaise fonction
- Fonction arctan excel - Forum VBA Office (Excel, Word ...)
- Sub ou fonction non définie ✓ - Forum Visual Basic 6
- Problème avec ... Erreur de compilation: Procédure Sub ou Function non définie ✓ - Forum Visual Basic 6
- Procedure Sub ou fonction non définie... - Forum Visual Basic
- Fonction puissance recursive - Conseils pratiques -PHP
4 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
21 janv. 2006 à 22:58
21 janv. 2006 à 22:58
C'est probablement parce que tu as plus de 101 lignes dans ton fichier texte.
Dim info(343543543) As String
A toi de dimensionner correctement le tablo info( )
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Dim info(343543543) As String
A toi de dimensionner correctement le tablo info( )
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
21 janv. 2006 à 22:39
21 janv. 2006 à 22:39
Ta fonction ne marchera que si les données dans ton fichier texte sont séparées par des virgules.
Sinon, il fait utiliser Line Input au lieu de Input.
Et il faut, dans ton cas, que le tableau info() ait été déclaré en public, sinon, à la sortie de la fonction, tu le perds.
Public info(100) As String
Public Sub charger()
Dim i As Integer
Dim sTemp As String
i=0
Open App.Path & "\0121" For Input As #1
While Not EOF(1)
Line Input #1, sTemp
info(i) = sTemp
i = i + 1
Wend
Close #1
End Sub
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Sinon, il fait utiliser Line Input au lieu de Input.
Et il faut, dans ton cas, que le tableau info() ait été déclaré en public, sinon, à la sortie de la fonction, tu le perds.
Public info(100) As String
Public Sub charger()
Dim i As Integer
Dim sTemp As String
i=0
Open App.Path & "\0121" For Input As #1
While Not EOF(1)
Line Input #1, sTemp
info(i) = sTemp
i = i + 1
Wend
Close #1
End Sub
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
cs_simon22
Messages postés
161
Date d'inscription
vendredi 8 octobre 2004
Statut
Membre
Dernière intervention
20 août 2015
21 janv. 2006 à 22:48
21 janv. 2006 à 22:48
oui javai bien déclaré mon tableau
aprés avoir remplacer mon code par le tien il me dit :
SubScript out of range
sur la ligne info(i) = sTemp
simon22
aprés avoir remplacer mon code par le tien il me dit :
SubScript out of range
sur la ligne info(i) = sTemp
simon22
cs_simon22
Messages postés
161
Date d'inscription
vendredi 8 octobre 2004
Statut
Membre
Dernière intervention
20 août 2015
21 janv. 2006 à 23:09
21 janv. 2006 à 23:09
a oui normalemen mon fichier ne composque 11 ligne mais aparamen il en fai 12
bon bas merci pour tous
simon22
bon bas merci pour tous
simon22
