Excel 2013 : Remplacement automatique chiffre/ lettre webdings Résolu/Fermé

Question

Bonjour à tous ! 

Cela fait maintenant deux jours que je recherche la réponse à ma question en vain. Ce n'est pas très facile à expliquer, mais je vais essayer d'être le plus clair possible.  ::B- 

Dans un tableau, je cherche à ce que, dès que je tape le chiffre "1" dans la cellule A1 par exemple, celui-ci soit directement remplacé par une lettre en police Webdings. 

J'aimerai en fait, cette correspondance : (un chiffre = une lettre Webdings)
- "1" dans la cellule A1 après avoir appuyé sur entrée deviendrait automatiquement ">" avec la police Webdings dans cette même cellule A1
- "2" dans la cellule A1 => "&" avec la police Webdings dans cette même cellule A1
- "3" dans la cellule A1 => "º" avec la police Webdings dans cette même cellule A1
- "4" dans la cellule A1 => "(" avec la police Webdings dans cette même cellule A1
- "5" dans la cellule A1 => "U" avec la police Webdings dans cette même cellule A1
- "6" dans la cellule A1 => "V" avec la police Webdings dans cette même cellule A1

J'aurai ensuite souhaité que ce "remplacement automatique" soit automatique pour les cellules "$H$3:$BB$32"

En espérant que l'un d'entre vous puisse m'aider !  :)

Mike-31 · Answer

Bonjour,

Pour remplacer une valeur dans la cellule active, par VBA uniquement si tu as quelques notions

Moys09 · Answer

Merci Mike-31 ! 

C'est bien ce qu'il me semblait sauf que je n'ai AUCUNE notion et ne sais absolument pas comment faire ! C'est frustrant de savoir quelque chose, possible, sans pouvoir le faire ! Sais-tu où je pourrai trouver l'info ? 

Merci !

Mike-31 · Answer

Re,

ça va être difficile bien que le code soit simple
voir le type de code
Private Sub Worksheet_Change(ByVal Target As Range)  If Not Intersect(Selection, Range("H3:BB32")) Is Nothing Then    If Target.Value = 1 Then Target = ">"    If Target.Value = 2 Then Target = "&"    If Target.Value = 3 Then Target = "º"    If Target.Value = 4 Then Target = "("    If Target.Value = 5 Then Target = "U"    If Target.Value = 6 Then Target = "V"  End IfEnd Sub
fait un clic droit sur l'onglet de ta feuille/Visualiser le code et colle le code cidessus
ferme le Visual Basic pour revenir sur ta feuille

Moys09 · Answer

Ok Merci ! Avant d'essayer, n'y a-t-il pas une spécificité pour que la lettre soit directement en Webdings ? 
  
  En fait, je voulais cela que pour les chiffres car j'ai un autre code plus simple (sans VBA pour les lettres)... 

  Je suis désolé d'abuser de ton temps...

Mike-31 · Answer

Re,

je suis curieux de voir quel genre de code tu as sans VBA
peux tu le coller dans un post voir

Moys09 · Answer

En fait, ce n'est qu'une simple règle conditionnelle à savoir une colorisation de la cellule en fonction de la lettre indiquée dans la cellule. 

Ce que je voudrai dans l'idéal, c'est que dans la cellule X : 
   - si j'écris une lettre précise, la cellule est colorisée comme je le souhaite (ça c'est ok !)
   - si j'écris un nombre (ou une autre lettre n'entrant pas dans la règle de colorisation de cellule), une lettre au format webdings ou un symbole que j'aurai choisi, apparaisse... 

 Je ne sais pas si je suis assez clair...

Mike-31 · Answer

Re,

excuse moi mais je ne comprends pas ce que tu cherche faire

Mike-31 · Answer

Re,

fait abstraction de tes mise en forme conditionnelles qui te donnent satisfactions

ensuite que veux tu faire comme saisie

Mike-31 · Answer

Re,

c'est bien ce que j'avais compris et il n'y a que le VBA pour régler ce problème de remplacement de saisie dans la même cellule et c'est le type de code que je t'ai donné qu'il faut utiliser, complété du choix de police de caractère 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

comme cela
Private Sub Worksheet_Change(ByVal Target As Range)  If Not Intersect(Selection, Range("H3:BB32")) Is Nothing Then    If Target.Value = 1 Then    Target = ">"    ElseIf Target.Value = 2 Then    Target = "&"    ElseIf Target.Value = 3 Then    Target = "º"    ElseIf Target.Value = 4 Then    Target = "("    ElseIf Target.Value = 5 Then    Target = "U"    ElseIf Target.Value = 6 Then    Target = "V"    Target.Font.Name = "Webdings"     Else    Target.Font.Name = "Arial"    End If  End IfEnd Sub
 
il est possible d'ajouter également la taille de ta police dans le cas ou la police est Webdings

Mike-31 · Answer

Re,

non mon code fonctionne parfaitement pour les valeurs de 1 à 6, peut être as tu formaté tes cellules en texte

Moys09 · Answer

A Mike-16 et aux éventuels autres contributeurs ;-) 

