Une macro pour insérer une caractère Résolu/Fermé

Question

Bonjour, 

j'ai pu créer une macro dans word qui insère les caractères trèfle, Carreau, coeur ou Pique dans mon texte; je voudrais faire la même chose dans excel 2007 mais je n'obtiens que le signe "?". Est il possible de faire ce que je voudrais réaliser ?


Configuration: Windows XP / Firefox 29.0

benol3 · Answer

Salut, 

En police arial, c'est possible :

alt+3 à 6 pour les symboles que tu souhaites

PHILOU10120 · Answer

Bonjour

Prendre la police symbol 

=car(167) trèfle
=car(168) carreau
= car(169) coeur
=car(170) pique

eriiic · Answer

Bonjour,

Une proposition en vba.
Saisir /p pour pique, /c pour coeur, /k pour carreau et /t pour trèfle, garder la police Arial.
Avec en bonus coeur et carreau en rouges.
edit : voir autre version sur post suivant

eric
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

eriiic · Answer

J'en profite pour améliorer, chaque caractère peut être présent plusieurs fois.
Saisir /p pour pique, /c pour coeur, /k pour carreau et /t pour trèfle, garder la police Arial

Actif sur toutes les feuille du classeur, à mettre dans Thisworkbook :
Option Explicit
Dim stopEvents As Boolean

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim i As Long, ch As String
    If Intersect(Target, Range("A2:C10")) Is Nothing Then Exit Sub
    If Target.Count > 1 Or stopEvents Then Exit Sub
    ch = Target
    While InStr(ch, "/p") > 0
        ch = Replace(ch, "/p", ChrW(&H2660))
    Wend
    While InStr(ch, "/c") > 0
        ch = Replace(ch, "/c", ChrW(&H2665))
    Wend
    While InStr(ch, "/k") > 0
        ch = Replace(ch, "/k", ChrW(&H2666))
    Wend
    While InStr(ch, "/t") > 0
        ch = Replace(ch, "/t", ChrW(&H2663))
    Wend
    stopEvents = True
    Target = ch
    stopEvents = False
    'rouge
    For i = 1 To Len(Target)
        If Mid(Target, i, 1) = ChrW(&H2665) Or Mid(Target, i, 1) = ChrW(&H2666) Then
            Target.Characters(i, 1).Font.ColorIndex = 3
        End If
    Next i
End Sub

Est ce que je peux importer et sauvegarder ? De quelle manière ? 
A partir d'excel 2007 il faut enregistrer le classeur en type *.xlsm pour conserver les macros.
https://www.cjoint.com/?DExuihpwMRI

eric

Une macro pour insérer une caractère

4 réponses

Discussions similaires