Nom Prope

[apdf1]

Bonjour,

Voila j'ai une colonne qui est en majuscule je voudrais la passer en nom propre a l'aide d'un bouton j'ai mis comme code ci-dessous, seul bemol j'ai la colonne H qui commence de "H3:H38950" mais sa ne marche pas j'ai du me trompé.

Public Sub NomPropre()
    Range("N3") = WorksheetFunction.Proper(Range("H3:H38950"))
End Sub

si quelqu'un peut m'aider je le remercie d'avance

Cordialement

Max

 

[JNP]

Re : Nom Prope

Salut Max 🙂,

Public Sub NomPropre()
Dim I As Long
Application.ScreenUpdating = False
For I = 3 To Range("H" & Rows.Count).End(xlUp).Row
    Range("N" & I) = Evaluate("Proper(H" & I & ")")
Next I
Application.ScreenUpdating = True
End Sub

Bonne journée 😎

 

[Pierrot93]

Re : Nom Prope

Bonjour Max, JNP

essaye ceci :

Option Explicit
Sub test()
Dim c As Range
For Each c In Range("H3", Range("H65536").End(xlUp))
    c = StrConv(c, vbProperCase)
Next c
End Sub

bonne journée
@+

 

[apdf1]

Re : Nom Prope

Bonjour Pierrot, JNP

Je vous remercie beaucoup et vous souhaite une excelente journée

Max