Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Empècher effacement

  • Initiateur de la discussion Initiateur de la discussion Michel68000
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

Michel68000

Guest
Bonjour,

dans ma feuille en A2:A60 j'ai une liste de noms et en B,C....M les coordonnées de ces gens.
En F si j'ai une date d'entrée ,je voudrais m'en servir pour fixer la ligne de A(x )à M(x).


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(Target.Row, 6) < Date And Target.Column <> 6 Then
La je voudrais que la cellule A(x)de la ligne concernée passe de protect=false à true
End If
End Sub

J'ai essayé pas mal de trucs mais rien y fait la propriété protection de la cellule ne passe jamais à protégé.Si elle passait en protégé l'utilisateur n'aurait pas la possibilité de l'effacer oude le modifier.
Si qq à une astuce ça m'éviterais de vérifier manuellement tous les onglets
Merci d'avance
 
Re : Empècher effacement

Bonjour Michel

Un code à tester si j'ai bien compris...

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:M60")) Is Nothing Then
ActiveSheet.Unprotect
If Cells(Target.Row, 6) < Date And Cells(Target.Row, 6) <> "" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).Locked = True
Else
Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).Locked = False
End If
End If
ActiveSheet.Protect
End Sub
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
643
Réponses
7
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…