Titre du sujet : Re: Préfixe/Suffixe Scan dans Excel par Mth le 02/04/2012 17:22:56
Bonjour Jérémy et bien venue à toi,
En attendant une meilleure proposition, peut-être avec ce code:
Private Sub Worksheet_Change(ByVal Target As Range)
'A adapter: la colonne remplie est la colonne A et une seule cellule sélectionnée
If Not Intersect(Target, Columns("A:A")) Is Nothing And Target.Count = 1 Then
'Désactive la procédure évènementielle
Application.EnableEvents = False
'ajoute une * au début et fin du contenu de la cellule modifiée
Target.Value = "*" & Target.Value & "*"
'réactive la procédure évènementielle
Application.EnableEvents = True
End If
End Sub
A placer dans le code de la feuille (clic droit sur l'onglet, puis choisir "Visualiser le code")
Bonne soirée,
mth
|