Rapport de message :*
 

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+