Automatisation remplacement d'un lettre en un mot
PC Windows XP Excel 2007
Bonjour à tous.
J'ai fait quelques recherches sur le forum et je n'ai pas trouver de réponse concluante a mon problème.
Je voudrais automatiser via une macro l'entrée de certaines données sur ma feuille, c'est à dire que lorsque je rentre dans une cellule du tableau une lettre spécifique, elle est remplacée automatiquement par un mot.
Exemple
Je tape r dans la cellule --> le mot rouge s'affiche dans la cellule
v dans la cellule --> le mot vert ........................................
Avec mes remerciements.
Bonjour et bienvenu,
A suivre la procédure suivante :
1) Bouton Office/Options Excel/Vérification
2) Cliquer sur "Options de correction automatique"
3) Remplacer : r Par : Rouge
4) Cliquer sur "Ajouter"
A poursuivre....
Raja a écrit :Bonjour et bienvenu,
A suivre la procédure suivante :
1) Bouton Office/Options Excel/Vérification
2) Cliquer sur "Options de correction automatique"
3) Remplacer : r Par : Rouge
4) Cliquer sur "Ajouter"
A poursuivre....
Merci pour cette solution, je n'y avais pas du tout pensé, mais elle me pose un problème car elle va s'appliquer à tous mes classeurs excel (option de correction) alors que je voudrais que ce soit spécifique à celui-ci.
merci quand même.
Re,
Tu sais que tu n'es pas obligé d'accepter la correction automatique. Si tu continues à saisir ton 2è caractère, tu n'auras pas de correction automatique proposée.
Bonjour
Le sujet a été évoqué récemment
'Saisie conditionnele'
https://forum.excel-pratique.com/viewtopic.php?t=5483&highlight=
Tu peux peut-être t'en inspirer
Cordialement
Demeb a écrit :Bonjour
Le sujet a été évoqué récemment
'Saisie conditionnele'
https://forum.excel-pratique.com/viewtopic.php?t=5483&highlight=
Tu peux peut-être t'en inspirer
Cordialement
Merci, je n'avais pas fait la relation entre mon problème et ce sujet. Effectivement ça marche parfaitement.
Pour mon tableau en entre A1 et AX30
remplace r par rouge et v par vert automatiquement
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:Ax30")) Is Nothing Then
With Target
Select Case .Value
Case "r": .Value = "Rouge"
Case "v": .Value = "Vert"
End Select
End With
End If
End Sub
Merci a tous pour vos réponses.