Bonjour,
Est-il possible d'avoir les cellules "F3:F200" en nom propre en passant par un module de classe car j'ai déjà le code ci-dessous
Je vous remercie de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub Worksheet_Change(ByVal Target As Range) 'Deux prénom avec & entre les deux Dim R As Range, t As String Set R = Intersect(Target, [D:D], Me.UsedRange) 'colonne D If R Is Nothing Then Exit Sub Application.EnableEvents = False For Each R In R 'en cas d'entrées multiples t = Application.Trim(Replace(R.Text, "&", "")) 'SUPPRESPACE R = Application.Proper(Replace(t, " ", " & ")) 'Nom en Nom Propre Next Application.EnableEvents = True End Sub
Cordialement
Maval
Partager