Code VBA police et majuscule

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

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.

Bonjour

Super, ça fonctionne parfaitement

Merci beaucoup

Bonne journée

Cdlt

Ta

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 :

.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

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

Bon weekend.

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

Rechercher des sujets similaires à "code vba police majuscule"