Bonjour,
Help please je rétiaire ma demande car je ne trouve pas de solution malgré toutes les variations que j'essaie d'amené aux codes suivants, par exemple en essayant d'intégrer .hasformula mais rien a faire ca ne fonctionne pas :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0
Rows("15:528").hasformula.EntireRow.Hidden = False
If Range("B17").Value = "" Then Rows("17:23").EntireRow.Hidden = True
Application.ScreenUpdating = -1
End Sub
Sub masquer()
Do While Cells(17, 2).HasFormula = True
If Cells(i, 2) = "" Then
Rows(i).EntireRow.Hidden = True
Else
Rows(i).EntireRow.Hidden = False
End If
i = i + 1
Loop
End Sub
Merci pour votre aide