Discussion :

[Automnep]

Bonjour a vous (et navre pour les accents)

J'aimerais creer un petit tableau "interactif" avec du code VBA. Pour que vous compreniez mieux le concept, voici une image :



(Si l'image ne s'affiche pas voici le lien http://hfr-rehost.dev.syn.fr/view/82...3e08b04fc8.png )

Je cherche a creer 2 choses.

1. Une macro permettant d'isoler chaque couleur. Grosso modo, lorsque l'on clique sur une des couleur au sommet ("Energy" par exemple), seules les cellules de la couleur en question apparaissent.

J'imagine que pour faire cela, il faut creer un code permettant aux autres cellules d'etre peinte en "blanc".

2. Point le plus important.

J'aimerais lorsque l'on clique sur une des cellules du programme, Une rangee d'environ 4 lignes apparaisse en dessous ou je decris l'evenement du programme en question.

Example, je clique sur le "Workshop1: CAFM" de 10h a 10h35.
4 lignes apparaissent en dessous ou je decris le Workshop 1 en question.

Et ce pour chaque cellules du programme. Est-ce possible de creer cela de maniere simple ? J'imagine qu'il va falloir jouer avec les lignes "cachees" et compagnie,non ?

Merci d'avance pour votre aide !

[Symone]

Bonjour,

Il faut que tu commences par créer une macro dans le module de la feuille concernée :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Address = "$A$1" Or Target.Address = "$A$2" Or Target.Address = "$A$3" Or Target.Address = "$A$4" Then
        Call CacherAutresCouleurs
    Else
        Call AfficherDetails
    End If
 
End Sub

J'ai pris le cas où tes couleurs d'entête se trouvent en cellules A1, A2, A3 et A4 mais c'est à toi de l'adapter...
Ensuite tu crée deux macros CacherAutresCouleurs et AfficherDetails dans un module classique.

CacherAutresCouleurs :
Crée une boucle qui balaye toutes tes colonnes et qui cache les lignes que ne sont pas dans la bonne couleur.

AfficherDetails :
Sera une macro qui affiche les trois lignes en dessous de la ligne active et qui cache trois autres lignes (les lignes de détail de la cellule active précédente)

Je pense que tu peux t'en sortir facilement avec l'enregistreur de macro

Bon courage!