Déclaration de tableauRésolu

Question

Voila mon prob,

Dans mon programme, je clik sur un bouton "ouvrir", je load un fichier
que je lis et que je rentre dans un tableau, avec les donn&#233;es de ce
tableau je voudrais faire un calcul mais j'arrive pas a acceder au
tableau, j'ai l'impression que des que la Sub a fini d'etre execut&#233;e,
le tableau disparait .... Que faire, que faire ??? JE voudrais bien
garder tout le temps le tableau en m&#233;moire ... Au niveau de la
fonction, c ok, moi je voudrais juste bien pig&#233; la d&#233;lcaratin de ce
tableau pour la suite





Option Explicit



Private Sub Form_Load()

Static data()

End Sub



Public Static Sub Ouvrir_Click()

Dim Ligne_courante As Variant

Dim Ligne_courante2 As Variant

Dim Ligne As String

Dim nFic

Dim s, i, j, nbr_ligne, nbr_colonne

i = 0

j = 0

    ' Saisie le nom du fichier

    On Error Resume Next

    CMDialog.ShowOpen

    ' Annulation

    If Err Then Exit Sub

    

    Je lis un fichier et trouve son  nombre de ligne et de colonne.

    

    ReDim data(nbr_ligne - 2, nbr_colonne) /je redimension mon tableau dynamik a la bonne taille

    

    je remplis le tableau



End Sub



Public Static Sub Command2_Click()

Dim debut, fin As Integer

Dim result As Boolean

Dim i



debut = CInt(Text1.Text)

fin = CInt(Text2.Text)

Text3.Text = validite(debut,fin), je lance la fonction validit&#233; et la ca plante !!!!!

End Sub



Public Function validite (deb as integer, fin as integer) as boolean



For i = debut To fin

If data(i, 2) = "D" Then

count = count + 1

End If

Next



validite = ((count / (fin - debut)) >= 0.75)

Text3.Text = validite



End Function

Gobillot · Accepted Answer

une variable déclarée en Static dans une Sub n'est visible que pour cette Sub. si tu veux qu'elle soit visible pour toute la Forme, il faut mettre la déclaration au niveau général donc juste derrière option Explicit. ps: évite le type Variant qui consomme plus de mémoire et plus de temps de tritement Option Explicit ~~Private Sub Form_Load() Static data() End Sub~~ Dim data() As String Daniel

cs_akdmks · Answer

Euh ben j'ai mis comme tu as dis, mais je n'arrive tjs pas aller dans le tableau .. d&#233;sol&#233;

cs_akdmks · Answer

Option Explicit

Dim data() As String



Private Sub Accueil_Click()

Form2.Hide

Form1.Show

End Sub





Public Static Sub Ouvrir_Click()

Dim Ligne_courante As Variant

Dim Ligne_courante2 As Variant

Dim Ligne As String

Dim nFic

Dim s, i, j, nbr_ligne, nbr_colonne

i = 0

j = 0

    ' Saisie le nom du fichier

    On Error Resume Next

    CMDialog.ShowOpen

    ' Annulation

    If Err Then Exit Sub

    

    ' Ouvre le fichier

    On Error GoTo ErrOuv

    nFic = FreeFile

    Open CMDialog.FileName For Input As nFic



    ' Le lit

    

    nbr_ligne = -1   'calcul du nombre de ligne du fichier !!!

    Do

    Input #nFic, Ligne

    Ligne_courante = Ligne

    nbr_ligne = nbr_ligne + 1

    Loop While (Ligne <> "")

    

    Reset

    Open CMDialog.FileName For Input As nFic

    Input #nFic, Ligne

    Input #nFic, Ligne

    Ligne_courante = Split(Ligne, ";")

    nbr_colonne = UBound(Ligne_courante)

    

    Reset

    

    ReDim data(nbr_ligne - 2, nbr_colonne)

    

    Open CMDialog.FileName For Input As nFic

    On Error GoTo ErrLit

    Input #nFic, Ligne

    Do While Not EOF(nFic)

        Input #nFic, Ligne

        Ligne_courante2 = Split(Ligne, ";")

        For Each s In Ligne_courante2

        data(i, j) = s

        j = j + 1

        Next

        j = 0

        i = i + 1

    Loop

      

      ' Ferme le fichier

    Close nFic



    Exit Sub



' Erreur &#224; l'ouverture

ErrOuv:

    MsgBox "Ne peut ouvrir le fichier " +
CMDialog.FileName + Chr(13) + "Erreur" + Str(Err.Number) + " - " +
Err.Description

    Exit Sub

    

' Erreur &#224; la lecture ou au remplissage

ErrLit:

    MsgBox "Erreur &#224; la lecture ou au remplissage" +
Chr(13) + "Erreur" + Str(Err.Number) + " - " + Err.Description

    Close nFic

    Exit Sub

End Sub



Private Sub Quitter_Click()

Form2.Hide

End

End Sub



Public Static Sub Command2_Click()

Dim debut, fin As Integer

Dim result As Boolean

Dim i

Dim validite



debut = CInt(Text1.Text)

fin = CInt(Text2.Text)



If (validite(debut, fin) = False) Then

Text3.Text = "ok"

End If



End Sub



Public Function validite(d As Integer, f As Integer) As Boolean

Dim count As Integer



For i = d To f

If data(i, 2) = "D" Then

count = count + 1

End If

Next



validite = ((count / (fin - debut)) >= 0.75)

End Function

cs_Warning · Answer

Deja je te conseil d'enlever le on error resume next car &#231;a t'empeche de voir s'il y a une erreur dans ton code qui empeche de remplir le tableau correctement. 


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

Déclaration de tableau

4 réponses

Discussions similaires