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.
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.