Présentation toujours en MAJUSCULE

PascalXLD

XLDnaute Barbatruc

• 11 Septembre 2008

• #2

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/

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 11 Septembre 2008

• #3

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

 

Dernière édition: 11 Septembre 2008

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 11 Septembre 2008

• #4

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)

Code:

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

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 11 Septembre 2008

• #5

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 11 Septembre 2008

• #6

Re : Présentation toujours en MAJUSCULE

re

pour A1 à A11 cela donnerait

Code:

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

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 11 Septembre 2008

• #7

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

 

Dernière édition: 11 Septembre 2008

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 11 Septembre 2008

• #8

Re : Présentation toujours en MAJUSCULE

Re

Il faudrait voir le tout pour comprendre les problèmes

Sinon on risque de tourner en rond

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 11 Septembre 2008

• #9

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 11 Septembre 2008

• #10

Re : Présentation toujours en MAJUSCULE

Re

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

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

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 12 Septembre 2008

• #11

Re : Présentation toujours en MAJUSCULE

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

 

Vote positif 0 Vote négatif