Bonjour le Forum,
Est-il possible de remplacer une abréviation par un début de phrase en VBA sans devoir sortir de la cellule pour faire tourner la macro. L’utilisation de la barre d’espacement serait idéale.
Si ce n’est pas possible par la barre d’espacement, au moins revenir sur la cellule concernée automatiquement afin d'ajouter du texte à la fin de la phrase déjà modifiée.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("H15:K18")) Is Nothing Then
Select Case Target
Case "SPHPT": Target = "Service de protection et prévention sur le lieu de travail "
End Select
End If
End Sub
Merci d’avance pour votre aide.