Masquer/faire apparaitre lignes de tableau
groeg
-
groeg -
groeg -
Bonjour,
Je cherche à faire une petite macro sous word:
Volia j'ai un tableeau dont la première ligne pose une question. Si la réponse est oui, il faut afficher les 2 lignes du dessous, si la réponse est non il faut les masquer. Par la suite on complètera librement les 3 cellules de la dernière ligne du tableau qui doit apparaitre.
Pour cela j'ai mis 2 optionButton:
1) je n'arrive pas à mes faire afficher "oui" et "non" avec caption... je dois pas bien m'en servir
2) j'ai mis une boucle if mais il ne cache rien. En faisant l'apprentissage, je fais selectionner les 2 lignes et les faires cacher mais impossible de les faire réapparaitre puisque je ne peux plus les sélectioner...
Peut on gérer ces 2 lignes de tableau comme un objet et jouer avec la variable hidden? Je n'y arrive pas.
Merci d'avance de votre aide...
Je cherche à faire une petite macro sous word:
Volia j'ai un tableeau dont la première ligne pose une question. Si la réponse est oui, il faut afficher les 2 lignes du dessous, si la réponse est non il faut les masquer. Par la suite on complètera librement les 3 cellules de la dernière ligne du tableau qui doit apparaitre.
Pour cela j'ai mis 2 optionButton:
1) je n'arrive pas à mes faire afficher "oui" et "non" avec caption... je dois pas bien m'en servir
2) j'ai mis une boucle if mais il ne cache rien. En faisant l'apprentissage, je fais selectionner les 2 lignes et les faires cacher mais impossible de les faire réapparaitre puisque je ne peux plus les sélectioner...
Peut on gérer ces 2 lignes de tableau comme un objet et jouer avec la variable hidden? Je n'y arrive pas.
Merci d'avance de votre aide...
A voir également:
- Masquer/faire apparaitre lignes de tableau
- Tableau word - Guide
- Apparaitre hors ligne instagram - Guide
- Apparaitre hors ligne whatsapp - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
1 réponse
pour info voila monchef d'oeuvre...
Private Sub OptionButton1_Click()
End Sub
Private Sub OptionButton2_Click()
End Sub
Sub essai1()
If OptionButton1 = True Then
Selection.Tables(1).Rows(2).Select
Selection.Tables(1).Rows(3).Select
With Selection.Font
.Hidden = True ' Masquer les lignes
End With
End If
If OptionButton1 = True Then
Selection.Tables(1).Rows(2).Select
Selection.Tables(1).Rows(3).Select
With Selection.Font
.Hidden = False ' afficher les lignes
End With
End If
End Sub
Private Sub OptionButton1_Click()
End Sub
Private Sub OptionButton2_Click()
End Sub
Sub essai1()
If OptionButton1 = True Then
Selection.Tables(1).Rows(2).Select
Selection.Tables(1).Rows(3).Select
With Selection.Font
.Hidden = True ' Masquer les lignes
End With
End If
If OptionButton1 = True Then
Selection.Tables(1).Rows(2).Select
Selection.Tables(1).Rows(3).Select
With Selection.Font
.Hidden = False ' afficher les lignes
End With
End If
End Sub