mettre en gras les mots dans la liste qui commencent par une majuscule

mth

XLDnaute Barbatruc

• 6 Septembre 2010

• #2

Re : mettre en gras les mots dans la liste qui commencent par une majuscule

Bonsoir Anthoys,

Une proposition avec une mise en forme conditionnelle utilisant cette formule:

Code:

=EXACT($A1;NOMPROPRE($A1))

Bonne soirée,

mth

Edit: 🙂 Bises Tibo 🙂

 

Dernière édition: 6 Septembre 2010

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 6 Septembre 2010

• #3

Re : mettre en gras les mots dans la liste qui commencent par une majuscule

Bonjour x+x,
Salut Mireille, bises,

Toute petite adaptation, car notre ami souhaite mettre en exergue les mots commençant par une majuscule :

Code:

=EXACT(GAUCHE($A1);MAJUSCULE(GAUCHE($A1)))

@+

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 6 Septembre 2010

• #4

Re : mettre en gras les mots dans la liste qui commencent par une majuscule

Bonsoir,

une autre proposition en MFC:
=ET(CODE(GAUCHE(A1;1))>=65;CODE(GAUCHE(A1;1))<=90)

JHA

 

Vote positif 0 Vote négatif

X

x+x=x²

Guest

• 6 Septembre 2010

• #5

Re : mettre en gras les mots dans la liste qui commencent par une majuscule

merci à vous tous.

c'est vraiment gentil.

 

Vote positif 0 Vote négatif

X

x+x=x²

Guest

• 7 Septembre 2010

• #6

Re : mettre en gras les mots dans la liste qui commencent par une majuscule

bonsoir,

comment enlever de gras cette fois les chiffres qui suivent les caractères en gras uniquement?

exemple :

HyueiejdEJ 3, 87-3

en :

HyueiejdEJ 3, 87-3

Merci d'avance

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 8 Septembre 2010

• #7

Re : mettre en gras les mots dans la liste qui commencent par une majuscule

Bonsoir à tous,

On doit pouvoir trouver mieux mais un petit essai avec ce code:

Code:

Sub Macro1()
Dim i As Byte
Dim C As Range
With Sheets("Feuil1")
    For Each C In .Range("a1:a" & .[A65000].End(xlUp).Row)
 
        For i = 1 To Len(C)
        x = Mid(C, i, 1)
            If IsNumeric(x) Then
                C.Characters(Start:=i, Length:=1).Font.Bold = False
            Else
                C.Characters(Start:=i, Length:=1).Font.Bold = True
            End If
        Next i
    Next C
End With
End Sub

@ +

mth

 

Dernière édition: 10 Septembre 2010

Vote positif 0 Vote négatif

X

x+x=x²

Guest

• 8 Septembre 2010

• #8

Re : mettre en gras les mots dans la liste qui commencent par une majuscule

bonjour merci mth

x+x=x²

 

Vote positif 0 Vote négatif