Autres simplifier un code (RESOLU)

chaelie2015 à dit:

Bonjour Forum
je souhaite simplifier ce code ( si c'est possible)

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("valider").Visible = False

If Range("f5") <> "" And Range("f7") <> "" And Range("f9") <> "" And Range("f11") <> "" And Range("f13") <> "" And Range("f15") <> "" And Range("f17") <> "" Then
ActiveSheet.Shapes("valider").Visible = True
End If

End Sub

merci par avance

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("valider").Visible = Range("f5") <> "" And Range("f7") <> "" And Range("f9") <> "" And Range("f11") <> "" And Range("f13") <> "" And Range("f15") <> "" And Range("f17") <> ""
End Sub

ActiveSheet.Shapes("valider").Visible = Application.CountIf([f5:f17], "") < 7