macro

[kalschnikof]

bonsoir,

peut on simplifier cette macro..?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.CommandButton1.Visible = Not IsEmpty(Me.Range("AO104").Value)
End Sub

Private Sub CommandButton1_Click()
Range("D4:AO4").ClearContents
Range("D8:AO8").ClearContents
Range("D12:AO12").ClearContents
Range("D16:AO16").ClearContents
End Sub

merci

Cdlt....

 

[Papou-net]

Re : macro

Bonsoir kalschnikof,

Peut-être comme ceci ?

Private Sub CommandButton1_Click()
Range("D4:AO4,D8:AO8,D12:AO12,D16:AO16").ClearContents
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.CommandButton1.Visible = IIf(Range("A4") = "", False, True)
End Sub

Espérant avoir répondu.

Cordialement.

 

[kalschnikof]

Re : macro

Bonsoir kalschnikof,

Peut-être comme ceci ?

Private Sub CommandButton1_Click()
Range("D4:AO4,D8:AO8,D12:AO12,D16:AO16").ClearContents
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.CommandButton1.Visible = IIf(Range("A4") = "", False, True)
End Sub

Espérant avoir répondu.

Cordialement.

merci, sa marche....nickel...😎