XL 2010 masquer ligne jusqu'à la prochaine cellule non vide d'une colonne

J'ai pas bien tout saisi, c'est pas bien clair ta demande.

Et des grouper/dégrouper feront pas l'affaire ?

Oui je sais que c'est pas très clair.

Plus simplement, je cherche un programme qui me permettra de masquer et démasquer les lignes entre deux cellules "non vide"
Grouper/dégrouper ne feront pas l'affaire, c'est pour des questionnaires beaucoup plus complexes que l'exemple.

merci de ton aide

à adapter, je privilégierais un 1 plutôt qu'un "X"
Oublie pas de définir I as Integer

je viens de tester colle ça :


J'ai mis par rapport à la colonne A, à toi de mettre ce que tu veux

Merci pour ton retour,

J'ai déjà testé ce type de code mais cela masque seulement la ligne qui contient le X.
Après on peut faire cela (désolé mais je ne sais pas encore comment écrire en code sur ce forum ):

Sub masquer ()
For i = 1 To 100

If Range("C" & i).Value = "" Then
Rows(i).Hidden = True
Else

Rows(i).Hidden = False

End If

Next i
End sub

Mais ça efface toutes les lignes dont les cellules sont vides en colonne C.
Je cherche un code qui (par exemple) masque les lignes vides de la colonne C entre 2 valeur X en colonne B.
Cad qui s'arrête au deuxième X (ou valeur rencontrer).

Merci

Ah ben c'est écrit dans le code ce que ça fait :

If Range("C" & i).Value = "" Then

Si la cellule est vide, alors la ligne est masquée.

En fait je comprends, que tu tout masquer sauf tes lignes 5, 16 et 31 ?
Je comprends pas bien ton besoin, il me faut un cas concret

Tu as donné un exemple sans ton X, donc pas évidement sans cas

J'ai réalisé de nombreux questionnaires (hors userform pour des raisons très particulières) avec des fausses cases à cocher (en B).
l'idée est d'avoir un ensemble de questions (en C) et si je clique sur la case en B, je mette automatiquement un X et j'ouvre les différentes réponses (en D et E) qui correspondent à la question. Et inversement si je décoche ma case.

Pour info mon code pour cocher mes cases avec un clic :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count = 1 _
And (Target.Column = 2 _
Or Target.Column = 5) _
And Target.Borders(xlEdgeLeft).Weight = xlMedium _
And Target.Borders(xlEdgeTop).Weight = xlMedium _
And Target.Borders(xlEdgeBottom).Weight = xlMedium _
And Target.Borders(xlEdgeRight).Weight = xlMedium Then

Target.Value = IIf(Target.Value = "X", "", "X")
Target.Font.Name = "WingDings"
Target.Font.Size = 12
Target.Interior.ColorIndex = IIf(Target.Value = "X", 41, 0)

End If

End Sub

Sinon, j'ai peut être trouvé en arrêtant la boucle si valeur en C en mettant "exit for" !!! maintenant je vais essayer de le mettre dans mon Private sub

For i = 1 To 100

If Range("C" & i).Value = "" Then
Rows(i).Hidden = True
End If

If Range("C" & i + 1).Value <> "" Then
Exit For
End If

Next i


Merci