Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Target.Count = 1 Then
Target = Ucase(Target)
End If
Application.EnableEvents = True
End Sub
Hello le fil le forum Mr Boisgontier,
Une Solution pas top pour les idéalistes, mais efficace si c'est un fichier destiné à d'autres personnes susceptibles de ne pas activer les macros... Ca arrive.
Une police disponible en MAJUSCULES par défaut CASTELLAR ou alors un multitude de polices téléchargeables avec g........gle (ton ami)
A++
TheLio
La solution de la police ne sera pas toujours efficace, si le fichier doit être utilisé sur plusieurs PC. Il faudra dans ce cas vérifier que les polices soient présentes sur ces PC.
La solution de BOISGONTIER est de loin la meilleure
Merci tout d'abord pour le lien vers ton site ... je viens de le survoler mais je crois que je vais y revenir et passer beaucoup de temps.
J'ai essayé sur la pièce jointe et c'est tout à fait ce que je cherche.
Mais lorsque je l'applique dans ma feuille de calcul j'ai un retour:
"Erreur de compilation - Nom ambigue détecté : Worksheet_Change"
Il faut dire que j'ai déjà un autre "Private Sub ......" identique ça vient peut-être de là.
Je suis à ton écoute ... cordialement.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.