Présentation toujours en MAJUSCULE

[cj welch]

Bonjour,
je voudrais quand j'ecrit dans une cellule (format texte)que celle si s'ecrive en majuscule. (donc pour étre plus claire, si on ecrit en minuscule,l'ecriture devra apparaitre en MAJUSCULE dans la cellule)

Ex :Sur la cellule A1 (au format texte) , on rentre pierre ->dans la cellue a1, il devra etre ecrit PIERRE.

MERCI DE VOTRE AIDE

 

[PascalXLD]

Re : Présentation toujours en MAJUSCULE

Bonjour

Tu as 2 solutions

- appuyer sur la touche "Verr. Maj" de ton clavier avant de taper 😀

- Utiliser une petite macro déjà donnée sur ce forum
https://www.excel-downloads.com/threads/forcer-majuscule-dans-cellule.102335/

 

[cj welch]

Re : Présentation toujours en MAJUSCULE

salut pascal,

merci de ta réponse

une autre petite question : Et si je voulais adopter l'ecriture en majuscule à une collonne A de 10 lignes (ex:ligne a1 à a11). comment doit je modifier la macro ?

voici la macro que j'ai récuperé:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static b As Boolean
If b = False And Target.Count = 1 And Target.Column = 1 Then
b = True
Target.Value = UCase(Target.Value)
b = False
End If
End Sub

merci de ta réponse

 

[PascalXLD]

Re : Présentation toujours en MAJUSCULE

Re

Celle-ci fonctinnera seulement sur la colonne A des lignes 1 à 30 (tu adaptes en fonction de tes besoins)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A30")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

 

[cj welch]

Re : Présentation toujours en MAJUSCULE

PASCAL,

je ne sais pas si tu as lu mon message modifié :

la macro que j'ai récuperé sur ton conseil marche bien. mais comment la limiter à un nombre de ligne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static b As Boolean
If b = False And Target.Count = 1 And Target.Column = 1 Then
b = True
Target.Value = UCase(Target.Value)
b = False
End If
End Sub

merci

 

[PascalXLD]

Re : Présentation toujours en MAJUSCULE

re

pour A1 à A11 cela donnerait

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A11")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

 

[cj welch]

Re : Présentation toujours en MAJUSCULE

pascal,

la macro que tu ma donné bloc les autres macro instalés.
En revenche, la formule plus longue que j'ai récupéré et qui est ci-dessus fonctionne.
est il pas possible de la modifier pour limiter le nb de colonne

De plus, je l'ai essayé sur une feuille, quand on efface le texte qui a été rentré, un messsage d'erreur s'affiche.

merci de ta réponse

 

[PascalXLD]

Re : Présentation toujours en MAJUSCULE

Re

Il faudrait voir le tout pour comprendre les problèmes

Sinon on risque de tourner en rond

 

[cj welch]

Re : Présentation toujours en MAJUSCULE

re pascal

j'ai solutionné le problème avec les autres macro. j'ai tous simplement mis la macro des majuscules en début de page et cela a fonctionné.

cependant, quand j'efface le contenu d'une cellule de la colonne, j'ai un message d'erreur qui me renvoi dans vba ligne :Target = UCase(Target)
peut tu me solutionner le problème stp
merci

 

[PascalXLD]

Re : Présentation toujours en MAJUSCULE

Re

essaies en remplaçant
Target = UCase(Target)
par

if Target.value<>"" then Target = UCase(Target)

 

[cj welch]

Re : Présentation toujours en MAJUSCULE

merci beaucoup pascal de ton aide si préciseuse
a+