Bonjour
Voici mon code VBA:
Public Flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Flag Then Exit Sub
If Not Application.Intersect(Target, Columns("c")) Is Nothing Then
If Target.Count > 9 Then Exit Sub
If Application.CountIf(Range("c6:c175"), "CA") > 9 Then
Flag = TrueMsgBox ("Le nombre maximal de CA est déjà atteint!")
Target.ClearContents
Flag = False
End If
End If
End Sub
Il bloque dès que l'on essaie d'enregistrer une cellule avec la valeur "CA" dans la plage C6:C175 alors qu'il y a déjà 9 cellules avec la valeur "CA" dans cette plage.
Je souhaiterai que ce code fasse la même chose dans les colonnes d, e, f jusqu'à m, avec les plages d6:d175, e6:e175 ... jusqu'à m6:m175.
Vous avez mon exemple ci-joint.
Merci par avance
Emmanuel
Voici mon code VBA:
Public Flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Flag Then Exit Sub
If Not Application.Intersect(Target, Columns("c")) Is Nothing Then
If Target.Count > 9 Then Exit Sub
If Application.CountIf(Range("c6:c175"), "CA") > 9 Then
Flag = TrueMsgBox ("Le nombre maximal de CA est déjà atteint!")
Target.ClearContents
Flag = False
End If
End If
End Sub
Il bloque dès que l'on essaie d'enregistrer une cellule avec la valeur "CA" dans la plage C6:C175 alors qu'il y a déjà 9 cellules avec la valeur "CA" dans cette plage.
Je souhaiterai que ce code fasse la même chose dans les colonnes d, e, f jusqu'à m, avec les plages d6:d175, e6:e175 ... jusqu'à m6:m175.
Vous avez mon exemple ci-joint.
Merci par avance
Emmanuel
