Transformer lettre en mot VBA

Bonjour le Forum,

J’ai trouvé sur le Forum un code déposé par Dan. Cela fonctionne parfaitement.

J’aurais deux questions.

1. Serait-il possible que cette macro déclenche en utilisant la barre d’espacement.

2. Comment puis-je changer la sélection Range("H15:K18") en colonnes H,I et K

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Intersect(Target, Range("H15:K18")) Is Nothing Then

Select Case Target

Case "A": Target = "Alpha"

Case "B": Target = "Bravo"

End Select

End If

End Sub

Merci de votre attention

Bonjour

1. Serait-il possible que cette macro déclenche en utilisant la barre d’espacement.

Tout est possible mais il faudra changer le code à savoir qu'ici si tu tapes la lettres A le code est exécuté tout seul. Avec la barre d'espace ce ne sera plus le cas. Donc pourquoi faire en fait ?

2. Comment puis-je changer la sélection Range("H15:K18") en colonnes H,I et K

Change cette ligne de code -->

If Not Intersect(Target, Range("H15:I18,K15:K18")) Is Nothing Then

Crdlt

Re bonjour Dan,

En fait, j'avais placé certaines abréviations dans windows (AutoCorrect options) qui correspondent à des débuts de phrases.

Avec cette option, il suffit de faire enter pour que cette abréviation se transforme et de ce fait il ne faut pas revenir dans la cellule pour continuer la phrase.

Le problème est que certaines abréviations sont trop proches de mots utilisés couramment et que dans cette option il n'est pas possible de faire de sélection de colonnes.

Cette demande n'est pas une nécessité en soi, mais appréciable pour le confort de mes collègues utilisateurs.

Merci de ton aide encore une fois de plus.