VBA pour mettre en majuscule uniquement dans une zone précise

Y compris Power BI, Power Query et toute autre question en lien avec Excel
n
norberlingo
Membre fidèle
Membre fidèle
Messages : 438
Inscrit le : 13 décembre 2013
Version d'Excel : 2007

Message par norberlingo » 14 mai 2018, 09:50

Bonjour

J'ai un code VBA qui me permet de mettre en majuscule les lettres dans toute la feuille, j'aimerais que ça soit uniquement dans une plage de cellule : C1 : F10

Code actuel

With Target.Cells(1, 1)
.Value = UCase(.Value)


Merci
Belle matinée

Cdt

N
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'075
Appréciations reçues : 261
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 14 mai 2018, 10:02

Bonjour

Essaie ça :
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C1:F10")) Is Nothing Then
        Target.Value = UCase(Target.Value)
    End If
End Sub
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'689
Appréciations reçues : 647
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 14 mai 2018, 10:15

Bonjour norberlingo, gmb,

Je te propose ce code VBA :
Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Count > 1 Then Exit Sub
    If Intersect(Target, [C1:F10]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    .Value = UCase$(.Value)
    Application.EnableEvents = True
  End With
End Sub
dhany
n
norberlingo
Membre fidèle
Membre fidèle
Messages : 438
Inscrit le : 13 décembre 2013
Version d'Excel : 2007

Message par norberlingo » 14 mai 2018, 17:12

Bonjour et merci pour les solution apportées.
Ça à l'air de très fonctionner. Super :-)


Merci et bonne continuation

A une prochaine


No
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'689
Appréciations reçues : 647
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 14 mai 2018, 17:14

Merci pour ton retour !  :D  bonne continuation à toi aussi !  (°v°)°

dhany
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message