majuscule sur plusieurs colonnes

[christophe24]

bonsoir à tous

Est il possible de mettre automatiquement en Majuscule les données (que l'on rentrent au fur et à mesure) des colonnes C D E F H I K S .
j'aimerais également avoir les 1er lettres uniquement en majuscules pour les colonnes G O Q R T U .
mes donnés sont entre A6 et V900
en vous remerciant par avance

 

[Gelinotte]

Re : majuscule sur plusieurs colonnes

Bonsoir,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("C6:f900, h6:i900, k6:k900, s6:s900")) Is Nothing Then
    On Error Resume Next
    Target.Offset(-1, 0).Value = UCase(Target.Offset(-1, 0).Value)
    Target.Value = UCase(Target.Value)
    Target.Offset(1, 0).Value = UCase(Target.Offset(1, 0).Value)
End If

If Not Application.Intersect(Target, Range("g6:g900, o6:o900, q6:r900, t6:t900, u6:u900")) Is Nothing Then
    On Error Resume Next
    Target.Offset(-1, 0).Value = UCase(Left(Target.Offset(-1, 0).Value, 1)) & LCase(Right(Target.Offset(-1, 0).Value, Len(Target.Offset(-1, 0).Value) - 1))
    Target.Value = UCase(Left(Target.Value, 1)) & LCase(Right(Target.Value, Len(Target.Value) - 1))
    Target.Offset(1, 0).Value = UCase(Left(Target.Offset(1, 0).Value, 1)) & LCase(Right(Target.Offset(1, 0).Value, Len(Target.Offset(1, 0).Value) - 1))
End If

End Sub

En vba, on insère dans le feuille.

À tester...


Gelinotte

 

[Gelinotte]

Re : majuscule sur plusieurs colonnes

Bonsoir,

La version fichier ... la macro fonctionne sur les feuilles : Feuil1 et Original.

A+


Gelinotte

 

[christophe24]

Re : majuscule sur plusieurs colonnes

bonsoir et merci de ta reponse
je suis sur xl2000
ton code marche uniquement si je valide la cellule par contre si je me sers de la touche tabulation rien ne se passe pas de majuscules
si tu peux faire quelque chose je t'en remercie
cordialement

 

[Gelinotte]

Re : majuscule sur plusieurs colonnes

Bonsoir,

Je suis sous Excel 2013. Je n'ai pas de version 2000 sous la main.

Il va donc falloir attendre une autre charmante personne 🙄


Gélinotte

 

[Gelinotte]

Re : majuscule sur plusieurs colonnes

Bonsoir,

Examine ce fichier joint, il est probable qu'il fonctionne sous Excel 2000.


Geli

 

[christophe24]

Re : majuscule sur plusieurs colonnes

Toujours le meme problème. cela marche uniquement avec la touche valid et pas avec la tabulation
par contre si je reviens me placer avec le curseur sur la cellule elle se met en Maj.
merci

 

[Gelinotte]

Re : majuscule sur plusieurs colonnes

Bonsoir,

Je regarde pour détecter la touche Tabulation, mais ça complexifie la macro et mon petit cerveau boucanne 😛

Geli

 

[ROGER2327]

Re : majuscule sur plusieurs colonnes

Bonjour à tous.

Une autre proposition :​

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim R As Range, C As Range

    Application.EnableEvents = False

    Set R = Intersect(Cible, Range("C6:F900, H6:I900, K6:K900, S6:S900"))
    If Not R Is Nothing Then
        For Each C In R.Cells
            C.Value = UCase(CStr(C.Value))
        Next
    End If

    Set R = Intersect(Cible, Range("G6:G900, O6:O900, Q6:R900, T6:U900"))
    If Not R Is Nothing Then
        For Each C In R.Cells
            C.Value = Replace(LCase(CStr(C.Value)), LCase(Left$(CStr(C.Value), 1)), UCase(Left$(CStr(C.Value), 1)), 1, 1)
        Next
    End If

    Application.EnableEvents = True

End Sub

Bonne journée.


ℝOGER2327
#7175

Lundi 2 Pédale 141 (Saint André Marcueil, ascète cycliste - fête Suprême Quarte)
6 Ventôse An CCXXII, 0,7007h - asaret
2014-W09-1T01:40:54Z

 

[christophe24]

Re : majuscule sur plusieurs colonnes

super excellent merci
j'aimerais avoir la ligne active colorée
aurais tu une solution si celle ci doit etre ajoutée sur la macro
par avance merci