Discussion :

[Olivier6464]

Bonjour,

J'ai à l'heure actuelle un fichier excel pour plannifier mon equipe.

Chaque colonne represente un jour de l'année.

J'aimerai pouvoir en selectionnant une date dans une combobox afficher seulement la periode allant de cette semaine à 4 semaine apres.

Pouvez vous m'aider?

Je suis parti comme ca mais je sais vraiment pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
    Columns("C:NK").EntireColumn.Hidden = False
    NumColDebut = "C"
    NumColFin = "NK"
    Select Case Range("A65").Value
    Case "29/12/2012"
        NumColDebutPeriode = "B"
        NumColFinPeriode = "AF"

Merci

[gFZT82]

Bonjour,

Une solution avec un Userform, une ComboBox et un CommandButton.
La macro pour le choix du jour est lancée avec le raccourci Ctrl + Maj + M.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Dim ListeDates As Range
Private Sub CommandButton1_Click()
    ListeDates.EntireColumn.Hidden = True
    Worksheets("Feuil1").Columns(ComboBox1.ListIndex + 1).Resize(, 28).Hidden = False
    Worksheets("Feuil1").Cells(1, ComboBox1.ListIndex + 1).Select
    Me.Hide
End Sub
Private Sub UserForm_Initialize()
Dim Cel As Range
    With Worksheets("Feuil1")
        .Columns.Hidden = False
        Set ListeDates = .Range(.Cells(1, 1), .Cells(1, Columns.Count).End(xlToLeft))
        For Each Cel In ListeDates
            ComboBox1.AddItem Format(Cel, "dd/mm/yyyy")
        Next Cel
    End With
End Sub

Cordialement.

[goldstar]

Bonjour sur le bouton d'un formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
Private Sub CommandButton1_Click()
 
Dim ladateDebut As Date, ladateFin As Date
Dim colonneDateDebut As Integer, colonneDateFin As Integer
 
ladateDebut = CDate(Me.ComboBox_date.Value)
ladateFin = ladateDebut + 28
 
'Recherche dans la feuille Feuil1 la colonne de la date de début
Sheets("Feuil1").Activate
Set R = Sheets("Feuil1").Range("B:ZZ").Find(ladateDebut)
colonneDateDebut = R.Column
 
'Recherche dans la feuille Feuil1 la colonne de la date de fin
Sheets("Feuil1").Activate
Set R = Sheets("Feuil1").Range("B:ZZ").Find(ladateFin)
colonneDateFin = R.Column
 
'On cache toutes les colonnes
Sheets("Feuil1").Range("B:ZZ").EntireColumn.Select
Selection.EntireColumn.Hidden = True
 
Sheets("Feuil1").Range(Cells(1, colonneDateDebut), Cells(1, colonneDateFin)).Select
Selection.EntireColumn.Hidden = False
 
 
End Sub

[Olivier6464]

Merci pour vos reponses

gFZT82, je ne vois pas dans ta solution l'endroit ou tu assignes le raccourci,peux tu m'en dire plus?

[gFZT82]

Tu vas dans l'onglet Développeur / Macros.
Tu sélectionnes la macro "Test" puis Options et miracle !

Cordialement.