VBA et macro

[invitef5fb8d29]

bonjours a tous,
j'ai un petit exercice a faire:
Etablir l'algorithme qui classe en ordre décroissant les n entiers dans un tableau, les n entier étant classé de façon aléatoire.
J'aimerais avoir votre aide sur la manière dont je pourais procéder, sachant que je ne peux pas utiliser les tableaux ^^.
Merci d'avance
-----

[invitef17c7c8d]

Sub Classement()

N=100 ' Nombre d'entier à classer

For i=1 to N
Entier =Int(ActiveSheet.Cells(i,1).Va lue)


Next

End Sub

[invitef5fb8d29]

bonjour,
merci de votre réponce.
Mais je n'ais pas trop bien compris.
For...Next
Cells(...).
Je devais normalement uniquement Do while,If,Select Case.
Car j'ai appris que sa ^^.
merci d'avance

[invitef17c7c8d]

Bonjour

Je ne sais pas si ça peut vous aider ....

Sub Classement()

N=100 ' Nombre d'entier à classer
Dim Entier (1 to N) , EntierClasse(1 to N)
For i=1 to N
Entier(i) =Int(ActiveSheet.Cells(i,1).Va lue)
Next
k=-1
EntierClasse(1)=Entier(1)
For i=i to N
k=k+1
For j=1 to (N-k)
If EntierClasse(k)>Entier(j) Then
EntierClasse(k)=Entier(j)
End if
Next
Next

For i=1 to N
ActiveSheet.Cells(i,2).Value =EntierClasse(i)
Next

End Sub

[A voir en vidéo sur Futura]

[invitef17c7c8d]

Désolé pour le message précédent, j'ai envoyé la réponse par erreur ...

J'ai supposé que les valeurs était dans une feuille Excel et dans la première colonne: Cette fonction, c'est juste pour lire les valeurs :ActiveSheet.Cells(i,1).Value;

[invitef5fb8d29]

Rebonjour,
Merci de votre réponce.
Mais que veux dire:
Int(ActiveSheet.Cells(i,1).Val ue)
et j'aimerais savoir pourquoi le programme que vous m'avez envoyer ne fonctionne pas.
Le but du programme est lorsque sur exel je met des valeurs sur une colone A, Grace au programme les valeurs misent sur la colonne A, sont placer de manière croissant dans la colone B.
merci

[invitef5fb8d29]

Rebonjour,
J'ai essayé de faire le programme et voici ce que sa donne:

Sub Classement()
Dim m As Integer 'la première Valeur
Dim n As Integer 'la deuxième Valeur
Dim l As Integer 'la cellule où ira la Valeur
n=1
l=1
m = n+1
Do While l =4
Do while n = 5
If (Cells(n,1) < Cells(m,1) Then 'Compare la première et la seconde Valeur
Cells(n,1) = Cells(l,h)
Else
Cells(m,1) = Cells(l,2)
End If
n = n+1
Loop
l = l+1
Loop

End Sub


Le problème de mon programme est qu'il prendra toujours la valeur la plus faible, et donc il prendra pas la valeur supérieur.
J'aimerais savoir si mon programme fonctionne ou non malgrè ce problème? Si non, j'aimerais connaître les erreures que j'ai faites.
Merci d'avance

[invitef5fb8d29]

Rebonjour,
Pardon l Représente le nombre de valeur à comparer, qui on été écris dans le tableau.

[Dormeur74]

Autre proposition qui trie la colonne A

Private Sub CommandButton1_Click()
  Dim Colonne As String
  
  Colonne = "A1"
  ' On trie la colonne A dans un ordre croissant
  Range(Colonne).Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub