Problème Mise en place Filtre par VBA

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion gant1801
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

gant1801

XLDnaute Junior
Bonjour,
J'ai réalisé le code suivant qui me permet de mettre en place un filtre en fonction de plusieurs critères.
Néanmoins j'ai deux problèmes lors de la mise en place du filtre:
- Ce dernier effectue un changement de hauteur de ligne (certaines lignes étant plus hautes que d'autres), et ainsi certaines lignes deviennent très peu hautes alors que d'autres prennent la hauteur de la ligne qui était là avant...
- L'autre soucis étant que, lorsque j'exécute ma macro, celle-ci sélectionne certaines cellules qui normalement font appel à un Msgbox. Le Msgbox apparaît donc comme un pop-up et Application.Displayalerts ne suffit pas pour l'arrêter.

Merci beaucoup de votre aide

Code: 
Private Sub Workbook_Open()

Application.DisplayAlerts = False

Sheets("Vins").Select

    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("T6:T38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
        , 255, 255)
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("T6:T38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(253 _
        , 82, 87)
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("T6:T38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(250 _
        , 164, 71)
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("T6:T38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(128 _
        , 255, 129)
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("T6:T38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(226 _
        , 255, 139)
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("T6:T38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(247 _
        , 255, 178)
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("B6:B38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
        , 255, 255)
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("B6:B38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(208 _
        , 54, 99)
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("B6:B38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
        , 236, 143)
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("B6:B38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
        , 199, 206)
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("B6:B38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
        , 232, 137)
    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range("B6:B38" _
        ), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
        , 199, 206)

    ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "J6:J38"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
Application.DisplayAlerts = True

Sheets("Présentation").Select
Sheets("Listing appellations").Visible = False
End Sub
 
Trier par date Trier par votes
Re : Problème Mise en place Filtre par VBA

Bonjour,
Après de nombreux essais, j'ai (miraculeusement) trouvé une solution à mon problème et ma macro semblait s'exécuter à merveille... Mais une fois enregistré mon classeur, lors de la réouverture un problème apparait!
"Impossible d'ouvrir le document Excel car une partie de son contenu est illisible. Voulez-vous ouvrir et réparer ce classeur?"
Il semblerait que l'erreur vienne du Sub Péremption_Couleur, mais je n'ai aucune idée de pourquoi.
Si vous avez une quelconque information qui pourrait m'aider je vous en serait très reconnaissant!
Merci à tous

Sub Ligne_en_trop()

Dim I As Integer
I = Range("B65000").End(xlUp).Row + 1
If Cells(I, 2).Borders(xlEdgeBottom).LineStyle <> xlNone Then
If Cells(I, 2).Value = 0 Then
Rows(I).Select
Selection.Delete Shift:=xlUp
End If
End If

End Sub

Sub Revoir_hauteur_ligne()

Dim J As Integer
Dim K As Integer
J = Range("B65000").End(xlUp).Row + 1
For K = 6 To J
Rows(K).EntireRow.AutoFit
Rows(K).RowHeight = WorksheetFunction.Max(28, Rows(K).RowHeight)
Next K

End Sub

Sub Péremption_Couleur()

