Afficher les 3 dernières colonnes

**Flaguette** · 12/04/2012, 16h53

Bonjour,

J'ai un fichier Excel contenant des données numériques au 31 mars et au 30 septembre de chaque année.

J'ai déjà créé des macros qui masquent des colonnes pour n'afficher que les données au 31 mars, au 30 septembre ou toutes les données. Je les ai assignées à des boutons. J'ai créé les macros pour 10 ans, ce qui devrait suffire! D'ici là, nous aurons sans doute un logiciel qui compilera les données autrement!

Mais j'aimerais bien créer une macro dynamique qui permettrait aux autres usagers (dont certains ne peuvent même pas créer une formule simple d'addition de cellules) pour qu'ils ne voient que les trois dernières périodes. Par exemple, aujourd'hui, seules les colonnes au 31 mars 2011, 30 septembre 2011 et 31 mars 2012 seraient affichées. Puis, lorsque les données au 30 septembre 2012 seraient entrées, ce seraient les colonnes 30 septembre 2011, 31 mars 2012 et 30 septembre 2012. Les titres des colonnes sont ajoutés au moment opportun.

Il y a sûrement moyen de créer une telle macro, mais je n'ai aucune idée du comment.

Merci de bien vouloir m'aider!

**BlueMonkey** · 13/04/2012, 02h58

Bonjour,

Peut être qu'en masquant les colonnes d'exercices antérieurs aux 3 derniers sur l'activation de la feuille répondrait au problème :

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
Const ExerciceFirstLine As Long = 1 'première colonne contenant des informations sur les exercices
Const ExerciceFirstCol As Long = 2 'première ligne contenant des informations sur les exercices
Const NbColPerExercice As Long = 1 'nombre de colonnes par exercice
Const NbExerciceToShow As Long = 3 'nombre d'excercices à afficher
 
Private Sub Worksheet_Activate()
   Dim LastExerciceCol As Long
   LastExerciceCol = Cells(ExerciceFirstLine, ExerciceFirstCol).End(xlToRight).Column
 
   If LastExerciceCol > ExerciceFirstCol Then
       Range(Cells(ExerciceFirstLine, ExerciceFirstCol), Cells(ExerciceFirstLine, LastExerciceCol)) _
                    .EntireColumn.Hidden = False
       Range(Cells(ExerciceFirstLine, ExerciceFirstCol), Cells(ExerciceFirstLine, LastExerciceCol - (NbColPerExercice * NbExerciceToShow))) _
                    .EntireColumn.Hidden = True
   End If
End Sub

**Flaguette** · 13/04/2012, 04h37

Effectivement, je voulais masquer les colonnes "inutiles" situées avant les trois dernières que je voulais conserver mais disons qu'aujourd'hui, la concentration c'était pas mon fort...

J'essaie ça au bureau demain matin et je vous en redonnne des nouvelles!

Merci!