créé une liste déroulante de colonnes

Le
Michel Deslauriers
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #4325631
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


AH60
Le #4325621
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


JB
Le #4325391
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
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


JB
Le #4325381
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
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


LSteph
Le #4325351
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


Publicité
Poster une réponse
Anonyme