Bonsoir,
Je teste une cellule,avec un comptage de valeurs;soit "143"valeurs quand toutes les cellules sont remplies.Mais quand le test se passe,il bogue;et là je ne comprends pas;la boite de dialogue n'apparait pas quand la valeur n'est pas atteinte(143)
Voici le code cela permettra,sans doute de voir le problème.
Merci de votre aide.
laplayast.
-------------------------------------------------------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("feuille1")
If .Range("K11").Value <> 143 Then
Application.EnableEvents = False
.Activate
Application.EnableEvents = True
.Range("F48:F57,G11:G16,G31,G33:G37,G40:G43,G45,G48:G57,H11:H17,H30:H31,H33:H37,H40:H43,H45,H48:H52,H53:H57,H65:H67,H69,O28,B4:B5,B8,B33:B36,B40,B42:B43,B45,B48:B52,B54,C30:C32,C37:C39,C44,C53,C55:C57,C65:C66,C69,D4,D8,D1117,D28,D52,E11:E16,E37,E39,E53:E54,E65:E67,F4,F11:F16,F31,F33:F37,F40:F43,F45").Select
MsgBox "Merci de bien vouloir remplir les cellules sélectionnées !", vbCritical, "ATTENTION ..."
Exit Sub '
End If
End With
Je teste une cellule,avec un comptage de valeurs;soit "143"valeurs quand toutes les cellules sont remplies.Mais quand le test se passe,il bogue;et là je ne comprends pas;la boite de dialogue n'apparait pas quand la valeur n'est pas atteinte(143)
Voici le code cela permettra,sans doute de voir le problème.
Merci de votre aide.
laplayast.
-------------------------------------------------------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("feuille1")
If .Range("K11").Value <> 143 Then
Application.EnableEvents = False
.Activate
Application.EnableEvents = True
.Range("F48:F57,G11:G16,G31,G33:G37,G40:G43,G45,G48:G57,H11:H17,H30:H31,H33:H37,H40:H43,H45,H48:H52,H53:H57,H65:H67,H69,O28,B4:B5,B8,B33:B36,B40,B42:B43,B45,B48:B52,B54,C30:C32,C37:C39,C44,C53,C55:C57,C65:C66,C69,D4,D8,D1117,D28,D52,E11:E16,E37,E39,E53:E54,E65:E67,F4,F11:F16,F31,F33:F37,F40:F43,F45").Select
MsgBox "Merci de bien vouloir remplir les cellules sélectionnées !", vbCritical, "ATTENTION ..."
Exit Sub '
End If
End With