Dim J As Integer
J = Range("B65000").End(xlUp).Row

ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 20), Cells(J, 20) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
, 255, 255)
ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 20), Cells(J, 20) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(253 _
, 82, 87)
ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 20), Cells(J, 20) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(250 _
, 164, 71)
ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 20), Cells(J, 20) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(128 _
, 255, 129)
ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 20), Cells(J, 20) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(226 _
, 255, 139)
ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 20), Cells(J, 20) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(247 _
, 255, 178)

ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 2), Cells(J, 2) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
, 255, 255)
ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 2), Cells(J, 2) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(208 _
, 54, 99)
ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 2), Cells(J, 2) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
, 236, 143)
ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 2), Cells(J, 2) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
, 199, 206)
ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 2), Cells(J, 2) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
, 232, 137)
ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add(Range(Cells(6, 2), Cells(J, 2) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
, 199, 206)

ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort.SortFields.Add Key:=Range( _
Cells(6, 10), Cells(J, 10)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal

With ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub


Sub Tri_Péremption_Couleur()

Ligne_en_trop
Range("B6").Select
Péremption_Couleur
Revoir_hauteur_ligne
Range("B6").Select

End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Problème Mise en place Filtre par VBA

Bonjour à tous

gant1801
Pour commencer dimensionnes en Long
Dim I As Long
et
Dim J As Long
Ensuite tu enregistres ton classeur avec quelle extension; *.xlsm ou *.xls ou *.xlsx ?

PS: Désolé que le fait que tu joignes un fichier comme je te l'avais suggéré n'ai pas attiré plus de monde dans ton fil en 2013 😱
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème Mise en place Filtre par VBA

Rebonjour,

Merci a toi de répondre, ne t'en fais pas si ce sujet n'inspire guère grand monde…

J'ai trouvé le soucis:
Le bout de code suivant était en double, en fait il y en avait un qui avait un quadrillage en plus dans la MFC, mais qui n'était pas inclus dans ce filtre, ce qui faisait un conflit...
Code: 
ActiveWorkbook.Worksheets("Vins").AutoFilter.Sort. SortFields.Add(Range(Cells(6, 2), Cells(J, 2) _
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255 _
, 199, 206)

Ce problème est donc résolu pour le beug. J'ai par ailleurs changé mes intègre par long, ce qui n'a pas d'incidence pour l'instant vu que mon tableur ne comporte pas trop de lignes mais on ne sait jamais.

Merci a toi

Gant
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
716
Averell1976
A
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
950
MickaeL_D
M
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
Usine à gaz
  • Résolu(e)
Microsoft 365 tri feuille
2
Réponses
29
Affichages
3 K
Usine à gaz
Usine à gaz
zayab
  • Résolu(e)
XL 2016 Dupliquer une feuille contenant un tableau anonyme trié par vba
Réponses
4
Affichages
920
zayab
zayab
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
AtTheOne
H
  • Résolu(e)
XL 2016 [Résolu] VBA pour mise en forme conditionnelle
Réponses
2
Affichages
652
Hynnuh
H
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
1 K
vgendron
vgendron
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
Hasco
F
  • Résolu(e)
Microsoft 365 VBA erreur d'exécution 1004 : méthode range de l'objet _global
2
Réponses
17
Affichages
3 K
Dranreb
Dranreb
Mirguy23
  • Question Question
XL 2010 Macro Synthèse Excel Vba
Réponses
0
Affichages
1 K
Mirguy23
Mirguy23
D
  • Question Question
XL 2016 Trier une liste en fonction de plusieurs critères en VBA? (et pas en mode enregistrement macro)
Réponses
1
Affichages
2 K
doublenico
D
D
  • Question Question
Problème VBA
Réponses
1
Affichages
948
Dureux
D
D
  • Question Question
XL 2016 VBA-Filtre Avancé
Réponses
6
Affichages
2 K
Dureux
D
N
  • Question Question
Bug données Macro
Réponses
4
Affichages
1 K
nomitse
N
S
  • Résolu(e)
Microsoft 365 Problème de transfert de données
Réponses
1
Affichages
1 K
SCorbeil
S
D
  • Question Question
XL 2013 mise en forme conditionnelle sur plusieurs onglets
Réponses
0
Affichages
1 K
Dombal
D
A
  • Question Question
VBA EXCEL: Application d'un code VBA pour toutes les feuilles EXCEL
Réponses
2
Affichages
674
Aragon10
A
C
  • Question Question
XL 2013 Problème de tri en VBA
Réponses
6
Affichages
2 K
cvasse
C
T
  • Question Question
variable filtre et nom code instable mais pourquoi ?
Réponses
10
Affichages
1 K
tony555
T
Retour