Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("G6:G5000"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Value = 21 And (xCell.Offset(0, -3).Value = "71076" Or xCell.Offset(0, -3).Value = "605106" Or xCell.Offset(0, -3).Value = "603149") Then
MsgBox "Renseigner la carte de ctrl CDC-CAU- 036 - Suivi masse après imprégnation tissu 711501", vbExclamation, "Remplir la carte de ctrl"
ThisWorkbook.FollowHyperlink...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("D6:D5000"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Offset(0, 3).Value = 21 And (xCell.Value = "71076" Or xCell.Value = "605106" Or xCell.Value = "603149") Then
Dim Reponse
Reponse = MsgBox("Renseigner la carte de ctrl CDC-CAU- 036 - Suivi masse après imprégnation tissu 711501", vbExclamation, "Remplir la carte de ctrl")
If Reponse = vbOK Then
ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CDC-CAU- 036 - SUIVI MASSE ISOTEX APRES IMPREGNATION\CDC-CAU- 036 - Suivi masse après imprégnation.xlsx"
End If
End If
Next
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("D6:D5000"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If (xCell.Value = "71076" Or xCell.Value = "605106" Or xCell.Value = "603149") And Cells(xCell.Row, "G") = 21 Then
Dim Reponse As String
MsgBox "Renseigner la carte de ctrl CDC-CAU- 036 - Suivi masse après imprégnation tissu 711501", vbExclamation, "Remplir la carte de ctrl"
If Reponse = vbOK Then
ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CDC-CAU- 036 - SUIVI MASSE ISOTEX APRES IMPREGNATION\CDC-CAU- 036 - Suivi masse après imprégnation.xlsx"
End If
End If
Next
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("D6:D5000"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Offset(0, 3).Value = 21 And (xCell.Value = "71076" Or xCell.Value = "605106" Or xCell.Value = "603149") Then
If MsgBox("Renseigner la carte de ctrl CDC-CAU- 036 - Suivi masse après imprégnation tissu 711501", vbExclamation, "Remplir la carte de ctrl") Then
ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CDC-CAU- 036 - SUIVI MASSE ISOTEX APRES IMPREGNATION\CDC-CAU- 036 - Suivi masse après imprégnation.xlsx"
End If
End If
Next
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("D6:D5000"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Offset(0, 3).Value = 21 And (xCell.Value = "71076" Or xCell.Value = "605106" Or xCell.Value = "603149") Then
If MsgBox(xCell.Address & Chr(10) & "Renseigner la carte de ctrl CDC-CAU- 036 - Suivi masse après imprégnation tissu 711501", vbExclamation, "Remplir la carte de ctrl") Then
ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CDC-CAU- 036 - SUIVI MASSE ISOTEX APRES IMPREGNATION\CDC-CAU- 036 - Suivi masse après imprégnation.xlsx"
End If
End If
Next
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("G6:G5000"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Value = 21 And (xCell.Offset(0, -3).Value = "71076" Or xCell.Offset(0, -3).Value = "605106" Or xCell.Offset(0, -3).Value = "603149") Then
If MsgBox("Renseigner la carte de ctrl CDC-CAU- 036 - Suivi masse après imprégnation tissu 711501", vbExclamation, "Remplir la carte de ctrl") Then
ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CDC-CAU- 036 - SUIVI MASSE ISOTEX APRES IMPREGNATION\CDC-CAU- 036 - Suivi masse après imprégnation.xlsx"
End If
End If
Next
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("G6:G5000"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Value = 21 And (xCell.Offset(0, -3).Value = "71076" Or xCell.Offset(0, -3).Value = "605106" Or xCell.Offset(0, -3).Value = "603149") Then
MsgBox "Renseigner la carte de ctrl CDC-CAU- 036 - Suivi masse après imprégnation tissu 711501", vbExclamation, "Remplir la carte de ctrl"
ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CDC-CAU- 036 - SUIVI MASSE ISOTEX APRES IMPREGNATION\CDC-CAU- 036 - Suivi masse après imprégnation.xlsx"
End If
Next
End If
End Sub