Savoir si la rangée X est excel.XlPageBreak.xlPageBreakAutomatic [Résolu]

cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 8 mai 2012 à 11:51 - Dernière réponse : cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention
- 8 mai 2012 à 16:08
Bonjour à tous
excel via vb.net

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

j'essaye d'écrire
If .Rows(numbersrows).PageBreak = excel.XlPageBreak.xlPageBreakAutomatic Then


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

si j'écris comme ça
If .Rows().PageBreak = excel.XlPageBreak.xlPageBreakAutomatic Then


il n'y a plus d'erreur mais la condition
n'est jamais effectué

merci d'avance
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 8 mai 2012 à 16:08
3
Merci
j'ai trouvé

Dim r As excel.Range

 r = CType(xlworksheet.Rows(numbersrows), excel.Range)
 If r.PageBreak = excel.XlPageBreak.xlPageBreakAutomatic Then
 

end if 

Merci cs_ShayW 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

Commenter la réponse de cs_ShayW
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 8 mai 2012 à 13:23
0
Merci
Bonjour, shayw,
- dans le bloc With de quel objet (et défini comment) ?
- où et comment a été definie la variable numbersrows ?

J'ai par ailleurs quelques doutes quant à la capacité de Excel (et de son VBA) de déterminer, avant qu'il n'existe, un saut de page. La constatation de ce saut de page pourra par contre être faite si la prochaine cellule existe déjà dans le usedrange



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Commenter la réponse de ucfoutu
cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 8 mai 2012 à 14:58
0
Merci
Bonjour Ucfoutu

Dim objexcel As New excel.Application
Dim xlBook As excel.Workbook
Dim xlworksheet As excel.Worksheet
Dim numbersrows As Integer
try

xlBook = objexcel.Workbooks.Add
            xlworksheet = CType(xlBook.ActiveSheet, excel.Worksheet)
objexcel.Visible = True
With xlworksheet
for numbersrows = 1 to 100
'ici dans l'editeur du vb.net le if.rows
' est souligné 
 
  If .Rows(numbersrows).PageBreak =    excel.XlPageBreak.xlPageBreakAutomatic Then

End If
next

 End With
objexcel = Nothing
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try
Commenter la réponse de cs_ShayW

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.