un grand merci =E0 Shnoulle pour sa r=E9ponse pr=E9c=E9dente mais=20
malgr=E8 ses conseils, j'ai toujours un probl=E8me, voci un=20
petit module :
Sub saut()
i =3D 1
While i < 200
If ActiveSheet.Rows(i).PageBreak =3D xlPageBreakAutomatic=20
Then
ActiveSheet.Cells(i, 1) =3D "Saut"
End If
i =3D i + 1
Wend
End Sub
Quand je suis dans l'onglet, je visionne bien les sauts=20
de page automatique mais ce module ne fonctionne pas.=20
J'ai effectu=E9 le meme test avec les sauts de page manuels=20
et cela fonctionne tr=E8s bien. Je s=E8che encore une fois.=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
rebonjour à tous
Juste pour vous dire que je me suis fais avoir comme un nul. J'ai trouvé mon erreur. En effet, meme si les sauts de ligne automatiques sont visibles dans la feuille de calcul, s'il n'existe pas de cellule renseigné après, ils n'existent pas et le module ne les retrouvaient pas. J'ai contourné le probléme en renseignant une cellule sur la ligne 400 en début de module et en la supprimant en fin de module.
Désolé de vous avoir embeté pour rien et en espérant que ma réponse soit utile à d'autre
A bientot et merci encore pour vos réponses.
frvn
-----Message d'origine----- Bonjour,
un grand merci à Shnoulle pour sa réponse précédente mais
malgrè ses conseils, j'ai toujours un problème, voci un petit module :
Sub saut() i = 1 While i < 200 If ActiveSheet.Rows(i).PageBreak = xlPageBreakAutomatic Then ActiveSheet.Cells(i, 1) = "Saut" End If i = i + 1 Wend End Sub
Quand je suis dans l'onglet, je visionne bien les sauts de page automatique mais ce module ne fonctionne pas. J'ai effectué le meme test avec les sauts de page manuels
et cela fonctionne très bien. Je sèche encore une fois.
Merci à tous pour votre aide.
FRVN .
rebonjour à tous
Juste pour vous dire que je me suis fais avoir comme un
nul. J'ai trouvé mon erreur. En effet, meme si les sauts
de ligne automatiques sont visibles dans la feuille de
calcul, s'il n'existe pas de cellule renseigné après, ils
n'existent pas et le module ne les retrouvaient pas. J'ai
contourné le probléme en renseignant une cellule sur la
ligne 400 en début de module et en la supprimant en fin
de module.
Désolé de vous avoir embeté pour rien et en espérant que
ma réponse soit utile à d'autre
A bientot et merci encore pour vos réponses.
frvn
-----Message d'origine-----
Bonjour,
un grand merci à Shnoulle pour sa réponse précédente
mais
malgrè ses conseils, j'ai toujours un problème, voci un
petit module :
Sub saut()
i = 1
While i < 200
If ActiveSheet.Rows(i).PageBreak = xlPageBreakAutomatic
Then
ActiveSheet.Cells(i, 1) = "Saut"
End If
i = i + 1
Wend
End Sub
Quand je suis dans l'onglet, je visionne bien les sauts
de page automatique mais ce module ne fonctionne pas.
J'ai effectué le meme test avec les sauts de page
manuels
et cela fonctionne très bien. Je sèche encore une fois.
Juste pour vous dire que je me suis fais avoir comme un nul. J'ai trouvé mon erreur. En effet, meme si les sauts de ligne automatiques sont visibles dans la feuille de calcul, s'il n'existe pas de cellule renseigné après, ils n'existent pas et le module ne les retrouvaient pas. J'ai contourné le probléme en renseignant une cellule sur la ligne 400 en début de module et en la supprimant en fin de module.
Désolé de vous avoir embeté pour rien et en espérant que ma réponse soit utile à d'autre
A bientot et merci encore pour vos réponses.
frvn
-----Message d'origine----- Bonjour,
un grand merci à Shnoulle pour sa réponse précédente mais
malgrè ses conseils, j'ai toujours un problème, voci un petit module :
Sub saut() i = 1 While i < 200 If ActiveSheet.Rows(i).PageBreak = xlPageBreakAutomatic Then ActiveSheet.Cells(i, 1) = "Saut" End If i = i + 1 Wend End Sub
Quand je suis dans l'onglet, je visionne bien les sauts de page automatique mais ce module ne fonctionne pas. J'ai effectué le meme test avec les sauts de page manuels
et cela fonctionne très bien. Je sèche encore une fois.
