Mettre en gras la cellule si tout en majuscule

Bonjour à tous,

Et bonne année ...

J'ai un tableau dans lequel certaines cellules sont en majuscules.

Je cherche une macro afin de mettre en gras les cellules dont tout les caractères sont en majuscule (et ne pas mettre en gras les cellule qui contiennent seulement quelques majuscule).

Merci d'avance

Bonjour

Tu sélectionnes ta zone à vérifier

Ensuite tu exécutes cette macro

Option Explicit

Sub EnGras()
Dim Cel As Range
  For Each Cel In Selection
    If UCase(Cel) = Cel Then Cel.Font.Bold = True
  Next Cel
End Sub

Bonjour,

Merci pour ce code. Cela fonctionne, à ceci près qu'il me met également en gras les cellules contenant des chiffres (par exemple : 75020 PARIS apparait tout en gras) alors que je veux simplement les cellules en majuscule sans chiffre.

Est-ce possible ?

Merci d'avance

Bonjour

Une variante

Sub EnGras()
Dim Cel As Range
Dim I As Integer
Dim Gras As Boolean

  For Each Cel In Selection
    If UCase(Cel) = Cel Then
      Gras = True
      For I = 1 To Len(Cel)
        If Asc(Mid(Cel, I, 1)) > 47 And Asc(Mid(Cel, I, 1)) < 58 Then Gras = False: Exit For
      Next I
      Cel.Font.Bold = Gras
    End If
  Next Cel
End Sub

Si d'autres cas, tu en fais la liste que tu joins dans un fichier

Merci beaucoup,

Ca fonctionne nickel !

Bonne fin de journée.