Titre du sujet : Re: Préfixe/Suffixe Scan dans Excel par Mth le 09/05/2012 21:27:43
Bonsoir Jérémy,
Tu peux essayer en mofifiant le code comme ceci:
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
With Target
.Value = "*" & Target.Value & "*"
.Font.Size = 36
.Font.Name = "Arial"
End With
'réactive la procédure évènementielle
Application.EnableEvents = True
End If
End Sub
et en remplaçant "Arial" par le nom de la police que tu veux utiliser (C39HrP48DhTt c'est bizarre comme nom ? )
Ceci est totalement inutilisable dans Word ... que je ne connais malheureusement pas suffisamment pour te proposer un code.
Bonne soirée,
mth
|