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.
 

Discussions similaires

Statistiques des forums

Discussions
312 166
Messages
2 085 894
Membres
103 021
dernier inscrit
Sergyl75