XL 2016 Copie de textbox et label dans plusieurs pages (control multipage)

fdu63

XLDnaute Nouveau
Bonjour,

J'ai créé un contrôle Multipage en VBA. J'ai réussi à faire des copy/paste des TEXTBOX présents dans ma USF. Jusque là pas de problème. Cela s'affiche sans problème.
Cependant je galère depuis un moment pour récupérer le contenu des différentes valeurs des TEXTBOX des pages > à la 1ère. Mon code ne me reconnait que le 1er.
Voici mon code de copy/paste des onglets :

Set Onglet = UserForm.TableOnglet.Pages.Add("SR " & indiceI + 1, "SR " & indiceI + 1, indiceI)
UserForm.TableOnglet.Pages(0).Controls.Copy
UserForm.TableOnglet.Pages(indiceI).Paste
UserForm.TableOnglet.Pages(indiceI).Enabled = False
UserForm.TableOnglet.Pages(indiceI).Visible = True

Voici mon code de lecture de tous les contrôles :

For indiceI = 0 To UserForm.TableOnglet.Pages.Count - 1
indiceTab = 0
For Each Ctrl In UserForm.TableOnglet.Pages(indiceI).Controls
If TypeOf Ctrl Is MSForms.Label And Ctrl.Visible = True Then libelle = Ctrl.Object.Caption
If TypeOf Ctrl Is MSForms.TextBox And Ctrl.Name Like "NomBati*" Then Batiment = Ctrl.Object.Value
If TypeOf Ctrl Is MSForms.TextBox And Ctrl.Name Like "*" & indiceI And Ctrl.Visible = True And Ctrl.Object.Enabled = True Then
TabSR(indiceI, indiceTab) = Ctrl.Object.Value
indiceTab = indiceTab + 1
End If
Next Ctrl
Next indiceI

Dans cette partie de code, une fois affiché la 2ème page et 1er TEXTBOX, il s'arrête.
Sauriez-vous me dire où je fais erreur ?

Merci d'avance.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas