XL 2016 filtrer des lignes en vba

[halecs93]

Bonjour à tout le monde. Et encore un grand merci à toutes les personnes qui m'ont permis de bien avancer.

Je poursuis donc mon classeur "planning" et je bute sur une chose. Il s'agit de déclencher les filtres afin de ne faire apparaître, par exemple, que les lundis. J'ai bricolé un petit quelque chose qui semble fonctionner. En cliquant sur un des jours de la semaine, ça filtre bien (même si ce n'est pas super joli de voir apparaitre le bouton de filtrage).

Mais si je veux obtenir, toujours par exemple, uniquement les lundis et sans les lignes "remplaçant".... je bloque.

Pas certain que ça puisse se faire, mais je poste quand même

Encore une fois, un grand merci

 

[halecs93]

Re @halecs93 Bonjour@Staple1600

Comment tu peux faire une erreur ici @halecs93, j'ai la réponse mais j'aimerais que tu m'expliques s'il te plait avant de poursuivre ?

On Error Resume Next ' Ignorer les erreurs si la feuille n'existe pas
Set ws = ActiveSheet
On Error GoTo 0 ' Réactiver les erreurs
If ws Is Nothing Then
MsgBox "Aucune feuille active n'est sélectionnée.", vbExclamation
Exit Sub
End If

Je dois admettre que là, je ne sais plus...à force de bricoler avec des bouts de code ici ou là

 

[TooFatBoy]

Peut-être :
- sélectionner l'en-tête de la ligne à supprimer,
- cliquer sur un bouton unique qui demande si on veut vraiment supprimer la ligne.

Ce n'est qu'une suggestion. Si le classeur n'est pas si lent que ça, alors laisser comme c'est actuellement.

 

[laurent950]

Je dois admettre que là, je ne sais plus...à force de bricoler avec des bouts de code ici ou là

Re @halecs93
j'avais un peux compris cela, ca ne sert a rien car
ActiveSheet c'est forcément la feuille active donc pas d'erreur possible

 

[Staple1600]

@halecs93
Alors quid de ma question dans le message#12


Sinon personnellement, je n'afficherai que le mois en cours sur la feuille MODELE
(pour alléger le classeur)

PS: je confirme que le classeur n'est pas très stable chez moi.
Je vais essayer en ayant que ce classeur ouvert.

 

[halecs93]

@halecs93
Alors quid de ma question dans le message#12


Sinon personnellement, je n'afficherai que le mois en cours sur la feuille MODELE
(pour alléger le classeur)

PS: je confirme que le classeur n'est pas très stable chez moi.
Je vais essayer en ayant que ce classeur ouvert.

Du coup, la feuille ne représente qu'une semaine

 

[Staple1600]

Re

@halecs93
Je ne sais toujours pas si tu testé la macro du message#12
et surtout ce que tu en penses

Du coup, la feuille ne représente qu'une semaine

C'est pas grave puisque tu archives sur la feuille RECAP, non ?
Et si sur ta feuille MODELE, on utilisait des vrais dates, on pourrait visualiser les données
(par mois, par trimestre, par semestre etc... en utilisant un TCD)


Pour ma suggestion, voila plus ou moins à quoi je pense

Mais comme ton projet est déjà avancé et qu'apparemment ton Excel ne bronche pas (contrairement au mien)
j'en resterai là
(sauf si cela t'intéresse de voir plus)

 

[halecs93]

Re

@halecs93
Je ne sais toujours pas si tu testé la macro du message#12
et surtout ce que tu en penses


C'est pas grave puisque tu archives sur la feuille RECAP, non ?
Et si sur ta feuille MODELE, on utilisait des vrais dates, on pourrait visualiser les données
(par mois, par trimestre, par semestre etc... en utilisant un TCD)


Pour ma suggestion, voila plus ou moins à quoi je pense
Regarde la pièce jointe 1179497

Mais comme ton projet est déjà avancé et qu'apparemment ton Excel ne bronche pas (contrairement au mien)
j'en resterai là
(sauf si cela t'intéresse de voir plus)

Le modèle me sert à construire le planning.... ensuite, lorsque je créé une semaine, c'est pour gérer surtout les remplacements. Le planning initial n'a pas vocation, même si cela peut arriver de temps à autres.

Sinon, c'est vrai que je ne souhaites pas tout refaire à zéro

 

[Staple1600]

@halecs93
Donc je n'aurais jamais ma réponse concernant le code VBA fourni dans le message#12

Tu l'as testé ou pas ?

(ca ne fait jamais que 4 fois que je te le demande... )

 

[halecs93]

@halecs93
Donc je n'aurais jamais ma réponse concernant le code VBA fourni dans le message#12

Tu l'as testé ou pas ?

(ca ne fait jamais que 4 fois que je te le demande... )

Oui...et j'ai une erreur

 

[Staple1600]

Re

@halecs93
Pas d'erreur chez moi (Office 365)
Merci d'avoir testé et pour le feedback

Et comme ceci ?

Private Sub FILTRAGE(ByVal Jour As String)
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range("BV4").Formula = "=AND(A4=" & Chr(34) & Jour & Chr(34) & ",D4<>""remplaçant"")"
Range("A3:D497").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("BV3:BV4"), Unique:=False
End Sub
Sub mMARDI()
'ActiveSheet.ShowAllData
FILTRAGE "MARDI"
End Sub

Tu lances bien la macro mMARDI en étant sur la feuille MODELE ?

 

[halecs93]

Re

@halecs93
Pas d'erreur chez moi (Office 365)
Merci d'avoir testé et pour le feedback

Et comme ceci ?

Private Sub FILTRAGE(ByVal Jour As String)
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range("BV4").Formula = "=AND(A4=" & Chr(34) & Jour & Chr(34) & ",D4<>""remplaçant"")"
Range("A3:D497").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("BV3:BV4"), Unique:=False
End Sub
Sub mMARDI()
'ActiveSheet.ShowAllData
FILTRAGE "MARDI"
End Sub

Tu lances bien la macro mMARDI en étant sur la feuille MODELE ?

Pour cette version, pas d'erreur. Mais encore une fois... ce n'est pas ce que je souhaite.

Je dois pouvoir filtrer "remplaçant" ou pas même si je laisse tous les jours de la semaine apparent, ou bien bien filtrer "remplaçant" ou pas en ayant filtré un jour précis

 

[Staple1600]

Re

Dans ce cas, il suffit d'adapter le code.

Mais encore une fois... ce n'est pas ce que je souhaite.

Sois plus précis dans ce cas, en postant des exemples
AVANT
APRES
(réalisés manuellement)

 

[halecs93]

Re

Dans ce cas, il suffit d'adapter le code.



Sois plus précis dans ce cas, en postant des exemples
AVANT
APRES
(réalisés manuellement)

Désolé, je pensais avoir été clair et ce n'est, semble-t-il pas le cas.

 

[Staple1600]

Re,

Désolé, je pensais avoir été clair et ce n'est, semble-t-il pas le cas.

Ma demande n'était pas claire, à priori... je parlais d'exemple. Mais en fait, c'est un filtre sur chaque colonne que je souhaitais mettre en place..... désolé pour ma syntaxe approximative

Tu pensais le contraire tout à l'heure

On n'est pas dans ta tête.

Plus on aura de détails, d'explications, plus on sera efficace

A toi de voir.

 

[halecs93]

Re,




Tu pensais le contraire tout à l'heure

On n'est pas dans ta tête.

Plus on aura de détails, d'explications, plus on sera efficace

A toi de voir.

heu, je pensais le contraire ? Encore une fois, mauvaise syntaxe alors.