Nom Prope

apdf1 · 6 Juin 2011

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é.

Code:

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 · 6 Juin 2011

Re : Nom Prope

Salut Max 🙂,

Code:

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 · 6 Juin 2011

Re : Nom Prope

Bonjour Max, JNP

essaye ceci :

Code:

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 · 6 Juin 2011

Re : Nom Prope

Bonjour Pierrot, JNP

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

Max

Nom Prope

apdf1

XLDnaute Impliqué

JNP

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

apdf1

XLDnaute Impliqué

Discussions similaires

Nom Prope

apdf1

XLDnaute Impliqué

JNP

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

apdf1

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency