Excel définir saisie en majuscules
Résolu
Utilisateur anonyme
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 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.
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.
A voir également:
- Excel cellule majuscule automatique
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Réponse automatique thunderbird - Guide
- Excel si cellule contient partie texte ✓ - Forum Excel
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.