VBA mettre une ligne en couleur
Nico0044
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
mt -
mt -
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
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:
- VBA mettre une ligne en couleur
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel cellule couleur si condition texte - Guide
- Formulaire en ligne de meta - Guide
2 réponses
bonjour,
Ouvres l'éditeur VB (Alt+F11), ajoutes un module (Insertion-> Module), ensuite colles le code ci-dessous :
Double-cliques sur ThisWorkbook et colles le code ci-dessous :
Sauvegardes ton fichier, fermes le et relances le ...
;o)
polux
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
helly
tres bien
tod
>
helly
tres bien quoi
mt
>
helly
oui tres bien quoi???
tod
interesting...merci