XL 2019 Majuscules ou Minuscules

[pat66]

Bonsoir le forum,

J'ai besoin d'aide car j'utilise la macro ci dessous qui fonctionne bien, mais mon problème est que la cellule D29 contient : Monsieur Et Madame

Est t'il possible de ne conserver les majuscules pour Monsieur et Madame, mais pas pour le : ET qui doit rester en minuscule car ce n'est pas très esthétique

Un grand merci

Pat66

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then End
  If Not Application.Intersect(Target, Range("D29")) Is Nothing Then
    If Not IsEmpty(Target) Then
      Application.EnableEvents = False
      Target = WorksheetFunction.Proper(Target)  ' si première lettre en majuscule uniquement
'      Target.Value = UCase(Target.Value)   ' si tout en majuscules
      Application.EnableEvents = True
    End If
  End If
End Sub

 

[job75]

Bonsoir pat66;

Target = WorksheetFunction.Proper(Target)  ' si première lettre en majuscule uniquement
Target = Replace(Target, " Et ", " et ")

A+

 

[pat66]

Bonjour le fil, Bonjour job75

toujours aussi efficace, mille merci job75 c'est parfait

Dans le même esprit, j'ai aussi le problème avec Nom(S) au lieu de Nom(s)
Target = WorksheetFunction.Proper(Target)
Target = Replace(Target, " Et ", " et ")

Auriez vous une idée pour faire en sorte que le (S) reste en minuscule (s)

merci

Belle journée

Pat66

 

[Bernard_XLD]

Bonjour le fil, le forum

Bonjour le fil, Bonjour job75

toujours aussi efficace, mille merci job75 c'est parfait

Dans le même esprit, j'ai aussi le problème avec Nom(S) au lieu de Nom(s)
Target = WorksheetFunction.Proper(Target)
Target = Replace(Target, " Et ", " et ")

Auriez vous une idée pour faire en sorte que le (S) reste en minuscule (s)

merci

Belle journée

Pat66

@pat66 , job75 vous a déjà donné la solution,
vous rajoutez après

Target = Replace(Target, "(S)", "(s)")

Bien cordialement, @+

 

[pat66]

re,

effectivement cela fonctionne pour le Noms (s) mais pas pour le Prénom (S)

merci à tous

 

[Bernard_XLD]

re,

effectivement cela fonctionne pour le Noms (s) mais pas pour le Prénom (S)

c'est un replace, cela fonctionne pour la chaîne entière à traiter, si le prénom est dans une autre cellule que D29, il faut adapter le code de départ en fonction pour traiter aussi la cellule concernée.

Cordialement, @+

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then End
  If Not Application.Intersect(Target, Range("D29")) Is Nothing Then 'cellules à traiter
    If Not IsEmpty(Target) Then
      Application.EnableEvents = False
      Target = WorksheetFunction.Proper(Target)  ' si première lettre en majuscule uniquement
      Target = Replace(Target, " Et ", " et ")
      Target = Replace(Target, "(S)", "(s)")
      Application.EnableEvents = True
    End If
  End If
End Sub

 

[pat66]

re,

j'ai trouvé la subtilité, il suffit de mettre un espace après Prénom (s) avant de validé la saisie

Sauf que je viens de lire de décortiquer ton explication et j'ai vu que pour le ("S") il n'y a pas d'espace entre la parenthèse et le guillemet par rapport au (" et " )

Problème résolu

merci à tous

cdt

 

[Bernard_XLD]

re,

re j'ai trouvé la subtilité, il suffit de mettre un espace après Prénom (s) avant de validé la saisie

je ne sais pas comment vous vous y prenez mais il n'y a aucun besoin d'ajouter un espace si vous n'en mettez pas dans le replace

Cordialement, @+

 

[job75]

Bonjour le fil,

Bien comprendre pourquoi je mets un espace de part et d'autre de Et.

C'est pour éviter que des mots comme Etienne ou Ettore soient traités...

A+

 

[pat66]

re,

merci beaucoup à tous les deux pour votre aide précieuse

pat66