Discussion :

[topiane]

Bonjour,

Je désire crééer une macro pour trier une feuille Excel selon trois ordres de tri.
Le premier ordre de tri doit s'effectuer selon une liste personnalisés (38, 39, 31, 34, 36, 35, 52, 56, 08, 09, 10, 11) Colonne A
Le deuxième et troisième ordre de tri doivent se faire sur les colonnes N puis G selon l'odre croissant.

Merci beaucoup à celui qui pourra m'aider

[fring]

Bonjour,

Ci-joint le fichier avec la macro.
Ne sachant pas quoi faire avec les 12 et 15 je les ai triés en fin de liste

FICHIER TRI PERSONNALISE

[topiane]

Salut fring,

La macro fonctionne très bien et je t'en remercie.
J'ai une autre question.
La macro fonctionne t'elle si je rajoute 30 colonnes à trier ou des lignes.

Merci d'avance

[fring]

Si les lignes et les colonnes sont contigues, cad sans ligne ou colonne vide, oui pas de problème, sinon il faut légèrement adapter la macro.

[topiane]

Salut,

Sur les colonnes aucun problème.
Par contre, il m'arrive que certaines lignes soient vides.

Peux tu me dire les changements à executer.

Merci d'avance

[fring]

Je n'étais pas certains mais pas de problème, je viens de tester et en cas de lignes vides elles seront triées en fin de tableau

[topiane]

Salut Fring,

Je te remercie beaucoup pour ton aide et ta rapidité

[topiane]

Hello,

J'ai un petit souci avec la macro lorsque la ligne 2 est vide.
La ligne titre passe en fin de tri et cela me pose un problème.
Existe t'il une solution ?

Merci d'avance

[fring]

Oui ya une solution.

Change

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A2").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("O2") _
    , Order2:=xlAscending, Key3:=Range("H2"), Order3:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A2").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("O2") _
    , Order2:=xlAscending, Key3:=Range("H2"), Order3:=xlAscending, Header:= _
    xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

[topiane]

Salut,

Merci pour ta solution, elle fonctionne super.
Je maintenant crée une autre macro et je voudrais savoir comment créer la commande =INCORPORER("Forms.CommandButton.2";"")lancer.
Le système ne m'autorise pas à la créer.

Merci encore pour ta solution précédente

[fring]

Sur la FAQ de Microsoft office on peut lire ceci :

La fonction INCORPORER est une fonction interne utilisée par Excel. Bien que cette fonction apparaisse dans la barre Fonction, elle n'est pas destinée aux utilisateurs d'Excel.

Tu souhaites faire quoi ? Insérer un bouton sur ta feuille et lui affecter une macro ?

[topiane]

Salut,

Oui, c'est tout a fait ce que je veux.

[fring]

Ci-dessous le code avec quelques explications

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Ajout_CmdBut()
Dim Obj As OLEObject, x As Integer
 
'***********************************************************
'vérification des objets déjà présent sur la feuille
'pour attribution d'un numéro au bouton
x = ActiveSheet.OLEObjects.Count + 1
'***********************************************************
 
'***********************************************************
'Ajout CommandButton dans la feuille
Set Obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1")
'***********************************************************
 
'***********************************************************
'propriétés du bouton
With Obj
    .Name = "CommandButton" & x
    .Left = 300 '<-- position horizontale
    .Top = 5 '<-- position verticale
    .Width = 55 '<-- largeur
    .Height = 22 '<-- hauteur
    .Object.BackColor = RGB(255, 200, 0) '<-- couleur du bouton
    .Object.ForeColor = RGB(0, 0, 0) '<-- couleur du texte
    .Object.Font.Name = "Arial" '<-- police de caractères
    .Object.Font.Size = 10 '<-- taille de la police
    .Object.Font.Bold = True '<-- True = style gras / False = style normal
    .Object.Caption = "Test" '<-- texte sur le bouton
End With
'***********************************************************
 
'***********************************************************
'insertion du code qui sera exécuté via le bouton
Code = "Sub CommandButton" & x & "_Click()" & vbCrLf
Code = Code & "Sheets(""feuil2"").select" & vbCrLf
Code = Code & "msgbox ""Le code fonctionne""" & vbCrLf
Code = Code & "End Sub"
 
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    NextLine = .CountOfLines + 1
    .InsertLines NextLine, Code
End With
'***********************************************************
 
End Sub

[topiane]

Salut,

Merci beaucoup de ton aide.
J'espère que ma commande 2 fonctionnera.

A bientôt