bonjour

je reviens vers vous pour un problème de débutant

je mets en place un multi page ( 4 pages)

dans une commande multiple (réveillée par CLK) je récupère un numéro de page

et je concatène USERFORM avec ce nombre et j'obtiens userform1 ou userform2...

mais je bloque à la compilation (erreur de compilation , de syntaxe

je vous joins ma procédure et demande l'indulgence pour le débutant

bien cordialement

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
' **************************************
'multi page  ********************************
'***************************************
Private Sub CommandButton10_Click()
Dim modal As Variant
Dim rangs As Byte
Dim rangi As Integer
Dim UserForm As Object
Dim TheAgreedPage As Variant
 
rangs = InputBox("vous devez saisir le numéro de page (numéro de 1 à 4)")
If (rangs = "1" Or rangs = "2" Or rangs = "3" Or rangs = "4") Then
                rangi = rangs
                rangi = rangi - 1
                 TheAgreedPage = rangi
                 "UserForm" & rangs.Show vbModeless
                 GoTo fin
    Else
    rangs = InputBox("vous deviez saisir le numéro de page (numéro de 1 à 4); nous abandonnons la demande")
  End If
fin:
 End Sub