Autorisation d'écrire que si signature

bonjour,

je voudrais que dans le fichier joints les personnes puissent écrire en colonne "D" qui si ils ont au préalable validé leur nom en colonne "E" ?

cordialement,

Francky

Salut,

Avec un rajout dans ta macro Worksheet_Change :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'Rajout Yvouille
If Target.Count > 1 Then Exit Sub

    If Not Application.Intersect(Target, Range("D2:D65000")) Is Nothing Then
        If Target.Offset(0, 1) = "" Then
            MsgBox ("Veuillez saisir un nom dans la colonne E")
            Application.EnableEvents = False
            Target = ""
            Application.EnableEvents = True
            Exit Sub
        End If
    End If
'Fin du rajout

If Target.Column = 3 Then
Target.Offset(0, -2) = Date
Target.Offset(0, -1) = Format(Time, "h:m:s")
End If
End Sub

Cordialement.

Place le code suivant:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 3 Then

Target.Offset(0, -2) = Date

Target.Offset(0, -1) = Format(Time, "h:m:s")

End If

ActiveSheet.Unprotect

For i = 2 To 40

If Cells(i, 5).Value = "" Then

Cells(i, 4).Locked = True

Else: Cells(i, 4).Locked = False

End If

Next

ActiveSheet.Protect

End Sub

Ca devrait fonctionner =)

Dovidus

PJ: doc modifié

Merci Yvouille c'est exactement ça !

vive le VBA !...

Francky