Macro symboles

[david.ridelaire]

Bonjour je souhaiterai insérer quelque soit la cellule à chaque fois que je clique sur Ctrl+A (par exemple), le symbole "A" en police windings2 et le mettre en vert

d'avance merci pour vos réponses

 

[Dull]

Re : Macro symboles

Salut david, le Forum

As tu essayer l'enregistreur de macro?

Avec ça donne cela

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09/12/2010 par Dull
'
' Touche de raccourci du clavier: Ctrl+a
'
ActiveCell.FormulaR1C1 = "A"
    With Selection.Font
        .ColorIndex = 10
        .Name = "Wingdings 2"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 10
    End With
End Sub

A tester

bonne Journée

 

[ROGER2327]

Re : Macro symboles

Bonjour à tous

Essayez ceci :

[COLOR=DarkSlateGray][B]Sub toto()
[COLOR=DarkOrange]'  Associé à Ctrl a[/COLOR]
  With Selection
    With .Font
      .Name = "Wingdings 2"
      .ColorIndex = 50 [COLOR=DarkOrange]'À adapter selon le vert désiré[/COLOR]
    End With
    .Value = "A"
  End With
End Sub[/B][/COLOR]

ROGER2327
#4714

Lundi 9 Sable 138 (Saint Sagouin, homme d'Etat, SQ)
19 Frimaire An CCXIX
2010-W49-4T09:57:13Z

 

[Si...]

Re : Macro symboles

Salut

Si... tu as déjà le modèle en A1 (par exemple)

Sub Vois()
  [A1].Copy Selection
End Sub

Le problème est que la mise en forme demeure même après "vidage" de la sélection, mais c'est une autre histoire !

 

[Softmama]

Re : Macro symboles

Bonjour,

Moi j'avais plus compris ça comme ça :

Sub tata()
'  Associé à Ctrl a
  ActiveCell = ActiveCell & "A"
  ActiveCell.Characters(Len(ActiveCell)).Font.ColorIndex = 50
  ActiveCell.Characters(Len(ActiveCell)).Font.Name = "Wingdings 2"
End Sub