Comment vérouillé une cellule avec condition et message d'erreur

Andry

XLDnaute Junior
Bonjour à tous,
Alors voila!!!
je veux verrouiller une plage de donnée tant que deux autres cellules ne sont pas remplie. Et afficher un message d'erreur si l'utilisateur tente de saisir quelque chose. Il peut sélectionner la cellule mais ne peut pas la remplir.
Ci joint l'exemple.
Merci!!
 

Pièces jointes

  • nom.xls
    13.5 KB · Affichages: 59
  • nom.xls
    13.5 KB · Affichages: 55
  • nom.xls
    13.5 KB · Affichages: 55

Excel-lent

XLDnaute Barbatruc
Re : Comment vérouillé une cellule avec condition et message d'erreur

Bonjour Andry,

Voici ci-joint une macro permettant de faire cela.

Je te laisse tester et voir si cela correspond à tes attentes.

-> à l'ouverture du fichier, excel verrouille l'accés aux cellules de B5 à B...

-> à chaque saisie, excel vérifie si le nom et le prénom sont renseignés. Tant que ce n'est pas fait la macro demande de faire le nécessaire et laisse verrouillé la saisie dans les cellules mentionnées ci-dessus.

-> Une fois le nom ET le prénom renseigné, la macro débloque la saisie pour les cellules B5 à B...

-> Si le nom et/ou prénom précédemment renseigné venait à être effacé, la macro re-vérouillerais la saisie dans les cellules B5 à B... et demanderais à l'utilisateur de remédier à la situation

Bonne nuit
 

Pièces jointes

  • nom.xls
    25 KB · Affichages: 80
  • nom.xls
    25 KB · Affichages: 79
  • nom.xls
    25 KB · Affichages: 78

Andry

XLDnaute Junior
Re : Comment vérouillé une cellule avec condition et message d'erreur

Bonjour!! et merci de s'intéresser à mon problème.
Est ce que c'est possible de séparer les 2 messages: nom et prénom?
le macro fonctionne très bien mais c'est la feuille qui est verrouillé et non pas les cellules B5 à B14. Et lorsque je sélectionne la cellule B1 afin de remplir le nom, j'ai le message d'erreur!
Encore merci!!
je n'arrive pas à dormir:mad:
 

JHA

XLDnaute Barbatruc
Re : Comment vérouillé une cellule avec condition et message d'erreur

Bonjour à tous,

Ci joint un essai de protection par validation des données

JHA
 

Pièces jointes

  • essai nom.xls
    17 KB · Affichages: 63
  • essai nom.xls
    17 KB · Affichages: 65
  • essai nom.xls
    17 KB · Affichages: 64

DoubleZero

XLDnaute Barbatruc
Re : Comment vérouillé une cellule avec condition et message d'erreur

Bonjour, le Fil, le Forum,

Une autre suggestion dans le fichier joint.

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("B1") = "" Then Rows("2:15").EntireRow.Hidden = True
If Range("B1") <> "" Then Rows("2:2").EntireRow.Hidden = False
If Range("B2") = "" Then Rows("3:15").EntireRow.Hidden = True
If Range("B2") <> "" Then Rows("3:15").EntireRow.Hidden = False
If Range("B1") <> "" And Range("B2") <> "" Then Rows("3:15").EntireRow.Hidden = False
If Range("B1") <> "" And Range("B2") <> "" Then
ActiveSheet.Shapes("Message").Visible = False
Else
ActiveSheet.Shapes("Message").Visible = True
End If
Application.ScreenUpdating = True
End Sub
Si, toutefois, la macro n'était pas activée, elle ne serait d'aucune efficacité :(...

A bientôt :)
 

Pièces jointes

  • 00 - Andry - Saisie obligatoire !.xls
    39 KB · Affichages: 52

Andry

XLDnaute Junior
Re : Comment vérouillé une cellule avec condition et message d'erreur

Merci à tous!!
effectivement le plus simple c'est passer par validation!
Je vais faire un mix des 3 macros et je vous tiens au courant du résultat (sinon validation)!!
:)
 

Philippe68

XLDnaute Occasionnel
Re : Comment vérouillé une cellule avec condition et message d'erreur

Bonjour,

et pour protèger une formule de la ou les cellules :

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("C36:D36"), Target) Is Nothing Then
  Target.Offset(0, 1).Select
End If
End Sub

Changer le Range à ta guise.
Ca peut servir :cool:
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna