=majuscule()

B

bruno66

XLDnaute Occasionnel

• 27 Juillet 2008

• #2

Re : =majuscule()

bonjour, cherche tu a modifier la cellule de manière a voir le texte toujours en majuscule dans cette cellule, quand tu saisie en mode normal, ou a l'ensemble de le feuille

 

Vote positif 0 Vote négatif

ya_v_ka

XLDnaute Impliqué

• 27 Juillet 2008

• #3

Re : =majuscule()

Hello

Non, la formule majuscule suffit... mais il faudrait être plus clair afin d'avoir une réponse plus fouillée...

en A1 hello
en A2 =MAJUSCULE(A1) donne HELLO

Ya'v

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 27 Juillet 2008

• #4

Re : =majuscule()

Bonjour nrdz83, le forum,

=majuscule(ta cellule) n'a besoin de rien d'autre, mais peut-être ai-je mal compris....

Bon dimanche.

Jean-Pierre

 

Vote positif 0 Vote négatif

B

bruno66

XLDnaute Occasionnel

• 27 Juillet 2008

• #5

Re : =majuscule()

peut-être suivant ce lien, si vous avez dejà saisie toute vos donnée dans une colonne... a suivre

Comment fait

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 27 Juillet 2008

• #6

Re : =majuscule()

Bonjour,

Il existe une astuce bien connue, sans formule ni macro, pour avoir toujours le texte en majuscules : c'est de choisir une police de caractères qui ne possèdent que des majuscules.

Il en existe un certain nombre. Ex : Felix Titling

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 27 Juillet 2008

• #7

Re : =majuscule()

Re,

Marmotte,

Autre astuce, tout aussi inexploitable, car un fichier ne se résoud pas à quelques cellules.... c'est d'avoir la touche Majuscule toujours enfoncée.... Euh...

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 27 Juillet 2008

• #8

Re : =majuscule()

merci à tous oui je n'ai pas était assez clair en fait je voulais que le texte en A2 soit en majuscule sans faire référence à une autre cellule.
Mais l'astuce de marmotte je mla trouve au top je la note et egalement le lien de bruno 66 , même si dans ma situation elle me convient pas, mais lien trés interessant je le note .Amitiés à tous et bon dimanche

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 27 Juillet 2008

• #9

Re : =majuscule()

Bonjour,

jeanpierre, d'accord sur le principe. Mais c'est un peu pénible de faire SHIFT ou de verrouiller les majuscules quand cela est nécessaire et de déverrouiller les majuscules quand il n'en faut pas.

C'est le cas d'une saisie sur plusieurs cellules pour un même enregistrement dans laquelle au moins une cellule doit être en majuscules (pour un code notamment).

Ce n'est pas terrible d'avoir une succession de :
d
d
D
d
d
D

ou alors il faut se payer le SHIFT à chaque enregistrement. Au bout de 2000 enregistrements saisis, c'est quand même un confort non négligeable de ne pas avoir à faire cette opération !

 

Dernière édition: 27 Juillet 2008

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 27 Juillet 2008

• #10

Re : =majuscule()

Re marmotte,

Entièrement d'accord, sauf que tout le monde n'a pas à dispo.la police que tu indiques "Felix Titling", et que les autres disponibles en majuscules ne s'accordent pas forcément au reste du tableau.

Bon dimanche.

Jean-Pierre

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 27 Juillet 2008

• #11

Re : =majuscule()

par contre dommage que dans excel l'astuce shift+F3 , ne fonctionne pas cela serait le top , mais bon on s'adapte lol.

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 27 Juillet 2008

• #12

Re : =majuscule()

Réponse à jeanpierre

Je n'ai cité qu'un exemple de polices et il en existe bien d'autres. J'en ai toujours trouvé une qui était proche de celle que j'utilise.

Cela vaut le coût de gagner plusieurs centaines, voire plusieurs milliers de frappes de clavier en évitant de faire SHIFT par exemple !

 

Dernière édition: 27 Juillet 2008

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 27 Juillet 2008

• #13

Re : =majuscule()

Bonjour,
Un code qui rajoute 3 boutons, Majuscule, minuscule et Nom Propre dans une barre perso.
A enregistrer en .xla dans le répertoire des macros complémentaires.
A+
kjin

Sub Casse()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="Casse")
barre.Visible = True
Set bouton = CommandBars("Casse").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
bouton.OnAction = "Majuscule"
bouton.Caption = "MAJ"
bouton.TooltipText = "Majuscule"
Set bouton = CommandBars("Casse").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
bouton.OnAction = "Minuscule"
bouton.Caption = "Min"
bouton.TooltipText = "Minuscule"
Set bouton = CommandBars("Casse").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
bouton.OnAction = "NomPropre"
bouton.Caption = "NPr"
bouton.TooltipText = "Nom Propre"
End Sub

Sub Majuscule()
For Each Mot In Selection
If Not Mot.HasFormula Then
Mot.Value = UCase(Mot.Value)
End If
Next Mot
End Sub

Sub minuscule()
For Each Mot In Selection
If Not Mot.HasFormula Then
Mot.Value = LCase(Mot.Value)
End If
Next Mot
End Sub

Sub NomPropre()
For Each Mot In Selection
If Not Mot.HasFormula Then
Mot.Value = Application.Proper(Mot.Value)
End If
Next Mot
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 27 Juillet 2008

• #14

Re : =majuscule()

Bonjour tout le monde

Pour relever les débats de ce fil. Un lien très utile pour une XLA de notre ami Didier mdF.
Page de l'auteur.

@+Jean-Marie

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 27 Juillet 2008

• #15

Re : =majuscule()

alors là merci à tous le top , jamais je n'aurais pensé que cette discussion irait si haut , chapeau bas et surtout super cette macro xla, je l'adopte bye

 

Vote positif 0 Vote négatif