Ajout pages dans Multipages

Bonjour,

Je coince sur un problème.

Je voudrais ajouter un nombre de pages précis dans les onglets du multipages (présent dans un userform).

J'ai un compteur qui connait le nombre de pages mais après je n'arrive pas à dire qu'il faut mettre x pages.

Voilà où j'en suis

'MsgBox Compteur

For i = 1 To Compteur

MultiPage1.Pages.Add

Next i

vous avez une idée ?

Bonjour

Je ne comprend pas ton code fonctionne !

Ou tu voudrais avant l’exécution du code qu'une boite de dialogue s'ouvre et demande à l'utilisateur combien de pages il faut ajouter ?

bonjour Ozannmar, bonjour le forum,

c'est pas clair !

J'ai un compteur qui connait le nombre de pages

1- le compteur connait le nombre actuel de pages du Multipages :

 'tu veux rajouter 5 pages par exemple (le compteur ne sert a rien)
For I = 1 To 5
    MultiPage1.Pages.Add
Next I

2 - Le compteur connait le nombre de pages à rajouter :

For I = 1 To compteur
MultiPage1.Pages.Add
Next I

[Édition]

Bonjour GGautier nos posts se sont croisés...

Bonjour,

Merci de vos réponses.

Je me suis aperçu que c'est mon compteur qui ne marche pas bien.

Je voudrais que dans toutes les feuilles il regarde la cellule P2 et que le compteur augmente de 1 quand la cellules P2 <1

Dim sh As Worksheet, a As Integer, Compteur As Integer
For Each sh In ActiveWorkbook.Sheets
sh.Activate
a = 0
If ActiveSheet.Range("P2").Value < 1 Then
Compteur = a + 1
Else
End If
Next sh

Avec ça mon compteur reste bloqué à 1, alors que actuellement il devrait y en avoir 2.

Merci

Comme ça ?

Sub Compteur()
Dim Sh As Worksheet
Dim Cpt As Integer, NbFeuilles As Integer, i As Integer

NbFeuilles = ThisWorkbook.Worksheets.Count
Cpt = 0
For i = 1 To NbFeuilles
    Set Sh = ThisWorkbook.Worksheets(i)
    If Sh.Range("P2") < 1 Then Cpt = Cpt + 1
    'Attention le compteur s'incrémente de +1 si la cellule est vide (car considérée comme =0)
    'Sinon écrie comme ci-dessous :
    'If Sh.Range("P2") < 1 and Sh.Range("P2") <> "" Then Cpt = Cpt + 1
Next i

End Sub

Super merci ! Avec quelques ajustements je vais avoir le bon résultat mais au moins j'ai la base.

Rechercher des sujets similaires à "ajout pages multipages"