Discussion :

[michelj64]

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

[Slooby]

Bonjour,

Attention à ce que tu écris !!!
Tu essaye d'appliquer une méthode à un String !

Tu peux faire .Show à l'objet UserForm1, mais pas au String "UserForm1".

Heureusement pour toi, j'ai une solution

Tu peux utiliser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim nomUserForm as String
'tu concatenes comme tu veux
nomUserForm = "UserForm" & %tonNumero%
 
'dans la collection des UserForms, tu affiches celui qui a le nom que tu veux
VBA.UserForms.Add(nomUserForm).Show

Résolu !

Slooby

[michelj64]

Slooby

merci merci


je rame devant les usages du langage


et je bloque souvent sur l'adressage

encore merci