Forcer la saisie d' un texte en Maj, min ou, nom propre

mdo100 · Décembre 9, 2017, 6:40

Bonsoir @osis,

Donc de ce que j’ai compris, tu veux les colonnes “C & H” en majuscule et “D & F” en Nom Propre le tout automatisé.

Voici ma proposition dans la fichier joint:

D’abord le code VBA différent de celui proposé afin de corriger les “erreurs” dans la Feuil1:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim nMnP As Range, nCell As Range

Application.EnableEvents = False
Application.ScreenUpdating = False

    Set nMnP = Intersect(Target, Columns("C"))
        If Not nMnP Is Nothing Then
            For Each nCell In nMnP
                nCell = UCase(nCell)
            Next nCell
        End If
        
    Set nMnP = Intersect(Target, Columns("H"))
        If Not nMnP Is Nothing Then
            For Each nCell In nMnP
                nCell = UCase(nCell)
            Next nCell
        End If
        
    Set nMnP = Intersect(Target, Columns("D"))
        If Not nMnP Is Nothing Then
            For Each nCell In nMnP
                nCell = Application.WorksheetFunction.Proper(nCell)
            Next nCell
        End If
        
     Set nMnP = Intersect(Target, Columns("F"))
        If Not nMnP Is Nothing Then
            For Each nCell In nMnP
                nCell = Application.WorksheetFunction.Proper(nCell)
            Next nCell
        End If
           
Application.EnableEvents = True

End Sub

Pour voir le code suivre la procédure dans l’image ci-dessous:

J’ai aussi fait des tests de copier/coller et par formules, cela n’a pas posé de problème, donc fait des tests de ton côté.

Fichier en retour ICI==> osis V2.xlsm (18,1 Ko)

Cordialement.