Forcer majuscules sur certaines colonnes seulement

pepparkakor · 29 Avril 2008

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 · 29 Avril 2008

Re : Forcer majuscules sur certaines colonnes seulement

Bonsoir,

en bleu ce qui est ajouté:

Code:

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 · 30 Avril 2008

Re : Forcer majuscules sur certaines colonnes seulement

Génial ! Merci pour votre aide !

Forcer majuscules sur certaines colonnes seulement

pepparkakor

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

pepparkakor

XLDnaute Nouveau

Discussions similaires