Discussion :

[jnmab]

Bonjour,

Je souhaite empêcher la saisie dans une cellule si le nombre des cellules déjà saisies (Nbval) atteint un certain montant.
exemple : J'ai un plafond fixé à 10 en cellule A1 ; si j'ai déjà 10 cellules renseignées dans la colonne A, la saisie dans une cellule supplémentaire de la colonne A me sera refusée.
Quelqu'un pourrait m'aider ?
merci

[BlueMonkey]

Bonsoir,

Ci-dessous un code pour empêcher la saisie de plus de 10 valeurs dans la colonne A.
Code à insérer dans le code VBA de la feuille concernée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Intersect(Range("A:A"), Target)) Then
        If WorksheetFunction.CountA(Range("A:A")) > 10 Then
            Application.EnableEvents = False
            Target.Value = ""
            Application.EnableEvents = True
        End If
    End If
End Sub

[jnmab]

Formidable, merci !

Ca a marché.. par contre, tout à coup, rien à faire, mes saisies les plus diverses n'appellent plus du tout le code VBA

Aurais-je fait une mauvaise manip ? J'ai fermé mon fichier, puis ouvert à nouveau, rien n'y fait.

[jnmab]

R.A.S ! J'ai trouvé l'erreur..

J'étais sorti sur un "Application.EnableEvents = False"

Donc tout va bien

merci encore !