Le portail francophone de la géomatique

jamal83 · Thu 03 May 2007 13:30

Bonjour tout le monde.

Je travail sur une application dans VBA en ArcGis 9.1

Je veux afficher le contenu d'un tableau en utilisant la fonction Console.Write.Line. Le code utilisé est le suivant:

Dim arr(5) As Integer

Dim i As Integer

For i = 0 To arr.GetUpperBound(0)

arr(i) = i * i

Next i

For i = 0 To arr.GetUpperBound(0)

Console.WriteLine("arr(" & i & ") = " & arr(i))

Next i

Mais il me signale l'erreur suivante lors de l'exection:

erreur n 424

objet requis

Y a quelqu'un qui peut m'aider à faire marcher ce code, ou me proposer une autre methode pour aficher le contenu d'un tablea dans VBA.

Merci

nico-29 · Thu 03 May 2007 13:53

la fonction Ubound renvoie l'indice maxi dans la dimension spécifiée.

ce code fonctionne :

Code:

Sub toto()

Dim tt(5) As Integer
Dim i As Integer

For i = 1 To UBound(tt)
    tt(i) = i * i
Next i

For i = 1 To UBound(tt)
    MsgBox "tt(" & i & ") = " & tt(i)
Next i


End Sub

jamal83 · Thu 03 May 2007 14:13

Merci ce code , marche. mais le probléme c'est que ce code affiche le contenu de chaque élément un par 1

Moi, je veux afficher tous les élément d'un tableau dans une seul fenetre sous la forme suivante
T(1)=
T(2)=
;
;
;
T(N)=

Merci pour votre aide

nico-29 · Thu 03 May 2007 14:23

essaye ça, pour l'affichage, on concatène tous les éléments du tableau dans une seule chaine

Code:

Sub toto()

Dim tt(5) As Integer
Dim i As Integer
Dim chaine as String

For i = 1 To UBound(tt)
    tt(i) = i * i
Next i

For i = 1 To UBound(tt)
    chaine=chaine & "tt(" & i & ") = " & tt(i) & chr(10)   'ici concaténation des éléments du tableau dans une seule chaine (chr(10) = caractère retour chariot)
Next i

MsgBox chaine

End Sub

jamal83 · Thu 03 May 2007 15:32

Merci beaucoup c'est exactement ce que je cherche.

Maintenant, je cherche une fonction qui permet de classer les element d'un tableau dans l ordre decroissant

Pouvez vous m'aider?

nico-29 · Thu 03 May 2007 15:56

ce code doit marcher
la fonction prend le tableau de valeurs en paramètre et renvoie le tableau trié

Code:

'tri un tableau de chaines par ordre décroissant
Function TriTab(t() As Integer) As Integer()

    Dim TabRes() As Integer
    Dim i As Integer, j As Integer
    Dim ttt As String

    ReDim TabRes(1 To UBound(t))
    For i = 1 To UBound(t)
        TabRes(i) = t(i)
    Next i
    
    For i = 1 To UBound(TabRes) - 1
        For j = i To UBound(TabRes)
            If TabRes(j) > TabRes(i) Then
                ttt = TabRes(i)
                TabRes(i) = TabRes(j)
                TabRes(j) = ttt
            End If
        Next j
    Next i

    TriTab = TabRes
    
End Function

nicolas valls · Thu 03 May 2007 16:28

je rajouterai an haut du module (avant toute procédure)
option compare text

Imaginons les mots suivant : Après, aller
Sans option compare text le classement donnera : Après , aller
Avec option compare text le classement donnera : aller, Après

jamal83 · Thu 03 May 2007 17:08

Merci beaucoup pou votre aide

Communauté	Ressources	L'emploi	Le marché	L'association	Fils RSS
Forum Blogs Wiki Planet Sites amis	Agenda Biblio Fiches AMO-CNIG Paris PCGIS Téléchargements	Offres d'emploi Banque de CV Formations Démarche Métiers	Geo-Entreprises Geo-Communiqué Appels d'offres	L'association Qui sommes-nous ? Nous aider Bienfaiteurs Partenaires Historique Statuts	Tout le site Job Géomatique Services GeoBlogs ...	Faire un don Mentions légales

Le portail francophone de la géomatique

Annonce

#1 Thu 03 May 2007 13:30

probleme dans VBA

#2 Thu 03 May 2007 13:53

Re: probleme dans VBA

Code:

#3 Thu 03 May 2007 14:13

Re: probleme dans VBA

#4 Thu 03 May 2007 14:23

Re: probleme dans VBA

Code:

#5 Thu 03 May 2007 15:32

Re: probleme dans VBA

#6 Thu 03 May 2007 15:56

Re: probleme dans VBA

Code:

#7 Thu 03 May 2007 16:28

Re: probleme dans VBA

#8 Thu 03 May 2007 17:08

Re: probleme dans VBA

Pied de page des forums