Saut de page incrementer de 1

Bonjour,

Voila j'ai un userform qui se remplie et une fois rempli j'ai une macro qui permet de faire un saut de page.

Seulement je souhaiterais qu'une fois le userform complété qu'il m'incremente de 1 les pages en cellule W31, puis W63, puis W65 etc...

J'ai essayé de faire une boucle while mais ce dernier plante :

dim j as integer
    j = 1
    casedep = "W31"

    While j < 3

    Range(casedep).Value = j
    casedep = "W" & 31 * (j + 1) + 1

    Wend

Bonjour.

Il faut incrémenter ton j dans la boucle sinon il restera toujours à 1 et tu auras une boucle infinie d'où le plantage

Un petit j =j+1 avant le Wend devrait résoudre ce problème.

Bonne journée.

Bonjour,

Il me paraitrait beaucoup plus simple d'insérer dans le pied de page, la numérotation automatique des pages via la propriété "PageSetup" de la feuille.