VBA : Automatiser l'apparition d'un planning annuel

Version imprimable

Bonjour à tous,

Je dispose d'un onglet excel dans lequel se situe une série de plannings sur les 10 prochaines années à venir.

Dans ce même onglet j'ai mis un bouton faisant apparaître un usf comprenant une combobox et un bouton OK

Ce que je souhaiterais, c'est que lorsque ma combobox prend la valeur d'une année que le planning en vigueur apparaissent.

Les plannings possèdent 12 colonnes qui représentent les 12 mois de l'année.

Pour l'instant j'ai eu l'idée de faire le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If ComboBox100.Value = "2018" And Columns("O:Z").Hidden = True And Columns("AA:AL").Hidden = False Then '2019 --> 2018
                                                Columns("B:AA").Select
                                                Selection.EntireColumn.Hidden = False
                                                Columns("C:N,AA:AL").Select
                                                Selection.EntireColumn.Hidden = True
                                                Worksheets("Synthèse").Range("B28").Value = "2018"
 
                                            Else
                                                If ComboBox100.Value = "2018" And Columns("O:Z").Hidden = True And Columns("AM:AX").Hidden = False Then '2020 --> 2018
                                                    Columns("B:AM").Select
                                                    Selection.EntireColumn.Hidden = False
                                                    Columns("C:N,AM:AX").Select
                                                    Selection.EntireColumn.Hidden = True
                                                    Worksheets("Synthèse").Range("B28").Value = "2018"

Cependant,j'ai un problème qui ressort à cette ligne

Code:

Columns("C:N,AA:AL").Select

lorsque je veux sélectionner plusieurs plages de colonnes qui ne sont pas situées cote à cote.

Merci d'avance pour votre aide et dans l'espoir que ma problématique soit assez claire

31/01/2018, 13h36
eriiic

Bonjour,

Union(Columns("C:N"), Columns("AA:AL"))
et comme le .select ralenti inutilement :

Code:

Union(Columns("C:N"), Columns("AA:AL")).EntireColumn.Hidden = True

mais tel que tu es parti tu vas faire autant de macros que d'années.
Masque tout et affiche la plage désirée en la calculant à patir de l'année sélectionnée.
eric
01/02/2018, 08h52
aurelu

Bonjour,

Merci pour ton aide concernant la ligne de code je ne connaissais pas la fonction union.

Cependant, qu'entends tu par " affiche la plage désirée en la calculant à patir de l'année sélectionnée" ?
01/02/2018, 11h37
eriiic

Bonjour,

si ton planning commence en colonne 1 pour 2018 et fait 12 colonnes tu trouves 2019 en colonne 13, 2020 en 25, etc
Pas très dur à calculer pour afficher les colonnes voulues et avoir un code unique qq soit l'année.
eric