Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Re bonjourJ'ai fait ce qui suit ou est l'erreur?Desole je ne suis pas tres bonPrivate Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 56 And Target.Count = 1 ThenIf Target.Value = "OK" ThenActiveSheet.UnprotectRange(Cells(Target.Row, 1), Cells(Target.Row, 56)).Locked = TrueRange(Cells(Target.Row, 1), Cells(Target.Row,56)).Interior.ColorIndex = 33Range("Feuil1!G65536").End(xlUp).Offset(1, 0) = Cells(Target.Row,Target.Column - 25)ActiveSheet.ProtectEnd IfEnd IfEnd SubMerci--IMER09
Re bonjour J'ai fait ce qui suit ou est l'erreur? Desole je ne suis pas tres bon Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 56 And Target.Count = 1 Then If Target.Value = "OK" Then ActiveSheet.Unprotect Range(Cells(Target.Row, 1), Cells(Target.Row, 56)).Locked = True Range(Cells(Target.Row, 1), Cells(Target.Row, 56)).Interior.ColorIndex = 33 Range("Feuil1!G65536").End(xlUp).Offset(1, 0) = Cells(Target.Row, Target.Column - 25) ActiveSheet.Protect End If End If End Sub Merci -- IMER09
Sheets("Feuil1").Range("G65536").End(xlUp).Offset(1, 0) =Cells(Target.Row,(Target.Column) - 25)ou
Celà devrait faire kif kif
Sheets("Feuil1").Range("G65536").End(xlUp).Offset(1, 0) = Cells(Target.Row, (Target.Column) - 25) ou