C
Cafrine
Guest
Bonsoir à tous
Après selection de la plage concernée, cette macro doit être executée manuellement...
Serait-il possible de la modifier afin qu'elle s'éxecute automatiquement ?
Sub nompropre()
Dim pos As Integer
Dim nom, prenom As String
For Each cel In Selection
pos = InStr(1, cel, ' ', 1)
nom = Left$(cel, pos)
prenomMaj = Right$(cel, Len(cel) - pos)
prenomMin = Right$(cel, Len(cel) - pos - 1)
cel.Value = UCase(nom) & ' ' & UCase(Left$(prenomMaj, 1)) & prenomMin
Next cel
End Sub
Merci de votre aide
Après selection de la plage concernée, cette macro doit être executée manuellement...
Serait-il possible de la modifier afin qu'elle s'éxecute automatiquement ?
Sub nompropre()
Dim pos As Integer
Dim nom, prenom As String
For Each cel In Selection
pos = InStr(1, cel, ' ', 1)
nom = Left$(cel, pos)
prenomMaj = Right$(cel, Len(cel) - pos)
prenomMin = Right$(cel, Len(cel) - pos - 1)
cel.Value = UCase(nom) & ' ' & UCase(Left$(prenomMaj, 1)) & prenomMin
Next cel
End Sub
Merci de votre aide