Discussion :

[shayw]

Bonjour à tous

excel via vb2008

j'écris dans la colonne E1
j'aimerais savoir si la prochaine cells
se trouve dans une nouvelle page

j'essaye d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  Dim numbersrows As Integer
 With xlworksheet
 
    If .Rows(numbersrows).PageBreak =   excel.XlPageBreak.xlPageBreakAutomatic Then
End With

j'ai une erreur de syntaxe à Rows(numbersrows)

option strict on disallows late binding

merci

[shayw]

j'ai trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Dim r As excel.Range
 
 r = CType(xlworksheet.Rows(numbersrows), excel.Range)
 If r.PageBreak = excel.XlPageBreak.xlPageBreakAutomatic Then
 
end if