Problème de vérrouillage cellule

Bonjour,

Apres avoir réalisé plusieurs recherche dans les forums et une apres midi à faire des copier coller de macro, à fouiller dans le net j'ai pas réussi

Voila je cherche dans un tableau excel ou la date se met automatiquement dans un cellule si la cellule d'avant est remplie, le souci c que la date change à chaque ouverture du fichier, je connais rien du tout dans le VBA

Pouvez-vous m'aider sur le sujet je vous met mon fichier

Bonjour

code de feuille TER ajoute la date en colonne C quand une valeur est entrée en colonne B

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
    Target.Offset(0, 1) = Date
    End If
End Sub

Cordialement

Merci ça marche super sans vouloir abuser comment je peut faire pour la colonne M si L egal oui?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then

Target.Offset(0, 1) = Date

End If

If Target.Column = 12 Then

Target.Offset(0, 1) = Date

End If

End Sub

ça marche mais il y as pas la condition si oui

Bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, 1) = Date
End If
If Target.Column = 12 And Target = "OUI" Then
Target.Offset(0, 1) = Date
End If
End Sub

Cordialement

Merci c'est super sa marche d'enfer

Par contre as-tu une solution quand je verrouille les cellules des date une fois la feuille protegée j'ai une erreur de débogage, c'est parce-que c'est un fichier partagé en reseau il faut que personne puisse la modifier.

Merci

pascal80 a écrit :

Par contre as-tu une solution quand je verrouille les cellules des date une fois la feuille protegée j'ai une erreur de débogage, c'est parce-que c'est un fichier partagé en reseau il faut que personne puisse la modifier.

Merci

Quelqu'un as une idée? Merci

J'ai trouvé ça mais quand je met le classeur en partage j'ai une erreur sinon sa marche pouvez-vous m'aider?

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect Password:="mot de passe"

If Target.Column = 2 Then

Target.Offset(0, 1) = Date

End If

If Target.Column = 2 And Target = "" Then

ActiveSheet.Unprotect Password:="mot de passe"

Target.Offset(0, 1) = ""

End If

If Target.Column = 12 And Target = "OUI" Then

Target.Offset(0, 1) = Date

ActiveSheet.Protect Password:="mot de passe"

End If

ActiveSheet.Unprotect Password:="mot de passe"

If Target.Column = 12 And Target = "NON" Then

Target.Offset(0, 1) = ""

End If

If Target.Column = 12 And Target = "" Then

Target.Offset(0, 1) = ""

End If

ActiveSheet.Protect Password:="mot de passe"

End Sub

Sa a l'air compliqué je vais rester comme ça merci à tous pour votre aide

Rechercher des sujets similaires à "probleme verrouillage"