Nom propre en passant par un Module de classe

[maval]

Bonjour,

Est-il possible d'avoir les cellules "F3:F200" en nom propre en passant par un module de classe?

Je vous remercie de votre aide

Cordialement

Maval

 

[Robert]

Re : Nom propre en passant par un Module de classe

Bonjour Maval, bonjour le forum,

Oui c'est possible !... Enfin, faut voir...

 

[maval]

Re : Nom propre en passant par un Module de classe

Bonjour Robert
Et merci d'avoir répondu. Peut m'aider a faire un code, pour lorsque je rentre un nom dans les cellules "F3;F200" j'ai le nom en nom propre?

Merci d'avance

Max

 

[DoubleZero]

Re : Nom propre en passant par un Module de classe

Bonjour, maval, Robert 🙂, le Forum,

... nom propre en passant par un module de classe?...

J'ai certainement mal interprété le besoin... tant pis 😕 !

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("f3:f200")) Is Nothing Then Target = UCase(Target)
End Sub

A bientôt 🙂

 

[Robert]

Re : Nom propre en passant par un Module de classe

Bonjour Maval, bonjour le forum,

Peut-ête comme ça :

Private test As Boolean 'déclare la variable test

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("F3:F200")) Is Nothing Then Exit Sub 'si le changement a lieu ailleurs que dans la plage F3:F200, sort de la procédure
If test = True Then Exit Sub 'si la variable test est vraie, sort de la procédure
If Target.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sélectionnées, sort de la procédure
If Target.Value = "" Then Exit Sub 'si la cellule est effacée, sort de la pocédure
test = True 'définit la variable test
Target.Value = Application.WorksheetFunction.Proper(Target.Value) 'première lettre de chaque mot en majuscule
'target.Value = UCase(Target.Value)'tout en majuscule
test = False 'redéfinit la variable test
End Sub

[Édition]
Ho P... de b.... de m... ! Quel plaisir de te voir là DoubleZéro. ! Énorme bisous pour toi...

 

[maval]

Re : Nom propre en passant par un Module de classe

Bonjour DoubleZero

Non sa ne vas pas parceque j'ai déjà un code comme ceci

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

Et sa ne fait pas bon ménage en semble

Bonne journée

Max

 

[DoubleZero]

Re : Nom propre en passant par un Module de classe

Re-bonjour,

... sa ne fait pas bon ménage en semble...

C'est bien ce que je pensais : j'aurais dû rester dans mon enclos 🙄... Mais je saisis avec joie l'occasion de faire une double bise à Robert 😀 !

A bientôt 🙂🙂

 

[maval]

Re : Nom propre en passant par un Module de classe

Re-bonjour,

Je te remercie cas même DoubleZero j'ai gentil a toi.

Pour le code de Robert j'ai toujours le même problème??

@+

Max

 

[Robert]

Re : Nom propre en passant par un Module de classe

Bonsoir le fil, bonsoir le forum,

Non sa ne vas pas parceque j'ai déjà un code comme ceci
Max

Et pourquoi tu ne l'as pas dit au début... On n'aurait pas perdu notre temps...

[Édition]
Peut-être comme ça :

Private test As Boolean 'déclare la variable test

Private Sub Worksheet_Change(ByVal Target As Range)
 
'Deux prénom avec & entre les deux
Dim R As Range, t As String
If test = True Then Exit Sub
If Not Intersect(Target, [D:D], Me.UsedRange) Is Nothing Then 'colonne D
    test = True
    For Each cel In Target 'en cas d'entrées multiples
        cel.Value = Application.Trim(Replace(cel.Text, "&", "")) 'SUPPRESPACE
        cel.Value = Application.Proper(Replace(cel.Value, " ", " & ")) 'Nom en Nom Propre
    Next
    test = False
End If


If Not Application.Intersect(Target, Range("F3:F200")) Is Nothing Then 'si le changement a lieu ailleurs que dans la plage F3:F200
    test = True 'définit la variable test
    Target.Value = Application.WorksheetFunction.Proper(Target.Value) 'première lettre de chaque mot en majuscule
    test = False 'redéfinit la variable test
End If
End Sub

 

[maval]

Re : Nom propre en passant par un Module de classe

Re,

Excuse moi c'est pour cela que je voulais un code en passant par un Module de classe ?

@+

ax