VBA mettre une ligne en couleur

Question

Bonjour,
Je voudrais faire un petit programme en VBA mais je suis débutant.
Il faudrait que ce programme s'éxécute au démarrage d'excel automatiquement.
Excel contient un tableau de 3 colonnes et d'un nombre de lignes qu'on ne connait pas ( il s'agrandit au fur et à mesure de nouvelles données).
Il faudrait que dès qu'il y a une valeur = 0 dans une cellule de la colonne C, toute cette ligne se mette en rouge. Le programme doit tester tout le tableau.
Merci bcp d'avance pour votre aide

Polux31 · Accepted Answer

bonjour,

Ouvres l'éditeur VB (Alt+F11), ajoutes un module (Insertion-> Module), ensuite colles le code ci-dessous :
Sub controleLigne()
Dim ws As Worksheet
Dim i As Long

    Set ws = Worksheets("Feuil1")   'nom de la feuille où le contrôle doit se faire
    With ws
        i = 1      'Numéro de la première ligne à tester
        While .Range("C" & i).Value <> ""
            If .Range("C" & i).Value = 0 Then
                .Rows(i).Interior.Color = RGB(255, 0, 0)
            End If
        i = i + 1
        Wend
    End With
            
End Sub

Double-cliques sur ThisWorkbook et colles le code ci-dessous :
Private Sub Workbook_Open()
    Module1.controleLigne
End Sub

Sauvegardes ton fichier, fermes le et relances le ...

;o)

polux

mt · Answer

interessant et instructif

VBA mettre une ligne en couleur

2 réponses

Discussions similaires

Newsletters