Bonjour,
Je souhaiterais ajouter une condition au code ci-dessous. Afin que la boite de dialogue s'affiche uniquement quand le chiffre 21 est rentré dans la colonne G.
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("D65000"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Value = "71076" Or xCell.Value = "605106" Or xCell.Value = "603149" 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
Merci d'avance,
Je souhaiterais ajouter une condition au code ci-dessous. Afin que la boite de dialogue s'affiche uniquement quand le chiffre 21 est rentré dans la colonne G.
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("D65000"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Value = "71076" Or xCell.Value = "605106" Or xCell.Value = "603149" 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
Merci d'avance,