suppression texte si modification dans colonne

[mounette]

Bonjour,
Voici un fichier dans lequel si je modifie une ou plusieurs cellule de la colonne B je souhaite modifié la cellule A53 par d'autre initiale selon l'utilisateur.
Le fichier ne doit pas être fermé sans cette modification.
Pouvez-vous m'aider ?

Merci beaucoup Mounette

 

[flyonets44]

Re : suppression texte si modification dans colonne

Bonsoir mounette
Voici le code vba à insérer dans le module de ta feuille 1 : clique droit sur le nom de la feuille/ visualiser le code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
range("a53").value ="Toto
End If
End Sub
Cordialement
Flyonets

 

[Softmama]

Re : suppression texte si modification dans colonne

Bonjour mounette (bienvenue sur le forum), bonjour flyonets44,

Pour ma part, je comprends différemment la demande de mounette. Vois si cela correspond à ton besoin :
Ceci dans le module ThisWorkBook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Do While [A53] = ""
  [A53] = InputBox("Merci d'entrer vos initiales, suite aux changements effectués dans la colonne B", "")
Loop
End Sub

cela dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Column = 2 Then [A53] = ""
End Sub

Cf. fichier joint

 

[mounette]

Re : suppression texte si modification dans colonne

Merci beaucoup pour ton aide. Impressionnant.
Bonne soirée.
Mounette