Déclancher une macro quand le nombre de 3 chiffres est atteint

[isa44]

Bonsoir tout le monde, j'espère être claire dans mes explications :

Je voudrais qu'une macro ( test1) se déclanche quand la saisie dans des cellules définies (C6:C24,H6:H42,M6:M32) atteind 3 chiffres.

Je vous remercie si vous trouvez la solution.

 

[ninbihan]

Re : Déclancher une macro quand le nombre de 3 chiffres est atteint

Bonsoir,

Code à placer dans la feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("M6:M32,H6:H42,C6:C24"), Target) Is Nothing Then Exit Sub
If Range("M6:M32,H6:H42,C6:C24").SpecialCells(xlCellTypeConstants, 1).Count = 3 Then
test1
End If
End Sub

Bonne soirée,

Ninbihan