Utilisation des styles

noviceAG

XLDnaute Impliqué

• 16 Janvier 2009

• #2

Re : Utilisation des styles

Bonsoir marmotte, le Forum,
J"ai essayé ceci qui a l'air de fonctionner après validation :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Erreur
If Target.Style = "Majusc" Then Target.Value = StrConv(Target.Value, vbUpperCase)
Erreur:
End Sub

Au plaisir et bonne soirée

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 16 Janvier 2009

• #3

Re : Utilisation des styles

Bonjour noviceAG,

Tu me ressorts le code que j'ai proposé et il ne fonctionne pas lorsqu'on valide ! Il faut revenir sur la cellule en cliquant dessus pour que la modification s'effectue

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 16 Janvier 2009

• #4

Re : Utilisation des styles

re,
j'ai supprimé : Selection de SelectionChange(ByVal Target As Range)
et le code fonctionne après validation car je l'ai essayé marmotte

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 16 Janvier 2009

• #5

Re : Utilisation des styles

Merci noviceAG,

Même lorsque la solution m'est apportée sur un plateau je n'ai pas voulu la voir et pourtant c'était si simple. Il n'y a pas pire aveugle qu'un voyant qui s'obstine à ne rien voir.

Un grand MERCI ......... je vais pouvoir aller dormir tranquilement

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 16 Janvier 2009

• #6

Re : Utilisation des styles

bon rêves marmotte

 

Vote positif 0 Vote négatif