If Range("G27").Value = "" Then Exit Sub 'saisir recherche en G27 a adapter cellule recherche If Var1 >= Range("G27").Value Then Cells(Cell.Row, 6).Interior.ColorIndex = 3 'couleur rouge colonne F a adapter colonne lettre End If
Sub couleur() Dim n As Integer Range("K27") = "" 'reset K27 a adapter cellule de résultat For n = 2 To Range("F65536").End(xlUp).Row If Range("F" & n).Interior.ColorIndex = 3 Then 'couleur rouge colonne F a adapter colonne lettre Range("K27") = Range("K27") & Range("F" & n) & "/" 'nom des colonnes en K27 a adapter cellule résultat End If Next n Range("K27").Value = Left(Range("K27").Value, Len(Range("K27").Value) - 1) 'supprime dernier "/" Columns("F:F").Interior.ColorIndex = xlNone 'sans remplissage en colonne F a adapter colonne lettre End Sub
28 avril 2020 à 18:04
@+ LePivert
29 avril 2020 à 09:47