Fonctionnement combobox et selection lignes

[noviceAG]

Bonjour à tous, le Forum,
Pourriez-vous m'aider à faire fonctionner ces combobox svp.
en vous remerciant.

 

[JNP]

Re : Fonctionnement combobox et selection lignes

Bonjour NoviceAG 🙂,
J'ai modifié en M1 avec une vrai date et le code pour la feuille détaillée, il te reste à utiliser le même raisonnement pour l'autre 😛...
Attention, défaut du raisonnement, s'il n'y a pas de 01 du mois cherché, ça ne fonctionnera pas 🙄...
Bonne journée 😎

 

[Si...]

Re : Fonctionnement combobox et selection lignes

Salut,

voir Si... cela convient

Private Sub ComboBox1_Change()
  Dim N As Range
  For Each N In [B2:B1000] '1000 ou dernière ligne
    If Month(N) = ComboBox1.ListIndex + 1 Then Application.Goto (Cells(N.Row, 1)), True: Cells(N.Row, 1).Select: Exit For
  Next
End Sub

 

[noviceAG]

Re : Fonctionnement combobox et selection lignes

Re,
Je vous remercie de l'aide que vous m'apportez, cependant, sauf omission de ma part, les lignes correspondant au mois sélectionné ne s'affiche/masque pas.
Peut-être me fais-je mal comprendre, selon la sélection du mois, je souhaite que seules les lignes afférentes à ce mois soient visibles.
En vous remerciant.

 

[JNP]

Re : Fonctionnement combobox et selection lignes

Re 🙂,

Peut-être me fais-je mal comprendre, selon la sélection du mois, je souhaite que seules les lignes afférentes à ce mois soient visibles.

Ton code de départ utilisais Application.Goto, et il n'était nulle part question de masquer/démasquer 🙄...
En repartant du code de Si...

Private Sub ComboBox1_Change()
  Dim I As Integer
  Application.ScreenUpdating = False
  On Error Resume Next
  For I = 1 To [COUNTA($B:$B)]
    If Range("B" & I) = "" Or Month(Range("B" & I)) = ComboBox1.ListIndex + 1 Then Rows(I).Hidden = False Else Rows(I).Hidden = True
  Next
  On Error GoTo 0
  Application.ScreenUpdating = False
End Sub

Bonne journée 😎

 

[noviceAG]

Re : Fonctionnement combobox et selection lignes

Je te remercie bien pour ce code qui est ok
bonne soirée et bon week-end.

 

[noviceAG]

Re : Fonctionnement combobox et selection lignes

Re,
J'ai encore besoin de votre aide cette fois, pour pouvoir afficher toutes les lignes.
En vous remerciant.

 

[JNP]

Re : Fonctionnement combobox et selection lignes

Re 🙂,
A condition de rajouter "Tout" en premier dans ta liste Mois :

Private Sub ComboBox1_Change()
  Dim I As Integer
  Application.ScreenUpdating = False
  On Error Resume Next
  For I = 1 To [COUNTA($B:$B)]
    If ComboBox1.Text = "Tout" Then
        Rows(I).Hidden = False
    Else
        If Range("B" & I) = "" Or Month(Range("B" & I)) = ComboBox1.ListIndex Then Rows(I).Hidden = False Else Rows(I).Hidden = True
    End If
  Next
  On Error GoTo 0
  Application.ScreenUpdating = False
End Sub

Bonne soirée 😎

 

[noviceAG]

Re : Fonctionnement combobox et selection lignes

Tous mes remerciements JNP pour ta gentillesse.
Bon week-en.