Private Sub Worksheet_Change(ByVal Target As Range)
Dim longueur, separateur, i
Dim macell As Range, mazone As Range
Application.EnableEvents = False
For Each mazone In Target.Areas
For Each macell In mazone
longueur = Len(macell): separateur = True
monprec_estalpha = False
For i = 1 To longueur
moncar = Mid(macell, i, 1)
moncar_estmin = (moncar >= "a" And moncar <= "z")
moncar_estmaj = (moncar >= "A" And moncar <= "Z")
moncar_estalpha = moncar_estmin Or moncar_estmaj
If moncar_estalpha Then
If Not monprec_estalpha Then
If moncar_estmin Then
macell = Mid(macell, 1, i - 1) & Chr(-32 + Asc(moncar)) & Right$(macell, longueur - i)
End If
monprec_estalpha = True
End If
Else
monprec_estalpha = False
End If
Next
Range(macell.Address) = macell
Next
Next
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value >= "a" And Target.Value <= "z" Then
Target.Value = Chr(-32 + Asc(Left$(Target.Value, 1))) & Right$(Target.Value, Len(Target.Value) - 1)
End If
End SubA+
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.
A1 --> maison
B1 --> =NOMPROPRE(A1) affichera alors Maison
Encore plus simple dans excel 2007 :
1 - clique sur une cellule vide à coté du mot à transformer
2 - Onglet Formules -> Menu "Texte" -> fonction "nompropre"
3- enfin tu cliques sur la cellule du nom à transformer et tu valides
ton mot a sa première lettre en majuscule.
tu peux recopier la formule si tu es dans un tableau.
Puis, si tu veux remplacer les anciens noms (tout en minuscule) par les nouveaux (1re lettre en maj.) :
- "copier" la colonne des nouveaux mots
- puis "collage spécial / valeurs"
Bonne journée