problème dans la concaténation d'une chaine de caractères et le contenu d'une variable
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:
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 |
