EXCEL: VBA pour tester si la ligne comporte u

Résolu
PTHV Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -  
 love -
Bonjour,
Comment peut-on tester si une ligne comporte au moins 1 cellule avec une couleur de fond autre que le blanc ?
Merci
A voir également:

4 réponses

Réponse 1 / 4
love
 
salut
0
Réponse 2 / 4
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
bonjour,
avec cette macro entre autre 
Sub ChcherCouleurFond()
Dim cel As Range
Dim a$
    Sheets("Feuil1").Activate 'A adapter au nom de la feuille
   ' a$ = "A1:" & Range("A1").SpecialCells(xlCellTypeLastCell).Address
   ' Range(a$).Select 'sélectionne toute la feuille
   'Ou faire la sélection voulue
    For Each cel In Sheets("feuil1").UsedRange
        b$ = cel.Address
        If cel.Interior.ColorIndex <> 2 Then 'correspond au blanc
            cel.Select
            Call MsgBox("Cette cellule n'a pas le fond blanc ?", vbYesNo, "Recherche cellule pas blanc")
        End If
    Next cel

End Sub

A+
-1
PTHV Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Merci de votre réponse.
Je m'explique plus clairement. Ex:
sur chaque ligne, la plage des colonnes 1 à 5, le fond des cellules est colorié ou non. La cellule de colonne 7 sert à afficher le résultat s'il y a ou non une cellule au moins a une couleur de fond autre que le blanc.
si A1 à E1 pas de couleur de fond ---> G1 affiche 0 (ou vrai, ou n'importe quel code)
si dans la plage A2 à E2, il y a au moins 1 cellule avec couleur de fond autre que le blanc ---> G2 affiche 1 (ou faux, ou n'importe quel code)
etc
ci joint fichier exemple :
https://www.cjoint.com/?fjiH10JVur
Merci de votre aide
-1
Réponse 3 / 4
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour PTHV, lhermite,

Cette fonction pourra peut-^tre t'aider

Function tester_couleur(plage As Range) As Byte
For Each cellule In plage
If cellule.Interior.ColorIndex <> -4142 Then
'si pas de couleur: -'4142(transparent) si couleur blanche:2
tester_couleur = 1
Exit Function
End If
Next
tester_couleur = 0
End Function

si tu préfères VRAI-FAUX tu passes la fonction en " as boolean" avec TRue et FALSE au lieu de 1 et 0

A+
Michel
-1
PTHV Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour votre macro, mais je ne parviens pas à l'appliquer (problème de compréhension de ma part?)
-1
Réponse 4 / 4
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour,

Ci joint tite démo...
https://www.cjoint.com/?fkjvI610M1

Cordialement,
Michel
-1
PTHV Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir,
Merci beaucoup de votre aide.
Ca répond à ma demande, à un tout petit détail près: peut-il la faire automatiquement, sans recalcul par copier formule ?
Sinon, ça marche très bien. Un grand MERCI
Bon WE
-1