maj min

[Carole]

Bonjour,

pour etre la plus explicite possible, voici je que j'aimerai avoir :

- Majuscule à la 1ere lettre du mot dans
"C5 à C17" et
"D5 à D17"

- Majuscule dans
"E5 à E17"
"F5 à F17"
"G5 à G17"
"H5 à H17"
"I5 à I17"
"J5 à J17"
"L5 à L17"
"M5 à M17"
"N5 à N17"

Est-ce que vous pourriez me donner une explication ou la macro si vous pouvez.
Merci encore pour votre aide.

J'ai ouvert cette nouvelle demande suite à celle que j'ai faite il y a 2 jours.

Merci pour vos réponses.

 

[Celeda]

Bonjour,

Carole il faut rester sur le même fil sinon tu nous mets le souk dans les réponses en faisant référence à ce que t'as donné Cathy.

Si quelqu'un veut essayer de retrouver ce qu'elle a fait comment veux-tu qu'il le sache.

Nous avons le moteur de recherche en panne n'oublie pas.

Restez sur les mêmes FILS SVP - SVP- SVP- SVP - SVP.


MERCI - MERCI- MERCI - MERCI - MERCI - MERCI -

Celeda

 

[hurricane]

salut carole

- Majuscule à la 1ere lettre du mot dans
"C5 à C17" et
"D5 à D17"

là tu mets pour chaque cellules =nompropre(texte)

- Majuscule dans
"E5 à E17"
"F5 à F17"
"G5 à G17"
"H5 à H17"
"I5 à I17"
"J5 à J17"
"L5 à L17"
"M5 à M17"
"N5 à N17"

et là tu mets pour chaque cellules =majuscule(texte)

pas besoin de macro pour cela

@+

 

[Carole]

oui je sais que je n'aurais pas du ouvrir u autre post mais je n'arrivai pas à remonter celui que j'avais ouvert. Je ne sais pas si on pourra le retrouver.
ps : pour ce que je veux faire, les fonctions NOMPROPRE et MAJUSCULE ne fonctionne pas.

Merci pour vos réponse.

 

[Carole]

En reprenant ce qu'a fait Cathy voilà ce que j'ai mis :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C5:C17"), Target) Is Nothing Then Target.Value = UCase(Target)
If Not Intersect(Range("D5😀17"), Target) Is Nothing Then Target.Value = UCase(Target)
If Not Intersect(Range("E5:E17"), Target) Is Nothing Then Target.Value = UCase(Target)
If Not Intersect(Range("F5:F17"), Target) Is Nothing Then Target.Value = UCase(Target)
If Not Intersect(Range("G5:G17"), Target) Is Nothing Then Target.Value = UCase(Target)
End Sub

cela fonctionne, c'est à dire que toute les cellules passent en Majuscule.
Seulement c'est etremement long lorsque je valide la saisie. (pour passer à la cellule suivante.

Comment pourrai-je améliorer cela ?

 

[C@thy]

Carole, je t'ai mis la réponse sur ton 1er fil, je ne la répèterai pas ici.

Merci Céléda qui veille à la bonne cohérence de ce forum. (et gros becs au passage!)

C@thy

 

[hurricane]

Rebonjour

sub majucule()
application.cursor=xlwait
fo each cell in selection
cell.formula = strconv(cell.formula,1)
next cell
application.cursor = xldefault
end sub

'1:= majuscule
'2:=minuscule
'3:=1er lettre en Maj

sa c'est lamacro tu tapes ton texte du selection et apres tu lance la macro et suivant le 1 , 2 , 3 le texte change

@+

 

[Carole]

merci beaucoup pour votre patience ! 🙂
désolée, mais je vous le disais (et vous l'auriez vu) j'ai un peu de mal ! 🙂

Merci encore ! ! !

excusez-moi encore pour ce 2eme post. Je ne le referai plus !

Merci et bonne continuation.