Code VBA police et majuscule

Y compris Power BI, Power Query et toute autre question en lien avec Excel
T
Tacentaure
Membre habitué
Membre habitué
Messages : 138
Inscrit le : 4 octobre 2014
Version d'Excel : 2007

Message par Tacentaure » 11 mai 2018, 23:07

Bonjour

J'ai ce code qui me permet de transformer une écriture de cellules en minuscule en majuscule.

With Application
.EnableEvents = 0: target = UCase$(target): .EnableEvents = -1: .ScreenUpdating = 0
End With

Je voudrais ajouter à ce code ,le texte qui me permette que le le format de police soit toujours identique dans toutes les cellules, de même police de 10 par exemple et en gras.


Merci

Cdt

Ta
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 11 mai 2018, 23:30

Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    With Target.Cells(1, 1)
        .Value = UCase.Value
        With .Font
            .Size = 10: .Bold = True
        End With
    End With
    Application.EnableEvents = True
End Sub
Cordialement.
T
Tacentaure
Membre habitué
Membre habitué
Messages : 138
Inscrit le : 4 octobre 2014
Version d'Excel : 2007

Message par Tacentaure » 12 mai 2018, 06:59

Bonjour

Super, ça fonctionne parfaitement
Merci beaucoup

Bonne journée

Cdlt

Ta
v
vba-new
Passionné d'Excel
Passionné d'Excel
Messages : 3'003
Appréciations reçues : 2
Inscrit le : 13 mai 2009
Version d'Excel : 2010 FR - 2013 FR

Message par vba-new » 12 mai 2018, 08:28

Bonjour à tous,

Je passais par là.

@MFerrand : notre ami Tacentaure a du corriger pour que ça marche mais une petite coquille s'est glissée dans ton code :
MFerrand a écrit :
11 mai 2018, 23:30
.Value = UCase.Value
Voici le code corrigé :
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    With Target.Cells(1, 1)
        .Value = UCase(.Value)
        With .Font
            .Size = 10: .Bold = True
        End With
    End With
    Application.EnableEvents = True
End Sub
vba-new
vba-new
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 12 mai 2018, 11:28

Désolé pour les parenthèses... Merci vba-new !

Bon weekend.
T
Tacentaure
Membre habitué
Membre habitué
Messages : 138
Inscrit le : 4 octobre 2014
Version d'Excel : 2007

Message par Tacentaure » 12 mai 2018, 18:02

Bonjour

Encore merci pour le code minuscule /majuscule...c'est exactement ce que je voulais.
Je me permets
Je galère avec un fichier dans lequel j'aurais souhaité mettre un code VBA qui me permette de détecter des doublons dans un tableau.
Il y a quelques incohérence que je n'arrive pas à détecter.
Je joins le fichier au cas où, seulement au cas où

Merci et très belle soirée

Cdt

Ta
120518-problemes VBA doublon .xlsm
(53.45 Kio) Téléchargé 7 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message