Macro mise en forme conditionnel

Bonjour,
Tu n'as pas besoin de Visual Basic Application pour faire ce que tu souhaites, il suffit simplement de régler la mise en forme automatique sur les cellules impactées par les calculs et définir que si la valeur ...est celle que tu veux alors format police, bordure, etc, et ce pour trois condition plus celle par défaut (le format sans aucune mise en forme conditionnelle).

Justement avec mise en forme conditionnel je ne peux pas changer la taille de la police, c'est pour sa que je veux créer une macro.

Bonjour,
Pour l'exemple...
La colonne testée est la B
le contenu de la cellule est la grandeur que l'ont veux donner à la police.
A adapter, tu ne donne pas plus de renseignement.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncCel As Variant
Static AncAdd As String
    If Target.Count > 1 Then Exit Sub
        If AncAdd <> "" Then
            If Range(AncAdd).Column = 2 And Range(AncAdd) <> AncCel Then
                Range(AncAdd).Font.Size = Range(AncAdd)
            End If
        End If
    AncAdd = Target.Address
    AncCel = Target.Value2
End Sub

A coller dans le module de la feuille.
A+

Merci pour ta réponse lermitte c'est presque sa. En fait ce que je voudrais faire c'est : par exemple j'ai un tableau de A1 à E5 et si dans une de ces cellules je tape "oui" alors la taille de la police sera de 8 et si dans une autre cellule je tape "non" alors la taille sera de 12.
J'espère être assez claire.

L'avantage de donner un maximum de renseignement dans la question est que la solution est plus rapidement conforme à ce que tu veux,..
De plus, si tu comprend le code ce n'est pas difficile de l'adapter.
Enfin... La rectification.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncCel As Variant
Static AncAdd As String
    If Target.Count > 1 Then Exit Sub
        If AncAdd <> "" Then
            If Not Intersect(Range(AncAdd), Range("A1:E5")) Is Nothing Then
                If UCase(Range(AncAdd)) = "OUI" Then
                    Range(AncAdd).Font.Size = 8
                ElseIf UCase(Range(AncAdd)) = "NON" Then
                    Range(AncAdd).Font.Size = 12
                End If
            End If
        End If
    AncAdd = Target.Address
    AncCel = Target.Value2
End Sub

A+

Merci beaucoup lermite c'est tout à fait ce que je voulais je te remercie ce code marche parfaitement.

Bonjour,
Police, police !