VBA - forcer l'ecriture dans les cellules

Bonjour,
j’essaye de trouver un moyen de forcer sur une meme feuille excel de cumuler le fait de forcer l’ecriture dans les cellules comme dans mon fichier
1er colonne : première lettre en majuscule
2e colonne : nomm en MAJUSCULE
colonne adresse mail : en minuscule.

j’ai testé avec cette commande pour le smajuscule :
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range
Set Rg = Intersect(Target, [B3:B50])
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each c In Rg
c.Value = UCase©
Next
Application.EnableEvents = True
End If

End Sub

Mon problème est le fait de cumuler lamodification pour le smajuscules, pour le prenom et l’adresse email
comment fait on pour cumuler les actions?
Classeur1.xlsx (12,0 Ko)

Bonjour
Teste avec cette macro

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo fin
  Application.EnableEvents = False
  If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Target.Value = Application.WorksheetFunction.Proper(Target.Value)
  End If
  If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Target.Value = VBA.UCase(Target.Value)
  End If
  If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
    Target.Value = VBA.LCase(Target.Value)
  End If
fin:
  Application.EnableEvents = True
End Sub

Classeur1 (30).xlsm (17,7 Ko)

Yes merci cela fonctionne tres bien :slight_smile:

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.