VBA mettre une ligne en couleur

Fermé
Nico0044 Messages postés 5 Date d'inscription vendredi 28 mars 2008 Statut Membre Dernière intervention 1 août 2016 - 28 mars 2008 à 15:42
 mt - 8 avril 2016 à 18:31
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
A voir également:

2 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
28 mars 2008 à 16:40
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
11
tres bien
0
tres bien quoi
0
oui tres bien quoi???
0
interesting...merci
0
interessant et instructif
2