Bonjour je termine ce matin mon projet masi j'ai un souci :" nom ambigue detecte Worksheet_Calculate"
Pouvez-vous m'aidez?
Option Explicit
Dim MemoCell As String
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Private Sub Worksheet_Calculate()
On Error Resume Next
If Cells(181, 2) <> MemoCell Then
Cells(181, 1) = 1 = " & Cells(181, 2).Value"
MemoCell = Cells(181, 2)
Call toto
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$2" And Cells(181, 2) <> MemoCell Then
Cells(181, 1) = 1 = " & Cells(181, 2).Value"
MemoCell = Cells(181, 2)
Call toto
End If
End Sub
Sub toto()
If Range("b181") = 1 Then
ActiveSheet.Shapes("253").Select
Selection.Verb Verb:=xlPrimary
MsgBox "Attention ALERTE!!!"
End If
End Sub
Private Sub Worksheet_Calculate(glyoxal)
Dim cel As Range
On Error Resume Next 'en cas de valeur d'erreur en ligne 12
For Each cel In Range("O13:IV13")
If Application.Count(cel.Offset(-2).Resize(3)) = 3 And (cel < 8.5 Or cel > 11) Then _
MsgBox "Le tonnage de Glyoxal, ne correspondant pas aux attentes, veuillez verifier le tonnage et vous référé à Mr Papaux pour plus d'information.", 16
Next
End Sub
Pouvez-vous m'aidez?
Option Explicit
Dim MemoCell As String
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Private Sub Worksheet_Calculate()
On Error Resume Next
If Cells(181, 2) <> MemoCell Then
Cells(181, 1) = 1 = " & Cells(181, 2).Value"
MemoCell = Cells(181, 2)
Call toto
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$2" And Cells(181, 2) <> MemoCell Then
Cells(181, 1) = 1 = " & Cells(181, 2).Value"
MemoCell = Cells(181, 2)
Call toto
End If
End Sub
Sub toto()
If Range("b181") = 1 Then
ActiveSheet.Shapes("253").Select
Selection.Verb Verb:=xlPrimary
MsgBox "Attention ALERTE!!!"
End If
End Sub
Private Sub Worksheet_Calculate(glyoxal)
Dim cel As Range
On Error Resume Next 'en cas de valeur d'erreur en ligne 12
For Each cel In Range("O13:IV13")
If Application.Count(cel.Offset(-2).Resize(3)) = 3 And (cel < 8.5 Or cel > 11) Then _
MsgBox "Le tonnage de Glyoxal, ne correspondant pas aux attentes, veuillez verifier le tonnage et vous référé à Mr Papaux pour plus d'information.", 16
Next
End Sub