parcours de chaque cellule d'une colonne

*Bonjour finesse20*,
With Workbooks("REMCO.xls").Sheets("Part Elec détail rub paie")
For Each c In .Range("I6:I" & .Range("A65536").End(xlup).Row)
c.FormulaR1C1 = "=RC[-1]-RC[-2]"
Next
End With

Devrait convenir, dis nous

Bonjour,

j' ai le code suivant qui me permet de parcourir chaque cellule de la
colonne I

Dim c As Range

For Each c In Workbooks("REMCO.xls").Sheets("Part Elec détail rub
paie").Columns(9).Cells
c.FormulaR1C1 = "=RC[-1]-RC[-2]"
Next

J'aimerais que le parcours des cellules commencent à la cellule I6 et
se termine quand la cellule d'une des colonnes précédentes est nulle
par exemple jusqu'en I58 les cellules A58,B58,C58, etc.. sont non
nulles
et en I59 A59,B59,C59, etc.. sont nulles

Merci d'avance pour votre aide

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Bonjour.
Essaie :

Dim c As Range
For Each c In Workbooks("REMCO.xls").Sheets("Part Elec détail rubpaie
").Columns(9).Cells
If c.Row > 5 Then
If Cells(c.Row, 1) & Cells(c.Row, 2) & Cells(c.Row, 3) _
& Cells(c.Row, 4) & Cells(c.Row, 5) & Cells(c.Row, 6) _
& Cells(c.Row, 7) & Cells(c.Row, 8) _
& Cells(c.Row, 9) = "" Then Exit Sub
c.FormulaR1C1 = "=RC[-1]-RC[-2]"
End If
Next c

Cordialement.
Daniel
"finesse20" <cheviron@gmail.com> a écrit dans le message de news:
1156066128.578241.26680@h48g2000cwc.googlegroups.com...
Bonjour,

j' ai le code suivant qui me permet de parcourir chaque cellule de la
colonne I

Dim c As Range

For Each c In Workbooks("REMCO.xls").Sheets("Part Elec détail rub
paie").Columns(9).Cells
c.FormulaR1C1 = "=RC[-1]-RC[-2]"
Next

J'aimerais que le parcours des cellules commencent à la cellule I6 et
se termine quand la cellule d'une des colonnes précédentes est nulle
par exemple jusqu'en I58 les cellules A58,B58,C58, etc.. sont non
nulles
et en I59 A59,B59,C59, etc.. sont nulles

Merci d'avance pour votre aide

Merci bcp JLuc, ta solution marche parfaitement

Merci pour votre aide