Bonjour à tous,
L'alerte "beep" de ma macro se déclenche lorsque je clique sur la cellule.
J'aimerai qu'elle se mette en route (après la saisie) après la tabulation ou lorsqu'on clique sur une autre cellule.
De plus, j'ai mis une valeur < à 35 alors que j'aimerai une formule =< "i10 x"*0.7 à la place (exemple si la valeur est 50 que le "beep" se déclenche à 50*0.7 soit < à 35
(je sais cela fait 2 questions sur un même post et si c'est gênant je créerai un autre post)
Merci pour vos retours^^
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim HCoché As Boolean, TV()
If Target.CountLarge = 1 Then
If Not Intersect([H18,J18], Target) Is Nothing Then
HCoché = IsEmpty([J18].Value)
[H18].Value = IIf(HCoché, Empty, ChrW(&H2713))
[J18].Value = IIf(HCoché, ChrW(&H2713), Empty)
ElseIf Not Intersect([Q24:S43,Q45:S48], Target) Is Nothing Then
TV = Array(Empty, Empty, Empty)
TV(Target.Column - 17) = ChrW(&H2713)
[Q:S].Rows(Target.Row).Value = TV
End If: End If
'If Target.Address = Range("d19").Address And Range("d19").Value < 35 Then
If Target.Address = Range("d19").MergeArea.Address And Range("d19").Value < 35 Then
Dim I
For I = 1 To 3 ' Loop 3 times.
Beep
'PlaySound ThisWorkbook.Path & "\0257", 0, 1
MsgBox "Attention valeur hors tolérance"
Next
End If
End Sub
L'alerte "beep" de ma macro se déclenche lorsque je clique sur la cellule.
J'aimerai qu'elle se mette en route (après la saisie) après la tabulation ou lorsqu'on clique sur une autre cellule.
De plus, j'ai mis une valeur < à 35 alors que j'aimerai une formule =< "i10 x"*0.7 à la place (exemple si la valeur est 50 que le "beep" se déclenche à 50*0.7 soit < à 35
(je sais cela fait 2 questions sur un même post et si c'est gênant je créerai un autre post)
Merci pour vos retours^^
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim HCoché As Boolean, TV()
If Target.CountLarge = 1 Then
If Not Intersect([H18,J18], Target) Is Nothing Then
HCoché = IsEmpty([J18].Value)
[H18].Value = IIf(HCoché, Empty, ChrW(&H2713))
[J18].Value = IIf(HCoché, ChrW(&H2713), Empty)
ElseIf Not Intersect([Q24:S43,Q45:S48], Target) Is Nothing Then
TV = Array(Empty, Empty, Empty)
TV(Target.Column - 17) = ChrW(&H2713)
[Q:S].Rows(Target.Row).Value = TV
End If: End If
'If Target.Address = Range("d19").Address And Range("d19").Value < 35 Then
If Target.Address = Range("d19").MergeArea.Address And Range("d19").Value < 35 Then
Dim I
For I = 1 To 3 ' Loop 3 times.
Beep
'PlaySound ThisWorkbook.Path & "\0257", 0, 1
MsgBox "Attention valeur hors tolérance"
Next
End If
End Sub