Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le
code du ComboBox afin que lorsque je choisi un mois, cela masque toutes les
lignes non concernées par le mois choisi. Si c'est possible de le faire.
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
JLuc
*Bonjour Excel...lent*, Cette procedure doit repondre a tes attentes :
Private Sub ComboBox1_Change() Application.ScreenUpdating = False Range("A1") = ComboBox1.ListIndex + 1 For x = 372 To 4 Step -1 If Cells(x, 2) <> "" Then If Month(Cells(x, 2)) <> Range("A1") Then Cells(x, 1).EntireRow.Hidden = True Else Cells(x, 1).EntireRow.Hidden = False End If End If Next Application.ScreenUpdating = True End Sub
Devrait convenir, dis nous :'-)
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le code du ComboBox afin que lorsque je choisi un mois, cela masque toutes les lignes non concernées par le mois choisi. Si c'est possible de le faire.
Je galère la dessus depuis quelques jours...-))))
Fichier ici : http://cjoint.com/?bAtNlyg6H1
Cordialement.
Excel...lent
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Excel...lent*,
Cette procedure doit repondre a tes attentes :
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Range("A1") = ComboBox1.ListIndex + 1
For x = 372 To 4 Step -1
If Cells(x, 2) <> "" Then
If Month(Cells(x, 2)) <> Range("A1") Then
Cells(x, 1).EntireRow.Hidden = True
Else
Cells(x, 1).EntireRow.Hidden = False
End If
End If
Next
Application.ScreenUpdating = True
End Sub
Devrait convenir, dis nous :'-)
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le
code du ComboBox afin que lorsque je choisi un mois, cela masque toutes les
lignes non concernées par le mois choisi. Si c'est possible de le faire.
*Bonjour Excel...lent*, Cette procedure doit repondre a tes attentes :
Private Sub ComboBox1_Change() Application.ScreenUpdating = False Range("A1") = ComboBox1.ListIndex + 1 For x = 372 To 4 Step -1 If Cells(x, 2) <> "" Then If Month(Cells(x, 2)) <> Range("A1") Then Cells(x, 1).EntireRow.Hidden = True Else Cells(x, 1).EntireRow.Hidden = False End If End If Next Application.ScreenUpdating = True End Sub
Devrait convenir, dis nous :'-)
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le code du ComboBox afin que lorsque je choisi un mois, cela masque toutes les lignes non concernées par le mois choisi. Si c'est possible de le faire.
Je galère la dessus depuis quelques jours...-))))
Fichier ici : http://cjoint.com/?bAtNlyg6H1
Cordialement.
Excel...lent
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Jose
Bonsoir Où peut on t'envoyer une solution avec fichier joint ? A+ José
"Excel...lent" a écrit dans le message de news:
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le code du ComboBox afin que lorsque je choisi un mois, cela masque toutes les lignes non concernées par le mois choisi. Si c'est possible de le faire.
Je galère la dessus depuis quelques jours...-))))
Fichier ici : http://cjoint.com/?bAtNlyg6H1
Cordialement.
Excel...lent
Bonsoir
Où peut on t'envoyer une solution avec fichier joint ?
A+
José
"Excel...lent" <vpco@free.fr> a écrit dans le message de news:
u6sADiqIGHA.3100@tk2msftngp13.phx.gbl...
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le
code du ComboBox afin que lorsque je choisi un mois, cela masque toutes
les
lignes non concernées par le mois choisi. Si c'est possible de le faire.
Bonsoir Où peut on t'envoyer une solution avec fichier joint ? A+ José
"Excel...lent" a écrit dans le message de news:
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le code du ComboBox afin que lorsque je choisi un mois, cela masque toutes les lignes non concernées par le mois choisi. Si c'est possible de le faire.
Je galère la dessus depuis quelques jours...-))))
Fichier ici : http://cjoint.com/?bAtNlyg6H1
Cordialement.
Excel...lent
Clément Marcotte
Bonjour,
Où peut on t'envoyer une solution avec fichier joint ? A+
Tu "déposes" to fichier là:
http://cjoint.com
Tu reviens mettre ici l'adresse que cjoint te donne à la fin du processus.
"Jose" a écrit dans le message de news: 43d92a87$0$29558$
Bonsoir José
"Excel...lent" a écrit dans le message de news:
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le code du ComboBox afin que lorsque je choisi un mois, cela masque toutes les lignes non concernées par le mois choisi. Si c'est possible de le faire.
Je galère la dessus depuis quelques jours...-))))
Fichier ici : http://cjoint.com/?bAtNlyg6H1
Cordialement.
Excel...lent
Bonjour,
Où peut on t'envoyer une solution avec fichier joint ?
A+
Tu "déposes" to fichier là:
http://cjoint.com
Tu reviens mettre ici l'adresse que cjoint te donne à la fin du processus.
"Jose" <perez.jose@free.fr> a écrit dans le message de news:
43d92a87$0$29558$626a54ce@news.free.fr...
Bonsoir
José
"Excel...lent" <vpco@free.fr> a écrit dans le message de news:
u6sADiqIGHA.3100@tk2msftngp13.phx.gbl...
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le
code du ComboBox afin que lorsque je choisi un mois, cela masque toutes
les
lignes non concernées par le mois choisi. Si c'est possible de le faire.
Où peut on t'envoyer une solution avec fichier joint ? A+
Tu "déposes" to fichier là:
http://cjoint.com
Tu reviens mettre ici l'adresse que cjoint te donne à la fin du processus.
"Jose" a écrit dans le message de news: 43d92a87$0$29558$
Bonsoir José
"Excel...lent" a écrit dans le message de news:
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le code du ComboBox afin que lorsque je choisi un mois, cela masque toutes les lignes non concernées par le mois choisi. Si c'est possible de le faire.
Je galère la dessus depuis quelques jours...-))))
Fichier ici : http://cjoint.com/?bAtNlyg6H1
Cordialement.
Excel...lent
Hervé
Bonsoir, Regarde si cela te conviens. Tu devrais peut être installer dans ce cas un bouton pour pouvoir afficher toutes les lignes si nécessaire et mettre cette ligne de code "Cells.EntireRow.Hidden = False". A mettre dans le module de ta feuille :
Private Sub ComboBox1_Click() Dim Plage As Range Dim Cel As Range
Set Plage = Worksheets("Modèle").[B4:B368]
Application.ScreenUpdating = False
Plage.EntireRow.Hidden = True For Each Cel In Plage If Month(Cel) = ComboBox1.ListIndex + 1 Then Cel.EntireRow.Hidden = False End If Next Cel
Application.ScreenUpdating = True
Set Cel = Nothing Set Plage = Nothing End Sub
Hervé.
"Excel...lent" a écrit dans le message de news:
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le code du ComboBox afin que lorsque je choisi un mois, cela masque toutes les lignes non concernées par le mois choisi. Si c'est possible de le faire.
Je galère la dessus depuis quelques jours...-))))
Fichier ici : http://cjoint.com/?bAtNlyg6H1
Cordialement.
Excel...lent
Bonsoir,
Regarde si cela te conviens. Tu devrais peut être installer dans ce cas un
bouton pour pouvoir afficher toutes les lignes si nécessaire et mettre cette
ligne de code "Cells.EntireRow.Hidden = False".
A mettre dans le module de ta feuille :
Private Sub ComboBox1_Click()
Dim Plage As Range
Dim Cel As Range
Set Plage = Worksheets("Modèle").[B4:B368]
Application.ScreenUpdating = False
Plage.EntireRow.Hidden = True
For Each Cel In Plage
If Month(Cel) = ComboBox1.ListIndex + 1 Then
Cel.EntireRow.Hidden = False
End If
Next Cel
Application.ScreenUpdating = True
Set Cel = Nothing
Set Plage = Nothing
End Sub
Hervé.
"Excel...lent" <vpco@free.fr> a écrit dans le message de news:
u6sADiqIGHA.3100@tk2msftngp13.phx.gbl...
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le
code du ComboBox afin que lorsque je choisi un mois, cela masque toutes
les
lignes non concernées par le mois choisi. Si c'est possible de le faire.
Bonsoir, Regarde si cela te conviens. Tu devrais peut être installer dans ce cas un bouton pour pouvoir afficher toutes les lignes si nécessaire et mettre cette ligne de code "Cells.EntireRow.Hidden = False". A mettre dans le module de ta feuille :
Private Sub ComboBox1_Click() Dim Plage As Range Dim Cel As Range
Set Plage = Worksheets("Modèle").[B4:B368]
Application.ScreenUpdating = False
Plage.EntireRow.Hidden = True For Each Cel In Plage If Month(Cel) = ComboBox1.ListIndex + 1 Then Cel.EntireRow.Hidden = False End If Next Cel
Application.ScreenUpdating = True
Set Cel = Nothing Set Plage = Nothing End Sub
Hervé.
"Excel...lent" a écrit dans le message de news:
Bonsoir la communauté,
Dans le fichier ci-joint j'ai tout les jours de l'année saisi en C1.
J'ai un ComboBox qui choisi le mois.
Quelqu'un pourrais-t-il m'aider à faire un code que je glisserais dans le code du ComboBox afin que lorsque je choisi un mois, cela masque toutes les lignes non concernées par le mois choisi. Si c'est possible de le faire.
Je galère la dessus depuis quelques jours...-))))
Fichier ici : http://cjoint.com/?bAtNlyg6H1
Cordialement.
Excel...lent
Excel...lent
Bonjour à tous,
Merçi pour vos idées et conseils.
Les deux solutions proposées par Jluc et Hervé fonctionnent toutes les deux. J'ai donc l'embarras du choix. Je ne vous dirais pas celle que j'ai retenue pour ne pas faire de jaloux.... lol -))))
En tout cas merci encore à tout les deux ainsi qu'au autres qui se sont joint à ce post.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
Bonjour à tous,
Merçi pour vos idées et conseils.
Les deux solutions proposées par Jluc et Hervé fonctionnent toutes les deux.
J'ai donc l'embarras du choix.
Je ne vous dirais pas celle que j'ai retenue pour ne pas faire de jaloux....
lol -))))
En tout cas merci encore à tout les deux ainsi qu'au autres qui se sont
joint
à ce post.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm
Les deux solutions proposées par Jluc et Hervé fonctionnent toutes les deux. J'ai donc l'embarras du choix. Je ne vous dirais pas celle que j'ai retenue pour ne pas faire de jaloux.... lol -))))
En tout cas merci encore à tout les deux ainsi qu'au autres qui se sont joint à ce post.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
