Macro pour mise en forme conditionelle

Bonjour à tous,

Je voudrai par une macro, que si dans un champs la cellule contient tel libellé, la macro mettrait cette ligne en caractère GRAS et qu'elle me supprimerait une ligne sui elle contient tel libellé.

J'ai cherché sur différents forums qu'on pouvait utiliser une macro ou une liste déroulante.

En vous remerciant de votre aide.

Bonjour,

un essai à tester.

Cordialement.

Bonjour,

Quel serait le code pour mettre du texte en rouge en plus du gras?

Merci

Max

Voilà avec du rouge en plus du gras.

Cordialement.

bigdaddy154 a écrit :

Voilà avec du rouge en plus du gras.

Cordialement.

Merci

Merci à vous tous,

Le code fonctionne parfaitement, mais je n'arrive pas à l'intégrer dans ma macro, car je la lance à partir d'un autre fichier.

Comment faire ?

J'ai du mal à saisir ce qui te bloque au pire copie colle la macro dans le fichier dans lequel tu souhaites faire le traitement.

Cordialement.

Bonjour,

J'ai bien copié-collé ton code sur ma macro, et j'ai le message "Erreur de compilation : Variable non définie" sur "derligne".

Sub stats_par_BANQUE()
'
' stats_par_BANQUE Macro
'
    'Ouvrir le fichier statistique trésorerie par BANQUE
'
    Workbooks.Open Filename:="C:\TRESO\statistics par banque.xls"

derligne = Cells(Rows.Count, 1).End(xlUp).Row
For i = 8 To derligne
    If Cells(i, 1) = "Total Recettes" Then
        Cells(i, 1).Font.Bold = True
    End If
Next i
End Sub

Bonjour,

Ok l'erreur viens du fait qu'avant ta macro tu dois avoir un option explicit qui te force à déclarer les variables utilisées dans tes macros supprime cette ligne et tout devrais fonctionner.

Cordialement

Ok, çà marche maintenant. Merci beaucoup.

Mais j'aurais 2 autres questions :

1-/ Quel argument faut-il rajouter que si la ligne qui contient "Total Recettes", la macro met TOUTE cette ligne en caractère GRAS et ENCADRE (par exemple de A15 à G15).

2-/ Quel argument faut-il rajouter si l'on souhaite supprimer une autre ligne ? j'ai essayé ceci, mais çà ne marche pas.

derligne = Cells(Rows.Count, 1).End(xlUp).Row
For i = derligne To 8 Step -1
    If Cells(i, 1) = "Total Décisions Dépenses" Then
    If Cells(i, 1) = "Total Post-décision" Then
        Rows(i).Delete
    End If

Next i

En vous remerciant par avance de vos commentaires.

Voilà avec les modifications regarde si cela te conviens;

Cordialement.

Merci beaucoup !