Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Conserver une MFC avec un filtre élaboré

Conserver une MFC avec un filtre élaboré

7 réponses
Avatar
Apitos
Bonjour =C3=A0 tous,

Comment puis-je conserver une mise en forme conditionnele lors d'une applic=
ation d'un filtre =C3=A9labor=C3=A9 ?

'----------
Private Sub Worksheet_Activate()
[T2] =3D "En attente"
derlig =3D Sheets("Feuil1").[A1].End(xlDown).Row

With Sheets("Feuil1")
.Range("A1:J" & derlig).AdvancedFilter Action:=3DxlFilterCopy, _
CriteriaRange:=3D.[T1:T2], _
CopyToRange:=3D[A1:J1], Uniq=
ue:=3DTrue
End With
End Sub
'----------

Merci d'avance.
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Apitos
En fait, la mise en forme utilisée est celle d'un jeux d'icones à 4 indicateurs avec un "Ordre inverse des icones" et "Afficher l'icone uniq uement"
Avatar
Apitos
Un exemple :
http://www.cjoint.com/c/FJetxENiCtR
Avatar
DanielCo
Bonjour,
Je n'ai pas d eproblème avec un filtre automatique ou un filtre avancé
sur place + recopie sur fEUUIL2.
Cordialement.
Daniel
Un exemple :
http://www.cjoint.com/c/FJetxENiCtR
Avatar
Apitos
Bonjour Daniel,
Je n'ai pas d eproblème avec un filtre automatique ou un filtre avan cé
sur place + recopie sur fEUUIL2.

Voila un autre essai avec l'idée proposée :
'--------------
Private Sub Worksheet_Activate()
Dim Derlig As Byte
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Cells.Delete
With Sheets("Feuil1")
.[T2] = "En cours"
Derlig = .[A1].End(xlDown).Row
.Range("A1:C" & Derlig).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.[T1:T2], _
Unique:=True
.Range("A1:C" & Derlig).SpecialCells(xlCellTypeVisible).Copy
End With
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil1").AutoFilterMode = False
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'--------------
https://mon-partage.fr/f/eVKJRUV6/
Mais je n'obtient rien en Feuil2 !
Avatar
Apitos
Une petite modification daans le nom "Liste" :
https://mon-partage.fr/f/MfGNnXLd/
Avatar
DanielCo
Une petite modification daans le nom "Liste" :
https://mon-partage.fr/f/MfGNnXLd/

Ca fonctionne ! Génial :
https://mon-partage.fr/f/JY3GoJM2/
Daniel
Avatar
Apitos
Merci Daniel.
Ça fonctionne bien maintenant :)