Si la cellule contient "*" mettre la police en 18

[isa44]

Bonjour et bon week end au forum ,

J'ai un souci de mise en forme : par VBA je voudrais mettre en gras et la taille de la police en 18 sur la colonne D pour les cellules qui contiennent un "*" ( il y a du texte après).

Merci pour vos solutions

 

[Pierrot93]

Re : Si la cellule contient "*" mettre la police en 18

Bonjour Isa

essaye ainsi :

Sub test()
Dim c As Range
For Each c In Range("D1:D" & Range("D65536").End(xlUp).Row)
    If c Like "*[*]*" Then
        With c.Font
            .Bold = True
            .Size = 18
        End With
    End If
Next c
End Sub

bonne journée
@+

 

[luck8282]

Re : Si la cellule contient "*" mettre la police en 18

Bonjour et bon week end au forum ,

J'ai un souci de mise en forme : par VBA je voudrais mettre en gras et la taille de la police en 18 sur la colonne D pour les cellules qui contiennent un "*" ( il y a du texte après).

Merci pour vos solutions

Avec un format conditionnel du style =gauche(Nom de la cellule;1).

Mais il y a certainement plus élégant.

 

[isa44]

Re : Si la cellule contient "*" mettre la police en 18

Merci Pierrot93 , toujours aussi rapide et efficace: cela fonctionne très bien

 

[ROGER2327]

Re : Si la cellule contient "*" mettre la police en 18

Bonjour luck8282

Avec un format conditionnel du style =gauche(Nom de la cellule;1).

Mais il y a certainement plus élégant.

Intéressant. Je parviens à appliquer le "gras", mais comment change-t-on la taille ?​

ROGER2327
#3959

Jeudi 12 Tatane 137 (Saints Cannibales, philanthropes, SQ)
7 Thermidor An CCXVIII
2010-W29-7T10:11:51Z

 

[luck8282]

Re : Si la cellule contient "*" mettre la police en 18

Bonjour Roger,

En effet je viens aussi de me rendre compte qu'il n'est pas possible de changer la taille de la police (l'option taille de police est grisée) .

Il me semblais pourtant déjà avoir fait cette manip avec des version antérieur d'excel; j'ai Excel 2010. Mais je me trompe peut être.

 

[ROGER2327]

Re : Si la cellule contient "*" mettre la police en 18

Re...

Merci.
Il faut donc passer par une procédure, comme le propose Pierrot93.
On peut aussi utiliser une procédure évènementielle :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCel As Range, oPlg As Range
   Set oPlg = Intersect(Target, Columns("D:D"))
   If Not oPlg Is Nothing Then
      For Each oCel In oPlg.Cells
         With oCel
            If .Value Like "[*]*" Then
               With .Font: .Bold = True: .Size = 18: End With
            Else
               With .Font: .Bold = False: .Size = Application.StandardFontSize: End With
            End If
         End With
      Next oCel
   End If
End Sub[/B][/COLOR]

ROGER2327
#3960

Jeudi 12 Tatane 137 (Saints Cannibales, philanthropes, SQ)
7 Thermidor An CCXVIII
2010-W29-7T15:59:43Z