J'utilise le code ci dessous depuis X ann=C3=A9es avec un raccourci dans m=
es macro perso.
Sub Supprime_lignes_filtrees()
' Touche de raccourci du clavier: Ctrl+Maj+S
If MsgBox("Etes vous s=C3=BBr de vouloir supprimer les filtr=C3=A9es ?", vb=
YesNo) =3D vbYes Then
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=3DxlUp
ActiveSheet.ShowAllData
Else
MsgBox "Annul=C3=A9"
End If
End Sub
Et aujourd'hui, cela ne fonctionne plus et affiche l'erreur 1004 (je n'ai =
rien chang=C3=A9, c'est toujours XL2016 depuis 8 mois).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michd
Bonjour, Les filtres créent des noms masqués. Afin de s'assurer qu'à chaque filtre, la plage de cellules représentées par ces noms est mise à jour selon l'étendue des données, utilise ce type de procédure avant de lancer la procédure ta procédure. Dans ta procédure de filtre, appelle cette procédure dès le tout début de la procédure en y ajoutant une ligne de code : Call Suppression_Noms_Masqués_des_Filtres suivi du code de ta procédure de filtre. '----------------------------------- Suppression_Noms_Masqués_des_Filtres() ' Delete names On Error Resume Next With ActiveWorkbook .Names("_FilterDatabase").Delete .Names("Criteria").Delete .Names("Extract").Delete End With End Sub '----------------------------------- MichD
Bonjour,
Les filtres créent des noms masqués. Afin de s'assurer qu'à chaque filtre, la plage de cellules
représentées par ces noms est mise à jour selon l'étendue des données, utilise ce type de procédure
avant de lancer la procédure ta procédure. Dans ta procédure de filtre, appelle cette procédure dès
le tout début de la procédure en y ajoutant une ligne de code : Call
Suppression_Noms_Masqués_des_Filtres suivi du code de ta procédure de filtre.
'-----------------------------------
Suppression_Noms_Masqués_des_Filtres()
' Delete names
On Error Resume Next
With ActiveWorkbook
.Names("_FilterDatabase").Delete
.Names("Criteria").Delete
.Names("Extract").Delete
End With
End Sub
'-----------------------------------
Bonjour, Les filtres créent des noms masqués. Afin de s'assurer qu'à chaque filtre, la plage de cellules représentées par ces noms est mise à jour selon l'étendue des données, utilise ce type de procédure avant de lancer la procédure ta procédure. Dans ta procédure de filtre, appelle cette procédure dès le tout début de la procédure en y ajoutant une ligne de code : Call Suppression_Noms_Masqués_des_Filtres suivi du code de ta procédure de filtre. '----------------------------------- Suppression_Noms_Masqués_des_Filtres() ' Delete names On Error Resume Next With ActiveWorkbook .Names("_FilterDatabase").Delete .Names("Criteria").Delete .Names("Extract").Delete End With End Sub '----------------------------------- MichD