noms majuscule 1er lettre prenom minuscule

Y compris Power BI, Power Query et toute autre question en lien avec Excel
E
EngueEngue
Membre impliqué
Membre impliqué
Messages : 1'493
Inscrit le : 12 décembre 2013
Version d'Excel : 2010

Message par EngueEngue » 8 janvier 2014, 13:34

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
on error resume next
If Not Intersect(Target, Range("B11:B" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then
x =UCase(Mid(Target.Value, 1, InStr(1, Target.Value, " ") + 1)) & LCase(Mid(Target.Value, InStr(1, Target.Value, " ") + 2, Len(Target.Value) - InStr(1, Target.Value, " ") + 1))
 Target.Value = x
Range("A11:N" & Range("B" & Rows.Count).End(xlUp).Row).Sort key1:=Range("B11"), header:=xlYes
End If
For i = 11 To Range("B" & Rows.Count).End(xlUp).Row
Range("A" & i).Value = i - 10
Next i
ici = Range("B11:B" & Range("B" & Rows.Count).End(xlUp).Row)).find(x).address
Range(ici).select

Application.EnableEvents = True
end sub
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message