effacer le contenu dune case suite a la couleur d'une autre case Résolu

Question

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).RowSet MaPlage = Range("A:AO").Rows(e)For Each c In MaPlage.CellsIf c.Interior.Color = vbYellow ThenActiveSheet.Cells(r, 42).ClearEnd IfNext cNext r
Configuration: Windows 7 / Chrome 44.0.2403.130

Frenchie83 · Answer

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 rCdlt

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

1 réponse

Discussions similaires

Newsletters