Excel définir saisie en majuscules
Résolu
argixu
Messages postés
5292
Date d'inscription
Statut
Contributeur
Dernière intervention
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Pour un fichier que je mets à disposition pour saisie sous excel 2003, comment définir à l'avance que la saisie d’une cellule ressorte automatiquement en majuscules pour des codes (ex. AGAJ004), même si mon utilisateur a laissé son clavier en minuscules ?
La fonction « majuscules » ne m’a pas aidée... ou je n'ai pas su l'exploiter, elle semble convertir du texte déjà saisi.
Merci d'avance.
--
Argitxu
Pour un fichier que je mets à disposition pour saisie sous excel 2003, comment définir à l'avance que la saisie d’une cellule ressorte automatiquement en majuscules pour des codes (ex. AGAJ004), même si mon utilisateur a laissé son clavier en minuscules ?
La fonction « majuscules » ne m’a pas aidée... ou je n'ai pas su l'exploiter, elle semble convertir du texte déjà saisi.
Merci d'avance.
--
Argitxu
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Excel cellule majuscule automatique
- Proteger cellule excel - Guide
- É majuscule - Guide
- Excel si cellule contient partie texte ✓ - Forum Excel
- Réponse automatique thunderbird - Guide
- Liste déroulante excel - Guide
10 réponses
Bonjour,
Tu peux utiliser ce code par exemple pour la plage B2:D56 , dés l'activation de ta feuille tous ce qui est dans cette plage sera en majuscule
Private Sub Worksheet_Activate()
For Each maj In [b2:d56] 'plage a traitée
Application.ScreenUpdating = False
If maj <> "" Then
maj.Select
maj = UCase(maj)
ActiveCell = maj
End If
Next
Application.ScreenUpdating = True
Range("a1").Select
End Sub
Code a inserer en évémentiel sur la page en question
Tu peux utiliser ce code par exemple pour la plage B2:D56 , dés l'activation de ta feuille tous ce qui est dans cette plage sera en majuscule
Private Sub Worksheet_Activate()
For Each maj In [b2:d56] 'plage a traitée
Application.ScreenUpdating = False
If maj <> "" Then
maj.Select
maj = UCase(maj)
ActiveCell = maj
End If
Next
Application.ScreenUpdating = True
Range("a1").Select
End Sub
Code a inserer en évémentiel sur la page en question
J'ai oublié d'indiquer dans ma demande que je ne connais pas le VBA. Désolée pour le dérangement mais je te remercie d'avoir répondu.
Bien cordialement.