macro excel

[David]

Bonjour,

Je dois creer un bouton macro qui me permet de mettre à jour automatiquement la colonne prénom et la colonne Nom

Dans la colonne prénom = le prénom doit être première lettre en majsucule, le reste des lettres en minuscules et le tout sans accent.

Dans la colonne nom = le nom doit être en majuscule.

merci

 

[Staple1600]

Bonjour


Application.WorksheetFunction.Proper
pour Première lettre en majuscule


Ucase()
pour majuscules

 

[Staple1600]

Un début de solution ci-dessous
(pour la colonne Prenom)
(cas des accents non traités)

Private Sub CommandButton1_Click()
Dim x As Long,
Dim FirstDataRow As Integer, LastDataRow As Long
Dim Lname As String
FirstDataRow = 2 ' Première ligne contenant un prénom
LastDataRow = ActiveSheet.Range('a65536').End(xlUp).Row
'Dernière ligne
For x = FirstDataRow To LastDataRow
'read source sheet data and convert as needed
Lname = LCase(Cells(x, 1).Value)
Lname = Application.WorksheetFunction.Proper(Lname)
Next
End Sub


source:
Ce lien n'existe plus

 

[Staple1600]

autre exemple (en sélectionnant les cellules à traiter)


Sub PersoProper()
For Each C In Selection
C.Value = LCase(C.Value)
C.Value = Application.WorksheetFunction.Proper(C.Value)
Next C
End Sub


Reste le cas des accents

Voila pour la mise en majuscule (avec sélection)
Sub UcaseNOM()
For Each C In Selection
C.Value = UCase(C.Value)
Next C
End Sub

Message édité par: staple1600, à: 24/08/2005 14:15

 

[Staple1600]

enfin pour compléter

un code trouver sur le Net

Sub TextConvert() 'Better than mine
'Source: Lien supprimé
'By Ivan F Moala
Dim ocell As Range
Dim Ans As String

Ans = Application.InputBox('Type in Letter' & vbCr & _
'(L)owercase, (U)ppercase, (S)entence, (T)itles ')

If Ans = '' Then Exit Sub

For Each ocell In Selection '.SpecialCells(xlCellTypeConstants, 2)
Select Case UCase(Ans)
Case 'L': ocell = LCase(ocell.Text)
Case 'U': ocell = UCase(ocell.Text)
Case 'S': ocell = UCase(Left(ocell.Text, 1)) & _
LCase(Right(ocell.Text, Len(ocell.Text) - 1))
Case 'T': ocell = Application.WorksheetFunction.Proper(ocell.Text)
End Select
Next

End Sub

Reste toujours et encore les accents...

 

[Staple1600]

J'oubliais ceci:
http://www.mvps.org/dmcritchie/excel/proper.htm

(attention, mieux vaut être anglophone)

mais bon normalement tout padawan en VBA
ne crains pas la langue de la perfide Albion