Transformer police par VBA ?

[Arcangeli]

Bonjour le forum. Encore besoin de votre aide.
Si possible, j'aimerais changer une police de caractère directement pendant la frappe.
Plus d'explications en pièce jointe.
Déjà merci

 

[JNP]

Re : Transformer police par VBA ?

Bonsoir Arcangeli 🙂,
Ce serait plutôt tranformer des caractères que des polices 🙄...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Intersect(Target, Range("B5:E11")) Is Nothing Then Exit Sub
Target = Replace(Replace(Replace(Target, "e", "L"), "r", "J"), "t", "K")
End Sub

A mettre dans le code de la feuille 😛.
Attention, ça ne transformera pas à la saisie (pas possible d'intercepter dans une cellule 😱...), mais quand tu valideras la cellule 🙄...
Bonne suite 😎

 

[GeoTrouvePas]

Re : Transformer police par VBA ?

Bonjour,

tu peux rajouter ceci dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    For Each Cellule In Range(Cells(5, 2), Cells(11, 5)).Cells
        If Cellule = "e" Then Cellule.Value = "L"
        If Cellule = "r" Then Cellule.Value = "J"
        If Cellule = "t" Then Cellule.Value = "K"
    Next
End Sub

Ça devrait fonctionner

Edit : Arf, bien vu JNP, tu as été plus rapide que moi ! Bon week end d'avance !

 

[Arcangeli]

Re : Transformer police par VBA ?

Merci JNPet JeoTrouvePas
Oui, tu as raison JNP il s'agit bien de caractères.
J'essaye tout de suite vos solutions

 

[Arcangeli]

Re : Transformer police par VBA ?

Rebonjour et encore MERCI les deux codes sont parfait.

 

[GeoTrouvePas]

Re : Transformer police par VBA ?

Sauf que le code de JNP ne modifie que la cellule qui vient d'être modifiée alors que le mien reprend toutes les cellules de la zone. Il vaut donc mieux privilégier le code de JNP, surtout si tu agrandies ta zone.

 

[Arcangeli]

Re : Transformer police par VBA ?

Merci pour ces précisions GeotrouvePas. En effet la zone sera plus grande et doncje vais tester les deux solutions.
Mais pour le moment, les deux me conviennent parfaitement.
Un bon Week-End