créé une liste déroulante de colonnes

Bonsoir,
la liste déroulante c'est verticalement.

Suggestion par le code exemple: http://cjoint.com/?drwnMmGgnp

Private Sub CommandButton1_Click()
With Range("b:h").Columns
.Hidden = Not .Hidden
End With
End Sub

'Cordialement.

'lSteph

J'aimerais créé 7 colonnes pour les jours de la sem. et les regrouper en
liste déroulante pour représenter une semaine. Cela me permetterais de davoir
une vue globale moin lorde par semaine et de pouvoir aller en détail par
jour.

Merci d'avance Michel de Montéal

Bonsoir

ceci peut être
voir le lein http://cjoint.com/?drwqpe4m2J

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Rows("1:1").Find(What:=Target.Value, LookIn:=xlValues).Offset(4).Select
End If
End Sub

Abed_H

J'aimerais créé 7 colonnes pour les jours de la sem. et les regrouper en
liste déroulante pour représenter une semaine. Cela me permetterais de davoir
une vue globale moin lorde par semaine et de pouvoir aller en détail par
jour.

Merci d'avance Michel de Montéal

Bonjour,

Affiche la colonne du jour choisi:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = "" Then
Columns("B:F").Hidden = False
Else
Columns("B:F").Hidden = True
Columns(Application.Match(Target, [B1:H1], 0) + 1).Hidden =
False
End If
End If
End Sub

-Touche suppr pour toute la semaine

http://cjoint.com/?dsh3SkbTDA

JB

On 17 mar, 20:30, Michel Deslauriers <Michel
Deslauri...@discussions.microsoft.com> wrote:

J'aimerais créé 7 colonnes pour les jours de la sem. et les regrouper en
liste déroulante pour représenter une semaine. Cela me permetterais d e davoir
une vue globale moin lorde par semaine et de pouvoir aller en détail par
jour.

Merci d'avance Michel de Montéal

Variante:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = "Tout" Then
Columns("B:F").Hidden = False
Else
Columns("B:F").Hidden = True
Columns(Application.Match(Target, [B1:H1], 0) + 1).Hidden =
False
End If
End If
End Sub

http://cjoint.com/?dsihmgQTRD

JB


On 17 mar, 20:30, Michel Deslauriers <Michel
Deslauri...@discussions.microsoft.com> wrote:

J'aimerais créé 7 colonnes pour les jours de la sem. et les regrouper en
liste déroulante pour représenter une semaine. Cela me permetterais d e davoir
une vue globale moin lorde par semaine et de pouvoir aller en détail par
jour.

Merci d'avance Michel de Montéal

Bojour,
Sans VBA http://cjoint.com/?dskg3B8IZ4

Sélectionner ta semaine
(mettre des petis 1 dans chaque jour et une sommeà droite)
Menu données |
Grouper et Créer un plan
Plan automatique

Cordialement.

lSteph

J'aimerais créé 7 colonnes pour les jours de la sem. et les regrouper en
liste déroulante pour représenter une semaine. Cela me permetterais de davoir
une vue globale moin lorde par semaine et de pouvoir aller en détail par
jour.

Merci d'avance Michel de Montéal