Bloquer une cellule après y avoir entrée une donnée
Résolu/Fermé
bel.lor
Messages postés
3
Date d'inscription
jeudi 5 janvier 2017
Statut
Membre
Dernière intervention
6 janvier 2017
-
Modifié par bel.lor le 5/01/2017 à 21:47
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 - 6 janv. 2017 à 15:14
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 - 6 janv. 2017 à 15:14
A voir également:
- Bloquer une cellule après y avoir entrée une donnée
- Bloquer une cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Comment bloquer une personne sur messenger - Guide
- Bloquer une colonne excel - Guide
3 réponses
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
5 janv. 2017 à 21:46
5 janv. 2017 à 21:46
Bonsoir,
Oui c'est tout à fait possible mais en VBA uniquement si tu as quelques notions
Oui c'est tout à fait possible mais en VBA uniquement si tu as quelques notions
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
Modifié par Mike-31 le 5/01/2017 à 23:40
Modifié par Mike-31 le 5/01/2017 à 23:40
Re,
exemple tu veux contrôler la plage B6:P40
commence par sélectionner la plage B6:P40/clic droit/Format de cellule/onglet Protection/décoche Déverrouillée
ensuite il faut protéger la feuille, et pour que la déprotection ne se fasse pas d'un simple clic je te conseille la protection avec mot de passe "ATTENTION DE NE PAS L'OUBLIER"
dans le code j'ai prévu open comme mot de passe, donc soit tu changes ce mot de passe par celui utilisé lorsque tu protégeras ta feuille, soit tu protège ta feuille avec mon mot de passe open respecte également les majuscules et minuscules
clic droit sur l'onglet de ta feuille/Visualiser le code/coller le code ci dessous
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
exemple tu veux contrôler la plage B6:P40
commence par sélectionner la plage B6:P40/clic droit/Format de cellule/onglet Protection/décoche Déverrouillée
ensuite il faut protéger la feuille, et pour que la déprotection ne se fasse pas d'un simple clic je te conseille la protection avec mot de passe "ATTENTION DE NE PAS L'OUBLIER"
dans le code j'ai prévu open comme mot de passe, donc soit tu changes ce mot de passe par celui utilisé lorsque tu protégeras ta feuille, soit tu protège ta feuille avec mon mot de passe open respecte également les majuscules et minuscules
clic droit sur l'onglet de ta feuille/Visualiser le code/coller le code ci dessous
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Selection, Range("B6:P40")) Is Nothing Then
If Target <> "" Or Target.Interior.ColorIndex <> xlNone Then
ActiveSheet.Unprotect Password:="open"
Target.Locked = True
ActiveSheet.Protect Password:="open"
End If
End If
End Sub
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
bel.lor
Messages postés
3
Date d'inscription
jeudi 5 janvier 2017
Statut
Membre
Dernière intervention
6 janvier 2017
6 janv. 2017 à 15:00
6 janv. 2017 à 15:00
Super, c'est exactement ce que je cherchais. Un gros merci. Bravo pour tes connaissances en Excell,
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
Modifié par Mike-31 le 6/01/2017 à 15:32
Modifié par Mike-31 le 6/01/2017 à 15:32
Re,
Alors je passe le statut de la discussion en résolu
dans mon code j'ai laissé trainer un contrôle qui testait la couleur de la cellule et donc inutile, supprime ce bout de code
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
Alors je passe le statut de la discussion en résolu
dans mon code j'ai laissé trainer un contrôle qui testait la couleur de la cellule et donc inutile, supprime ce bout de code
Or Target.Interior.ColorIndex <> xlNone
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
5 janv. 2017 à 21:51