Verrouiller une ligne par rapport a une cellule
bonsoir je vient vers vous pour une aide précieuse,je cherche a protéger en écriture une ligne par une cellule
MERCI A VOUS
bonjour ,es ce que quelqu'un peut m'aider SVP
MERCI
REBONJOUR ?et merci pour ta reponse mais je voudrait la ligne jaune soit proteger par rapport a la cellule p2 quand ce ecrit verrouiller
merci pour vos reponse
Bonjour à tous,
Je ne sais pas si gmb comprend mieux ta demande ...
La ligne jaune dont tu parles est sans doute une zone de saisie ...
As-tu concrètement fais des tests avec les propositions que tu as reçues ...
rebonjour a tous ,excusez moi si je m'exprime mal
j'aimerais que la ligne ou ce trouve verrouiller en P soit protéger en écriture et enlève la protection quand ce écrit en P déverrouiller
LIGNE 1 protéger si écrit verrouiller en p1 ,ligne 1 enlever la protection si écrit déverrouiller en P1
LIGNE 2 protéger si écrit verrouiller en p2 ,ligne 2 enlever la protection si écrit déverrouiller en P2
LIGNE 3 protéger si écrit verrouiller en p3 ,ligne 3 enlever la protection si écrit déverrouiller en P3
et ainsi de suite
j'espère avoir été assez clair
merci pour vos réponse
Un nouvel essai.
Mais tu devrais éviter les cellules fusionnées : les macros les détestent et te créeront des ennuis...
Bye !
bonsoir ,merci pour ta reponse c'est ce que voulait merci beaucoup a toi gmb
rebonjour ,j'ai essayer d'adapter ta formule a mon tableau mais je n'y arrive pas
peut tu stp me l'adapter sur mon tableau
j'ai beau essayer je n'y arrive pas
merci a toi
salut a vous pouvez vous m'expliquer comment mettre la protection de la feuille si faut cocher "selectionner les cellule verrouiller" et
"selectionner les cellules deverouiller"
merci
rebonjour ,peut tu me traduire ce que tu m'as ecrit stp :
Option Explicit
Dim c, ln
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
If Target.Count > 1 Then End
If Not Intersect(Target, Union(Range("G1"), Range("A7"), Range("A22"), _
Range("A37"), Range("A52"), Range("A67"), Range("A82"))) Is Nothing Then
ActiveSheet.Unprotect "caje17"
For ln = 7 To 82 Step 15
Range("C" & ln + 2 & ":L" & ln + 4 & _
",M" & ln + 3 & ":R" & ln + 4 & _
",S" & ln + 2 & ":T" & ln + 4 & _
",U" & ln + 2 & ":X" & ln + 2 & _
",Y" & ln + 2 & ":AJ" & ln + 4 & _
",AK" & ln + 3 & ":AZ" & ln + 4 & _
",BA" & ln + 2 & ":BE" & ln + 4 & _
",BF" & ln + 2 & ":BF" & ln + 4 & _
",C" & ln + 6 & ":X" & ln + 14 & _
",Y" & ln + 6 & ":BF" & ln + 12 & _
",Y" & ln + 13 & ":BF" & ln + 14).Select
If Cells(ln, "A") = Cells(1, "G") Then
Selection.Locked = False
Else
Selection.Locked = True
End If
Next
ActiveSheet.Protect "caje17"
End If
Application.EnableEvents = True
End Sub
Sub Evenement()
Application.EnableEvents = True
End Sub
je suis un peu perdu
merci d'avance
Bonjour
caje17 a écrit :peut tu me traduire ce que tu m'as ecrit stp
Bien sûr.
Mais il m'aurait été agréable de savoir si elle te donne satisfaction.
Voilà le document avec la macro commentée.
gmb a écrit :Bonjour
caje17 a écrit :peut tu me traduire ce que tu m'as ecrit stp
Bien sûr.
Mais il m'aurait été agréable de savoir si elle te donne satisfaction.
Voilà le document avec la macro commentée.
Bien vu gmb ...!!!
bonjour je te remercie ca me donne satisfaction sauf que j'ai un souci je n'arrive pas a le mettre en place sur mes feuilles
merci encore
salut gmb et tous les autres
encore un petit coup de main ,j'abuse de ta patience mais je suis en galere avant de te remercier je testait et j'ai vraiment du mal
peux tu stp me l'adapter sur mes 2 pages Novembre 2014 et Decembre 2014 je te remercie d'avance
Deux remarques :
1 – Le fichier pour lequel je t’ai fait une macro était différent de celui du fichier ‘’jérome’’. Il y avait en colonne A une date par couleur, c’est-à-dire pour 15 lignes. Pour le fichier ‘’jérome, il y a maintenant 3 couleurs pour une date, c’est-à-dire 45 lignes. Est-ce normal ?
2 – Tu parles de deux pages sur ton nouveau fichier, celles de Novembre 2014 et de Décembre 2014. Mais moi je ne vois qu’une feuille sur laquelle on trouve un tableau de Novembre 2014. Si tu veux que j’adapte la macro pour décembre, joins un fichier où il y a décembre …
A te relire.
merci a toi de me repondre
ce normal qu'il n'y a pas decembre car j'ai ete obliger de l'enlever le fichier fait plus de 300ko donc si tu peut me le faire sur novembre ca serait sympa et oui ce normal ce le veritable tableau du mois de novembre, je l'avait modifier pour le simplifier
merci beaucoup