Re: Test simultané sur deux cellules |
Titre du sujet : Re: Test simultané sur deux cellules par Galopin01 le 05/08/2020 14:26:53 bonjour, Voici une solution : Sub test() Dim rng, i% rng = Range("A1:B700").Value For i = 3 To 700 If rng(i, 1) <> "" And rng(i, 2) = "" Then Range("A" & i & ":K" & i).Interior.ColorIndex = 6 Next End Sub Nota : La ligne c'est vague... (il y a 16000 colonnes !) je me suis arrêté à la colonne K. Pour aller plus loin changer pour la colonne voulue. A+ |
Forums