Transformer police par VBA ?

JNP

XLDnaute Barbatruc

• 27 Janvier 2012

• #2

Re : Transformer police par VBA ?

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

Code:

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

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 27 Janvier 2012

• #3

Re : Transformer police par VBA ?

Bonjour,

tu peux rajouter ceci dans le module de ta feuille :

Code:

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 !

 

Vote positif 0 Vote négatif

A

Arcangeli

XLDnaute Occasionnel

• 27 Janvier 2012

• #4

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

 

Vote positif 0 Vote négatif

A

Arcangeli

XLDnaute Occasionnel

• 27 Janvier 2012

• #5

Re : Transformer police par VBA ?

Rebonjour et encore MERCI les deux codes sont parfait.

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 27 Janvier 2012

• #6

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.

 

Vote positif 0 Vote négatif

A

Arcangeli

XLDnaute Occasionnel

• 27 Janvier 2012

• #7

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

 

Vote positif 0 Vote négatif