Rapport de message :*
 

Re: Préfixe/Suffixe Scan dans Excel

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