Voici le code que j'ai validé dans VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Selection, Range("H3:BB32")) Is Nothing Then
    If Target.Value = 1 Then
    Target = "h"
    ElseIf Target.Value = 2 Then
    Target = "e"
    ElseIf Target.Value = 3 Then
    Target = "N"
    ElseIf Target.Value = 4 Then
    Target = "("
    ElseIf Target.Value = 5 Then
    Target = "-"
    ElseIf Target.Value = 6 Then
    Target = "F"
    Target.Font.Name = "Wingdings"
     Else
    Target.Font.Name = "Calibri"
    End If
  End If
End Sub

Lorsque j'inscris "6" dans une cellule, le bon symbole wingdings correspondant à la lettre "F" apparaît ! C'est exactement ce que je voulais. 

Or, si j'inscris 1, 2, 3, 4 ou 5, dans cette même cellule, apparaît respectivement un "h", "e", "N", "(" ou "-"... 

Quelqu'un pourrait-il me dire ce que je dois faire pour parvenir à finaliser mon projet ?

Mike-31 · Answer

Re,

si je comprends bien, ça change tout, tu veux dire que dans ta cellule il peut y avoir 1 comme 1et 2 bien sur sans le et soit 12 ou encore 123 
c'est bien ça 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,
bizarre, 
ferme ton Excel qui est peut être en erreur, puis télécharge mon fichier et teste la partie blanche qui correspond à ta plage
 https://www.cjoint.com/c/FHkqYZsX61j

Mike-31 · Answer

Re,
ouvre mon fichier, puis
tu as peut être un niveau de protection trop élevé, contrôle onglet Développeur/module Code/Sécurité des macros/coche Activer toutes les macros(non recommandé .........
Enregistre et ferme ton Excel
ouvre à nouveau mon fichier et accepte l'activation des macros si Excel te le propose et reteste le fichier voir

Mike-31 · Answer

Re,

c'est vraiment bizarre, arrête ton ordi avant de le redémarrer et teste mon fichier, et si ça ne fonctionne pas je ne vois pas d’où cela peut venir parce que le code fonctionne parfaitement pour l'avoir testé

Mike-31 · Answer

Re,

remplace tes codes par ce dernier
Private Sub Worksheet_Change(ByVal Target As Range)  If Not Intersect(Selection, Range("H3:BB32")) Is Nothing Then  On Error Resume Next    If Target.Value = 1 Then Target = ">"    If Target.Value = 2 Then Target = "&"    If Target.Value = 3 Then Target = "º"    If Target.Value = 4 Then Target = "("    If Target.Value = 5 Then Target = "U"    If Target.Value = 6 Then Target = "V"    If Target.Value = 1 Or Target.Value = 2 Or Target.Value = 3 Or Target.Value = 4 Or Target.Value = 5 Or Target.Value = 6 Then    Target.Font.Name = "Webdings"     Else    Target.Font.Name = "Arial"    End If  End IfEnd Sub
 
si ça ne fonctionne pas, peux tu mettre ton fichier anonymisé à disposition voir ce qui bloque en suivant cette procédure
1) Clic sur ce lien https://www.cjoint.com/
2) Clic sur le bouton Parcourir pour sélectionner ton fichier 
3) Clic sur le bouton Créer le lien en bas de la page
4) Au bout de quelques secondes en haut de la page en bleu souligné un lien sera généré, tu le sélectionnes et tu le copies dans une réponse

Mike-31 · Answer

Re,

tu es pratiquement revenu sur mon code post 13 
Le principal est l'aboutissement
si ton problème est réglé, n'oublie pas de passer le statut de la discussion en résolu ou confirme le moi que je le fasse pour toi

Mike-31 · Answer

Re,

oui mais comme tu as écris la fin de ton code, quel que soit ta saisie la police de ta cellule passera en Webdings
mais bon si cela te convient

Mike-31 · Answer

Re,

Oui mais avec tes cellules reste en format Webdings
et tu as 5 ligne inutiles, pour ma part je supprimerai toutes ces lignes remplacerai cette dernière par Target.Font.Name = "Wingdings" 

ElseIf Target.Value = "h" Or Target.Value = "e" Or Target.Value = "%" Or Target.Value = "(" Or Target.Value = "." Or Target.Value = "F" Then
Target.Font.Name = "Wingdings"
Else: Target.Font.Name = "Calibri" 
Private Sub Worksheet_Change(ByVal Target As Range)Dim x As StringIf Target.Count > 1 Then Exit SubIf Not Intersect(Target, Range("H3:BB32")) Is Nothing ThenIf Target.Value = 1 ThenTarget = "h"ElseIf Target.Value = 2 ThenTarget = "e"ElseIf Target.Value = 3 ThenTarget = "%"ElseIf Target.Value = 4 ThenTarget = "("ElseIf Target.Value = 5 ThenTarget = "."ElseIf Target.Value = 6 ThenTarget = "F"ElseIf Target.Value = "h" Or Target.Value = "e" Or Target.Value = "%" Or Target.Value = "(" Or Target.Value = "." Or Target.Value = "F" ThenTarget.Font.Name = "Wingdings"Else: Target.Font.Name = "Calibri"End IfEnd IfEnd Sub