Bonjour,
Je n'ai pas tout compris de ta demande!
Tu veux inscrire 0 dans quelle ligne de la plage de cellules?
| J'aimerai egalement que ceci se fasse dans des rangs de ligne precis, a savoir D1 a D21, D22 à D42,....
Ta question ne mentionne pas si on doit tenir compte des bornes 1 et 21 dans
la détermination du nombre de cellules consécutives vides dans la plage. Si un
et 21 sont vides, tu auras 21 cellules consécutives vides et non 20.
Il faudra probablement que tu adaptes le code légèrement pour répondre aux
exigences de ton application...
'------------------------------------------
Sub test()
Dim Rg As Range, Are As Range, R As Range, A As Long
With Feuil1
Set Rg = .Range("D1
" & .Range("D65536"). _
End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
End With
For A = 1 To Rg.Cells.Count Step 21
Set R = Range("D" & A).Resize(21)
For Each Are In Rg.Areas
If Are.Cells.Count >= 20 Then
If Union(Are, R).Address = R.Address Then
R(1, 1) = 0
End If
End If
Next
Next
End Sub
'------------------------------------------