VBA Excel
Résolu
nikomania
Messages postés
194
Date d'inscription
Statut
Membre
Dernière intervention
-
nikomania Messages postés 194 Date d'inscription Statut Membre Dernière intervention -
nikomania Messages postés 194 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai créé un tableau (en variable) dans lequel je note le nombre d'apparition de plusieurs médicaments.
Je voudrais afficher dans une feuille de résultats les 10 médicaments les plus cités...
Donc en gros je voudrais trier ma variable tableau par ordre décroissant
Ma variable est de type "Dim tableau(1 To 36) as Integer"
Est-il possible de le faire sans passer par des cellules Excel sans trop se prendre la tete ?
Merci d'avance.
j'ai créé un tableau (en variable) dans lequel je note le nombre d'apparition de plusieurs médicaments.
Je voudrais afficher dans une feuille de résultats les 10 médicaments les plus cités...
Donc en gros je voudrais trier ma variable tableau par ordre décroissant
Ma variable est de type "Dim tableau(1 To 36) as Integer"
Est-il possible de le faire sans passer par des cellules Excel sans trop se prendre la tete ?
Merci d'avance.
A voir également:
- VBA Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
3 réponses
Bonjour tt le monde
Ci dessous méthode générale de trii d'un tableau "Alplha" nbre correspondant au nombre d'éléments (ou Ubound(alpha))
For i = 1 To nbre
j = i
For k = j + 1 To nbre
If alpha(k) <= alpha(j) Then j = k
Next k
If i <> j Then
tmp = alpha(j)
alpha(j) = alpha(i)
alpha(i) = tmp
End If
Next i
Ci dessous méthode générale de trii d'un tableau "Alplha" nbre correspondant au nombre d'éléments (ou Ubound(alpha))
For i = 1 To nbre
j = i
For k = j + 1 To nbre
If alpha(k) <= alpha(j) Then j = k
Next k
If i <> j Then
tmp = alpha(j)
alpha(j) = alpha(i)
alpha(i) = tmp
End If
Next i
Merci beaucoup
Bonne journée