Utilisation des styles

[marmotte18]

Bonjour,

Création d'un style "bidon" nommé "Majusc" :


J'ai :

• sélectionné la plage de cellules B2:B7 en vert
• cliqué sur Format < Style
• donné le nom "Majusc" à ce style
• décoché toutes les cases
• puis cliqué sur le bouton "ajouter" puis "ok"

Code pour mettre en majuscules automatiquement toutes les cellules dont le style est "Majusc" :

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

Mon problème :

Pourquoi la modification demandée ne se produit-elle pas immédiatement ? Le seul fait de revenir sur la cellule déclenche la conversion en majuscules

Y a-t-il un moyen d'empêcher cela ?

 

[noviceAG]

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

 

[marmotte18]

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

 

[noviceAG]

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

 

[marmotte18]

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

 

[noviceAG]

Re : Utilisation des styles

bon rêves marmotte