Valeur cellule après alerte

[la lozere]

Bonjour,
J'ai un fichier avec plusieurs feuilles. Dans chacune d'entre elles, il y a une macro qui renomme la feuille en fonction de la valeur de la cellule E4.
J'ai réussi à mettre une alerte lorsqu'un utilisateur rentre une valeur en E4, engendrant un doublon de nom de feuille.

MsgBox "Sélection impossible.", vbCritical

Mais une fois sortie de cette alerte, on peu ce rendre compte que la valeur de la cellule à quand même changer.

Ce que je voudrais c'est que dans le cas de tentative de saisi d'une valeur engendrant l'erreur, la valeur de la cellule reste à sa valeur initiale.
J'ai essayé plusieurs trucs comme mémoriser la valeur lors de l'activation de la feuille.

Private Sub Worksheet_Activate()
memo = Range("E4")
End Sub

pour la restituer ensuite, mais je ne sais pas comment la restituer et en plus, je ne sais pas si ce bout de code marche.
Bref si quelqu'un à une idée, je suis preneur.
Je vous joint un exemple.

A plus.

 

[la lozere]

Re : Valeur cellule après alerte

Bonjour,
Merci pour ce bout de code. Mais il ne correspond pas à ce que je cherche.
La cellule C4, n'a rien à voir dans le truc. Les feuilles du fichier joint sont très simplifiées par rapport au fichier final.
Dans chaque feuille, le code pourrait être:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$4" Then

  On Error Resume Next 'continuer même en cas d'erreur
  ActiveSheet.Name = Range("E4")

End If

If Err.Number <> 0 Then 'si il y a eu une erreur,
        MsgBox "Sélection impossible.", vbCritical  'afficher le message d'erreur
End If

End Sub

Ce que je veux "en gros", c'est qu'avant toutes actions sur la cellule E4, il y est mémorisation de la valeur de cette cellule pour la restituer dans le cas ou un changement de valeur de cette cellule engendrerait un erreur car doublon de nom de feuille.

Je ne suis pas sur d'être clair....

Merci

 

[mécano41]

Re : Valeur cellule après alerte

Bonjour,

En mettant la valeur de la cellule jaune en mémoire dès qu'on la sélectionne, puis en la restituant si erreur.

Cordialement

 

[la lozere]

Re : Valeur cellule après alerte

Merci,
Reste plus qu'à tester sur mon fichier définitif.
A plus.

 

[Lii]

Re : Valeur cellule après alerte

Bon jour,

une autre proposition en pièce jointe.