Case liés à des données

Bonjour bonjour braves gens !

J'imagine que ce que je vais demander est possible, mais je n'ai aucune idée de comment faire.
Alors voilà : Je souhaiterai savoir s'il est possible de lier des cases inférieur à une case supérieur.

Je m'explique. Voilà un des tableaux présent dans le ficher Excel :

Nom du sort
Description du sort
échelles
élémentN_A020
Aspect directeurManipuler00
Aspect SecondaireN_A00
Aspect SecondaireN_A00
Aspect(s) complémentaire(s)
N_A00
N_A00
N_A00
N_A00
Malus MJSelon MJ00
Malus Blessure/0#REF!
échelle élémentaire0#REF!
temps d'incantation#REF!#REF!
Malus Aspect directeur (armure)#REF!#REF!
Malus Aspect directeurN_A#REF!
Malus Aspect directeurN_A#REF!
Malus Aspect directeurN_A#REF!
Malus MJSelon MJ0
Bonus Aspect directeurN_A#REF!
Bonus Aspect directeurN_A#REF!
Bonus MJSelon MJ0
Score aspect directeurManipuler#REF!
Contre-effet#REF!

Ce que je souhaiterai être capable de faire, ce serait de pouvoir montrer ou cacher les informations en dessous de la case "Nom du sort". Et qu'il me suffirait de cliquer sur cette case pour faire apparaître ou disparaître les lignes en dessous.

Si vous pouviez, s'il vous plaît, me décrire la façon de procéder, vous seriez un ou une ange ^^ <3

Merci d'avance

7test-excel.xlsx (70.25 Ko)

Bonjour

Si j'ai bien compris, un click sur Nom de Sort en B1 (par exemple) et on cache les colonnes C, D et E ?

Cordialement

Si on clique sur "Nom du sort" en B1, C1 est toujours visible, mais on cache B2-C2, B3-C3 etc jusqu'à la case "contre effet".

Cordialement

Bonjour,

Ok mais c'est toutes les lignes entre B3 et B28 qui seront cachées.

Procédez comme ceci :

- Click droite sur l''onglet concerné "magie ...."
- Choisissez "Visualiser le code"
- Collez le code ci-dessous dans la fenêtre

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.count > 1 Then Exit sub
If Not Intersect(Target, Range("B2")) Is Nothing Then
    With Rows("3:28").EntireRow
    If Not .Hidden Then .Hidden = True Else .Hidden = False
    End With
    Range("B1").Select
End If
End Sub

- Enregistrez votre fichier avec l'extension XLSM
- Pour l'exécution du code, cliquez toujours sur la cellule B1

Cordialement

Merci beaucoup pour cette aide, et va falloir pour le coup que je me mette à faire des macros ^^'

Rechercher des sujets similaires à "case lies donnees"