Forcer majuscules sur certaines colonnes seulement

[pepparkakor]

Bonjour,

Ce code m'a été communiqué pour forcer les majuscules lors de la saisie dans un onglet xls.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
codeA = "ÀÄÉÈÊËÔéèêëàâäçùôûïî"
codeB = "AAEEEEOeeeeaaacuouii"
temp = Target
For i = 1 To Len(temp)
P = InStr(codeA, Mid(temp, i, 1))
If P > 0 Then Mid(temp, i, 1) = Mid(codeB, P, 1)
Next
Application.EnableEvents = False
Target = UCase(temp)
Application.EnableEvents = True
End If
End Sub

Je souhaite appliquer ce code à tout mon onglet hormis les colonnes K et T qui devrons respecter la case dans laquelle elles ont été saisies (minuscule si minuscule saisie et majuscule si majuscule saisie).
Comment puis-je faire ?

 

[skoobi]

Re : Forcer majuscules sur certaines colonnes seulement

Bonsoir,

en bleu ce qui est ajouté:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 [COLOR=Blue][B]And Target.Column <> 11 And Target.Column <> 20[/B][/COLOR] Then
codeA = "ÀÄÉÈÊËÔéèêëàâäçùôûïî"
codeB = "AAEEEEOeeeeaaacuouii"
temp = Target
For i = 1 To Len(temp)
P = InStr(codeA, Mid(temp, i, 1))
If P > 0 Then Mid(temp, i, 1) = Mid(codeB, P, 1)
Next
Application.EnableEvents = False
Target = UCase(temp)
Application.EnableEvents = True
End If
End Sub

 

[pepparkakor]

Re : Forcer majuscules sur certaines colonnes seulement

Génial ! Merci pour votre aide !