Effacer et restituer des formes grâce à des procédures événementielles

[Phillip]

Bonjour



J'ai une liste déroulante et j'ai crée une procédure événementielle en fonction du choix dans cette liste.


Je voudrais qu'en fonction de mon choix il y une partie de plage qui soit cachée, puis, si je le souhaite la faire réapparaître. C'est assez facile de cacher et décacher des plages, sauf que...

Dans mon cas, comme vous le voyez dans l'exemple ci-joint, j'ai des "formes". Pourquoi ces losanges en forme plutôt que des bordures obliques dans les cellules ? parce que je ne peux pas colorier une demi-cellule...

Je pourrais faire cette animation dans powerpoint vous me direz, ou avoir un logiciel spécialisé logigramme mais je suis parti comme ça...

Peut-on résoudre mon problème ?

Merci

Cordialement

Phillip

 

[job75]

Bonjour Phillip,

Dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Rows("1:16").Hidden = True
Select Case ComboBox1
    Case "Parcours 1": Rows("1:8").Hidden = False
    Case "Parcours 2": Rows("9:16").Hidden = False
    Case "Tous": Rows("1:16").Hidden = False
End Select
ActiveWindow.ScrollRow = 1
End Sub

A+

 

[Phillip]

Merci ! Super ! Ca marche !

Cordialement

 

[Phillip]

Bonjour Job75, encore moi..

J'ai ce message...(Que j'utilise hidden ou entirerow.hidden)...

Qu'est-ce que cela signifie ?

Merci

Cordialement

 

[job75]

Bonjour Phillip,

Dans VBA menu Exécution => Mode Création.

Clic droit sur la ComboBox => Propriétés => renseigner ListFillRange.

A+

 

[Phillip]

Pardon mais j'ai édité mon message, car cela j'avais finalement trouvé...Mon problème maintenant, c'est le message d'erreur !

Cordialement

 

[job75]

Ce message se produit quand la liste de la ComboBox se trouve dans la feuille dont on masque les lignes.

C'est pour cette raison que je l'ai mise en Sheet2.

 

[Phillip]

Ahhhhhhh !!! Damned ! Merci !