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
Partager