Rapport de message :*
 

Re: Préfixe/Suffixe Scan dans Excel

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