Effacer le contenu dune case suite a la couleur d'une autre case

Résolu

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention - 21 nov. 2015 à 05:25

Bonjour,

y'a t il une facon de parcourir chaque ligne et si on rencontre une case jaune on efface le contenu de la derniére case de cette ligne

j'ai commencé par ce code la mais il m'affiche aucune resultat


For r = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

Set MaPlage = Range("A:AO").Rows(e)

For Each c In MaPlage.Cells

If c.Interior.Color = vbYellow Then

ActiveSheet.Cells(r, 42).Clear





End If

Next c
Next r

A voir également:

Effacer le contenu dune case suite a la couleur d'une autre case
Aller à la ligne dans une case excel - Guide
La boite a couleur - Télécharger - Divers Photo & Graphisme
Excel case choix multiple - Guide
Code couleur rj45 - Forum câblage
Case à cocher excel - Forum MacOS

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

Bonjour
essayez ceci

    For r = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
        Set MaPlage = Range("A" & r & ":AO" & r)
        For Each c In MaPlage
            If c.Interior.Color = vbYellow Then ActiveSheet.Cells(r, 42).Clear
        Next c
    Next r

Cdlt

Discussions similaires

Bouton case à cocher grisé

fonction du type "CASE" dans excel

créer une case a cocher sur open office

URGENT - codes ALT + ???

Supprimer cases à cocher

Votre réponse

Discussions similaires