Discussion :

[ValentinFleury]

Bonjour à tous.

J'ai commencé un début de macro et j'aurais besoin d'un peu d'aide pour la finir.

Vous pouvez trouver en pièce jointe un fichier Excel avec la macro en question.

Voici mon soucis :

=> Ma macro sélectionne la deuxième ligne contenant la cellule "Division", qui correspondant à la 2ème ligne en gris et applique un filtre automatique sur la ligne.

Je souhaite sélectionner sur la colonne E, la deuxième cellule ayant pour contenu 'N° Composante' et lui donner un nom, par exemple 'Triage' => Jusque là, je m'en tire pas trop mal, mais je ne sais pas si cette cellule doit être indiqué en 'dim' 'long' ou autre au début de la macro.

=> Par la suite, je souhaite que ma macro sélectionne la cellule nommé Triage par le code (qui correspondant a la 2ème cellule 'N° Composante', se trouvant sur la 2ème ligne grisée) et lui indique de filtrer par Ordre croissant.

Je précise que la cellule 'N° Composante' se trouve toujours en colonne E, mais pas toujours sur la même ligne.

Pourriez-vous m'aider ?

Merci

[Jean-Philippe André]

Bonjour,

le fait de déposer une pièce jointe dès le premier post d'une discussion n'est pas recommandé.

Je t'encourage à nous copier ton code VBA qui te pose problème, avec éventuellement une capture d'écran si cela est pertinent.

Merci

[ValentinFleury]

Bonjour, pas de soucis

Voici le code :

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
'Triage feuille référence
Sheets("Référence").Select
Selection.AutoFilter
Columns("A:A").Select
'Cherche la cellule avec "Division"
Columns("A:A").Cells.Find(What:="Division", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True).Activate
Cells.FindNext(After:=ActiveCell).Activate
'rends active la ligne de la cellule
Rows(ActiveCell.Row).Select
'place le filtre
Selection.AutoFilter
 
 
 
'Sélection colonne'
Columns("E:E").Select
 
'Recherche catégorie 'N° Composante'
Cells.Find(What:="N° composante", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False).Activate
     Cells.FindNext(After:=ActiveCell).Activate      
 
'Donne un nom à la 2ème cellule ayant pour nom 'N° Composante
ActiveCell.Select.Name = "Triage"
 
 
' Applique un filtre, triage par ordre croissant de la 2ème cellule 'N° Composante' jusqu'à la dernière ligne
ActiveSheet.Range("Triage").Select
Selection.AutoFilter Field:=3, Criteria1:=".1"
Range("A39:J1599").Sort Key1:="Triage", Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers

Le problème, comme dit plus haut, est que je n'arrive pas à appliquer un triage par ordre croissant sur le filtre, placé sur la 2ème cellule ayant pour nom 'N° composant' (celui-ci pouvant librement bouger d'un tableau à l'autre sur sa colonne)

J'essaye de lui donner un nom pour appliquer le filtre à la cellule possédant ce nom, mais je n'y arrive pas.