Bonjour le Forum.
Pourriez-vous m'aider sur ce casse tête.
J’ai un code qui modifie des abréviations en mot ou début de phrase. Cela fonctionne parfaitement.
Serait-il possible que cette macro déclenche en utilisant la barre d’espacement.
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 taper sur la barre d'espacement pour que cette abréviation se transforme et de ce fait on peut continuer
la phrase directement dans la cellule.
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.
Dans ma ligne de code, il faut valider par enter ou tab pour déclencher la macro et de ce fait il faut revenir dans
la cellule pour continuer la phrase.
Code :
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
Pourriez-vous m'aider sur ce casse tête.
J’ai un code qui modifie des abréviations en mot ou début de phrase. Cela fonctionne parfaitement.
Serait-il possible que cette macro déclenche en utilisant la barre d’espacement.
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 taper sur la barre d'espacement pour que cette abréviation se transforme et de ce fait on peut continuer
la phrase directement dans la cellule.
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.
Dans ma ligne de code, il faut valider par enter ou tab pour déclencher la macro et de ce fait il faut revenir dans
la cellule pour continuer la phrase.
Code :
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
Dernière modification par un modérateur: