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

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
Je vous remercie de votre aide

Cordialement

Maval