Majuscules

[Yacine]

Bonjour tout le monde

Je voudrais savoir est-ce qu'il y a une possibilité que la saisie dans une cellule soit en majuscule même si n active pas la touche MAJ.

Merci par avance

 

[Pierrot93]

Re : Majuscules

Bonjour,

essaye ceci à placer dans le module de la feuille concernée, click droit sur l'onglet => visualiser le code et tu colles :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then Target = UCase(Target)
End Sub

bon après midi
@+

 

[JBOBO]

Re : Majuscules

Bonjour,

Avec le texte à taper en A1, Une variante en utilisant la validation de donnée, choisir personnalisé et dans formule, mettre

=ET(CODE(A1)<97;CODE(STXT(A1;NBCAR(A1);1))<97)

. Cela aura pour effet d'accepter la saisie uniquement si au moins le 1er et le dernier caractère de la cellule est en majuscule (ou un nombre). Ca ne repond pas entièrement au problème posé mais ça permet de s'en rapprocher sans macro.