Bonjour,

Je me tourne encore vers votre aide car une partie de mon code ne marche plus.

Je souhaite avoir un message d'erreur lorsque une cellulle contient une valeur. Cependant, ce code ne fonctionne plus depuis que j'ai intégré dans le code un vérouillage/dévérouillage de l'onglet. Voilà la partie de mon code qui bug :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
 
 Dim cel As Range
    Dim mgs As String
 
    Sheets("E1_SA").Select
If Application.WorksheetFunction.CountIf(Range("I9:I84"), "A COMPLETER") = 1 Then
 If MsgBox("Saisie Incomplète", vbCritical, Attention) = vbOK Then
 End If
    Exit Sub
End If
Désormais, rien ne se passe sur lorsqu'une celulle contient "A COMPLETER". Est-ce que vous connaissez une alternative?

Merci par avance de votre aide.

Boris