problème avec filtre

castor30 · 24 Février 2017

Bonjour
Je rencontre un problème avec ce code
Sub Filtrage()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
DerLig = [A10000].End(xlUp).Row
If ActiveSheet.AutoFilterMode Then
isOn = "On"
Range("E1:E" & DerLig).AutoFilter Field:=1
For i = 2 To DerLig Step 2
Range(Cells(i, "E"), Cells(i + 1, "E")).MergeCells = True
Next i
ActiveSheet.AutoFilterMode = False
Exit Sub
Else
isOn = "Off"
Range("E:E").Select
Selection.AutoFilter
End If

For i = 2 To DerLig Step 2
If Cells(i, "E") = "x" Then
Range(Cells(i, "E"), Cells(i + 1, "E")).MergeCells = False
Cells(i + 1, "E") = "x"
End If
Next i
Range("E:E" & DerLig).AutoFilter Field:=5, Criteria1:="x" 'cette ligne est surlignée en jaune
Application.Calculation = xlCalculationAutomatic
End Sub

Peut être est-ce parce que je suis sous xl2003
Je vous remercie

Lone-wolf · 24 Février 2017

Bonjour castor

Non, ce n'est pas ça le problème. Il faut réinitialiser l'autofiltre en remettant
Range("E1:E" & DerLig).AutoFilter Field:=5, Criteria1:="x"

castor30 · 24 Février 2017

Bonjour Lone-wolf
Merci de m'avoir répondu cependant le problème persiste, toujours en jaune

Lone-wolf · 24 Février 2017

Re

Essaie en mettant Range("a1:e65536").AutoFilter, parce-que Range("E1:E" & DerLig).AutoFilter Field:=1 c'est faux aussi, il faut partir de la colonne A à la dernière colonne remplie.

castor30 · 24 Février 2017

Bonsoir Lone-wolf
Avec Range("a1:e65536").AutoFilter ça fonctionne en effet
Merci beaucoup
Une dernière question, j'ai nommé la colonne "E" "Efface" mais je ne sais quel code y associer, veux-tu bien m'aider ?
Je souhaite effacer les X présents dans la colonne et supprimer le filtre après avoir imprimer la sélection.

Lone-wolf · 24 Février 2017

Re

Pas besoin de nommer la colonne.

VB:

'A METTRE DANS UN MODULE STANDARD
Option Explicit

Sub Suppression()
Dim plage As Range, derlig As Long, lig As Long, i As Long, critere As String
  With Sheets(1)
  lig = .Range("e" & Rows.Count).End(xlUp).Row
  Set plage = .Range("a1:i" & lig)

  critere = "x"
  plage.AutoFilter Field:=5, Criteria1:=critere, Operator:=xlAnd

  derlig = .Cells(Rows.Count, 5).End(xlUp).Row + 1

  For i = derlig To 2 Step -1
  If .Cells(i, 5) Like "*" & critere Then _
  .Rows(i).SpecialCells(xlCellTypeVisible).EntireRow.Delete
  Next i
  End With
  plage.AutoFilter
End Sub


'ET DANS LE MODULE DE LA FEUILLE

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call Suppression
Cancel = True
End Sub

castor30 · 25 Février 2017

Je te remercie Lone-wolf pour tant de gentillesse
Comment fais-tu pour mettre de la couleur dans tes codes ?

Lone-wolf · 25 Février 2017

Bonjour castor

À gauche de l'icône enregistrer, tu as l'icône qui ressemble à une feuille, clique dessus. Puis CODE , et dans la liste (Langue) tu choisi VB.

castor30 · 25 Février 2017

Encore merci Lone-wolf
Je te souhaite un XL lent week-end

Lone-wolf · 25 Février 2017

De même castor

problème avec filtre

castor30

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

castor30

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

castor30

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

castor30

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

castor30

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Discussions similaires