Discussion :

[borisp]

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

[cerede2000]

Re !

Déjà il y a un truc qui me chagrine

Ceci :

Code :

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

If Application.WorksheetFunction.CountIf(Range("I9:I84"), "A COMPLETER") = 1 Then

Si tu as plus d'une cellule dans la plage qui contient "A COMPLETER" alors le message ne s’affichera pas....

Il faudrait plutôt :

Code :

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

If Application.WorksheetFunction.CountIf(Range("I9:I84"), "A COMPLETER") > 0 Then

[borisp]

Bravo!! Merci infiniment!