majuscule - boucle

[pokik21]

g besoin d'un petit script qui boucle sur l'intégralité des cellules d'une feuille excel et qui met la premiere lettre de chacune d'elle en majuscule...
Merci bcp...

Ex: dessin animé DEVIENT Dessin animé
et ceci pour toutes mes cellules...

 

[Sylvain]

bonsoir,

une idée à essayer :

Sub majuscule()
'
  Dim sel As Range
  'recherche des cellules contenant du texte
    Selection.SpecialCells(xlCellTypeConstants, 2).Select
  For Each sel In Selection
    'mise en majuscule de la première lettre de la cellule
    sel.Value = Application.WorksheetFunction.Proper(Left(sel.Value, 1)) & _
    Right(sel.Value, Len(sel.Value) - 1)
  Next
End Sub

 

[pokik21]

merci pour ton coup de main...
mais ca plante... message '....procedure incorrecte...'
Une autre idée please?

 

[pokik21]

juste pour precision: la premiere partie de la fonction marche normalement, il me selectionne bien toutes les cellules ayant du texte, c la deuxieme partie qui bug...

 

[Sylvain]

bonjour,

je sais pas comme ça marche chez-moi, il faut que tu essaies morceau par morceau pour trouver une alternative.