Mise en forme ligne avec condition - VBA

Bonjour,

Je dois réaliser la mise en forme automatique d'une table excel (voir fichier joint).

J'aimerais pouvoir définir la police, les bordures et la couleur de fond pour la ligne entière en fonction du nombre de caractères du code qui se trouve dans la première colonne.

Le système de mise en forme conditionnelle d'excel ne semble pas permettre de choisir la police. Je penses donc que la solution passera par un code. N'ayant presque aucune expérience, je me tourne vers ce forum dans l'espoir de trouver un peu d'aide.

Je vous remercie d'avance,

Benoît

Salut,

Voici un exemple de code qui te permet de mettre en forme les lignes qui ne contiennent que deux chiffres en colonne A. Au préalable, la mise en forme de toute la feuille est ''remise à zéro''.

Sub Mise_en_forme()
Dim i As Integer

Application.ScreenUpdating = False

With Cells.Font
    .Name = "Calibri"
    .Size = 8
    .Bold = False
End With

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If Len(Range("A" & i)) = 2 Then
        With Range("A" & i & ":B" & i).Font
            .Name = "Algerian"
            .Size = 12
            .Bold = True
        End With
    End If
Next i

End Sub

A toi d’indiquer ce que tu souhaites réellement.

NB : Bien qu'étant Suisse, je n'ai pas la police ''Helvetica neue'' sur ma machine.

Amicalement.

Bonjour Yvouille,

Un tout grand merci pour ton aide rapide.

Cela fonctionne à la perfection.

Bon week-end,

Benoît