Tout en majuscules sauf une colonne

[Busard]

Bonjour à tous,
Je suis nul en VBE. J'ai trouvé sur ce forum comment convertir automatiquement le texte en majuscules lors de la saisie (ci-dessous), mais je voudrais exclure une colonne (par exemple la colonne F). Je ne sais pas comment l'écrire...
Quelqu'un peut-il m'aider ?

Merci par avance.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
codeA = "ÉÈÊËÔéèêëàçùôûïî"
codeB = "EEEEOeeeeacuouii"
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

 

[Pierrot93]

Re : Tout en majuscules sauf une colonne

Bonjour Busard

essaye en modifiant comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column = 6 Then Exit Sub
codeA = "ÉÈÊËÔéèêëàçùôûïî"
codeB = "EEEEOeeeeacuouii"
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 Sub

Bone journée
@+

 

[skoobi]

Re : Tout en majuscules sauf une colonne

Bonjour,

dans la condition de départ, tu ajoutes la colonne à exclure comme ceci:

If Target.Count = 1 [B][COLOR=blue]And Target.Column <>  6 Then[/COLOR][/B]
[COLOR=black]......[/COLOR]

Edit: arrfff, 2mn de retard, salut Pierrot 🙂

 

[Busard]

Re : Tout en majuscules sauf une colonne

Merci beaucoup Pierrot.

Cela marche très bien.

J'ai aussi intégré dans une autre feuille une formule plus compléte (ci-dessous) qui évite aussi qu'Excel ne transforme le format date dd/mm/aaaa de certaines colonnes en mm/dd/aaaa. Cette formule marche très bien. Mais du coup, comment intégrer dedans le fait que la colonne F soit exclue de la transformation en majuscules ? C'est dire à quel point je suis mauvais...

Merci par avance.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column <> 11 And Target.Column <> 20 Then
codeA = "ÀÁÂÃÄÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜàâäçéèêëìíïîñôóòöùúûü"
codeB = "AAAAAEEEEIIIINOOOOOUUUUaaaceeeeiiiinoooouuuu"
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

 

[Busard]

Re : Tout en majuscules sauf une colonne

Merci à tous les deux pour votre aide.
Je viens de m'apercevoir qu'en fait lorsque l'on exclut une colonne de la transformation en majuscules, cela évite aussi le changement de format de date dd/mm/aaaa en mm/dd/aaaa...