Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

+ Base de données
+ Administrateur
+ Table
+ Requête
+ Formulaire
+ Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
 -  Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
117 Abonnés
 
 

Equivalence - Fonction fSortArray

Description 

Cette fonction permet de trier une variable tableau à une dimension par ordre croissant ou décroissant.

 
Synthaxe 

fSortArray (varArray, intOrder)

La synthaxe de la fonction fSortArray comprend les éléments suivants :

ElémentsDescription
varArrayVariable tableau que l'on souhaite trier.
IntOrderExpression numérique permettant de spécifier l'ordre de tri souhaité de la variable tableau (1 pour un ordre croissant et -1 pour un ordre décroissant).
 
Exemple 

La fonction pourra être appelée de cette manière :

Variable_Triee = fSortArray(Variable_a_Trier , 1)

Dans cet exemple, la variable sera triée par ordre croissant.

Ou si l'on souhaite garder la même variable tableau mais triée, il suffira de l'appeler de cette manière :

fSortArray Variable_a_Trier, 1

 
Code de la fonction 


Function fSortArray(varArray, intOrder%) As Variant
'** Trier une variable tableau par ordre croissant ou décroissant
'** Tri croissant intOrder = 1
'** Tri décroissant intOrder = -1

    Dim i As Long
    Dim j As Long

    For i = LBound(varArray) To UBound(varArray) - 1
        For j = i + 1 To UBound(varArray)
            If StrComp(varArray(i), varArray(j), vbTextCompare) = intOrder Then
                tmp = varArray(j)
                varArray(j) = varArray(i)
                varArray(i) = tmp
            End If
        Next j
    Next i
    fSortArray = varArray

End Function

 


Date de création : 16/02/2007 @ 13:08
Dernière modification : 19/02/2007 @ 08:36
Catégorie : Equivalence
Page lue 1642 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 79 Membres

membres les 10 derniers :
CJ6774   monaker   Jerry   jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 7

Total visites : Total visites : 174512  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 1.33 secondes