macro excel tri numérique

[dfresh]

Bonjour,
j'ai voulu utiliser les lignes de codes suivantes pour trier des feuilles excel selon le numéro que j'avais attribué à une cellule de mon classeur. Les numéros sont associés toujours dans la même cellule. Le problème c'est que ce programme me trie les valeurs selon le premier chiffre, je me retrouve donc avec le numéro 100 puis 1001 et en dernier j'ai le numéro 99 par exemple. Je suis nul en progammation visual et je voudrais savoir si quelqu'un pourrait m'aider pour modifier les lignes de codes que j'utilise.
Cordialement.

Sub ma()
'Sub TrierOnglets()
Dim i&, j&, Dat(), v1$, v2$
ReDim Dat(1 To Sheets.Count, 1 To 2)
For i = 1 To Sheets.Count
Dat(i, 1) = UCase(Sheets(i).[R2].Value): Dat(i, 2) = Sheets(i).Name
Next i
For i = 1 To Sheets.Count
v1 = Dat(i, 1): v2 = Dat(i, 2)
For j = 1 To Sheets.Count
If Dat(j, 1) < v1 Then Dat(i, 1) = Dat(j, 1): Dat(j, 1) = v1: v1 = Dat(i, 1): Dat(i, 2) = Dat(j, 2): Dat(j, 2) = v2: v2 = Dat(i, 2)
Next j
Next i
For i = 1 To Sheets.Count
Sheets(Dat(i, 2)).Move before:=Sheets(1)
Next i
End Sub

 

[dfresh]

Re : macro excel tri numérique

Je voudrais savoir si cela est possible et si vous connaissez une macro capable de le faire.
Merci

 

[bond]

Re : macro excel tri numérique

J'avoue que j'ai un peu de mal à lire/comprendre ton sub, mais peut être une piste en requalifiant les variables v1 et v2 en numérique :

v1&, v2&

 

[dfresh]

Re : macro excel tri numérique

Et comment tu fais pour repasser ces variables en numérique, je suis nul en programmation et j'ai trouver ces lignes de codes sur un site.

 

[dfresh]

Re : macro excel tri numérique

je pense qu'il faudrait dire au programme de trier d'abord tous les nombres à 1 chiffre puis tous les nombres à 2 chiffres jusqu'au nombre à 4 chiffres. Est ce que quelqu'un sait faire cela?

 

[bond]

Re : macro excel tri numérique

Essayes de remplacer

Dim i&, j&, Dat(), v1$, v2$

Par :

Dim i&, j&, Dat(), v1&, v2&

 

[dfresh]

Re : macro excel tri numérique

Je te remercie mais ce changement créé une incompatibilité de type avec le programme. Je mets le meme type de fichier en ligne pour que cela soit plus clair. Je voudrais trier les onglets par rapport aux numéros de la cellule R2.

 

[bond]

Re : macro excel tri numérique

ça semble fonctionner en changeant uniquement le type de la variable v1 : v1&
donc remplace

Dim i&, j&, Dat(), v1$, v2$

par

Dim i&, j&, Dat(), v1&, v2$

 

[dfresh]

Re : macro excel tri numérique

tu n'a pas eu de probleme pour debuguer car moi ça ne marche pas

 

[bond]

Re : macro excel tri numérique

Aucun pb, voici le fichier avec son code.

 

[dfresh]

Re : macro excel tri numérique

Ok merci ça marche maintenant, tu m'as évité pas mal de perte de temps.