Nom propre en passant par un Module de classe

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:

---

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

Bonjour

Personnellement je ne vois pas l'intérêt de ce que tu souhaites faire et pourquoi.

Peux-tu détailler.

Philippe

Bonjour Philippe

Je voudrais mettre la colonne "F3:F200" en nom propre au fur et à mesure que je rentre des prénoms, le problème est que j'ai un code comme ceci dans la feuille active,

Code:

---

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

---

J'aurais peut mettre ceci mais sa ne fait pas bon ménage:

Code:

---

If Not Intersect(Target, Range("f3:f200")) Is Nothing Then Target = UCase(Target)

---

ou alors ceci directement sur la feuille

Code:

---

en G3 : =NOMPROPRE(F3)

---

Mais sa ne marche pas!
Mais bon je finirai par trouver quelque chose?

Bonne journée

Max