rendre visible une ligne masquée

[pascal21]

bonjour le forum

pour une question de lisibilité du classeur je masque les lignes( à la main) dont la colonne C est vide

mais je peux être ammené à rajouter des données dans cette colonne C

donc je souhaiterais rendre visible la ligne vide située après la dernière cellule C remplie

ex si c10.value <> " " alors ligne 11 .visible = true

ou comment rendre visible la 1ere ligne vide de la zone ("C5:C35") avec un bouton

ou encore tout bettement rendre visible la ligne située après la dernière ligne ("c5:c35)"non vide à l'ouverture de la feuille

merci

 

[Robert]

Re : rendre visible une ligne masquée

Bonjour Pascal, bonjour le forum,

À l'activation de l'onglet ça pourrait donner ça :

Private Sub Worksheet_Activate()
Range("C4").End(xlDown).Offset(1, 0).EntireRow.Hidden = False
End Sub

 

[Papou-net]

Re : rendre visible une ligne masquée

bonjour le forum

pour une question de lisibilité du classeur je masque les lignes( à la main) dont la colonne C est vide

mais je peux être ammené à rajouter des données dans cette colonne C

donc je souhaiterais rendre visible la ligne vide située après la dernière cellule C remplie

ex si c10.value <> " " alors ligne 11 .visible = true

ou comment rendre visible la 1ere ligne vide de la zone ("C5:C35") avec un bouton

ou encore tout bettement rendre visible la ligne située après la dernière ligne ("c5:c35)"non vide à l'ouverture de la feuille

merci

Bonsoir pascal21,

Voici le code à insérer dans ton bouton de commande :

Private Sub CommandButton1_Click()
With Cells(Range("C35").End(xlUp).Row + 1, 1)
  .EntireRow.Hidden = False
  .Select
End With
End Sub

Pour exécuter la macro à l'ouverture du classeur :

Private Sub Workbook_Open()
With Cells(Range("C35").End(xlUp).Row + 1, 1)
  .EntireRow.Hidden = False
  .Select
End With
End Sub

Espérant avoir répondu.

Cordialement.

 

[job75]

Re : rendre visible une ligne masquée

Bonsoir Pascal, Robert, Papou-net,

Si j'ai bien compris, et plutôt qu'un bouton :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
Set cel = Range("C5:C35").Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious)
If Not cel Is Nothing Then cel.Offset(1).EntireRow.Hidden = False
End Sub

Edit : éventuellement, si la cellule C35 est remplie :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
Set cel = Range("C5:C35").Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious)
If cel Is Nothing Then Exit Sub
If [COLOR="Red"]cel.Row < 35[/COLOR] Then
  cel.Offset(1).EntireRow.Hidden = False
  If Target.Address = cel.Address Then cel.Offset(1).Select 'peut-être aussi...
End If
End Sub

A+

 

[pascal21]

Re : rendre visible une ligne masquée

bonsoir à tous
et merci pour vos réponses
j'ai choisis le code de papou-net qui convient parfaitement à ce que je désirais
bonne soirée
je vous invite, si vous avez un peu de temps, à regarder du coté de cette question sur les commentaires
merci https://www.excel-downloads.com/thr...echeance-en-approche-dans-une-cellule.132565/