Copie de Tabstrip

Version imprimable

1 pièce(s) jointe(s)

Copie de Tabstrip

Bonjour,

j'ai deux Tabstrip : TabStrip Incident, et un Tabstrip Action qui est imbriqué dans TabsTrip Incident. Il est possible d'avoir plusieurs actions dans un incident, en gros plusieurs TabStripAction pour un TabStrip Incident.
Lors du clic sur un bouton pour ajouter un Incident, cela copie le Tabstrip Incident mais également le TabStripAction avec le nombre d'onglets créés.

Je souhaiterai que lors du clic pour ajout un TabStripIncident cela fasse une copie mais avec un seul onglet dans le TabStripAction.

J'espère avoir été assez clair, je vous partage mon code et une capture d'écran pour éclaircir tout cela.
Auriez vous une solution pour creer un tabstripAction avec un seul onglet ? Est lié à un problème de contexte ? J'ai tenté de supprimé les onglets avec une boucle mais cela supprime même dans les premiers onglets Incidents.

Merci d'avance.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 Private Sub CommandButtonAjoutIncident_Click() ' Étape 1 : Ajouter un nouvel onglet à TabStrip2 Dim nouvelOnglet As MSForms.Tab Dim nouvelIndex As Integer Dim nouvelIndex3 As Integer Dim newTabStrip As MSForms.tabStrip With Me.TabStrip2 ' Calculer l'index du nouvel onglet nouvelIndex = .Tabs.Count ' Ajouter un nouvel onglet Set nouvelOnglet = .Tabs.Add nouvelOnglet.Caption = "Incident " & (nouvelIndex + 1) ' Sélectionner automatiquement le nouvel onglet .Value = nouvelIndex End With With Me.TabStrip3 nouvelIndex3 = .Tabs.Count End With ' Supprimer tous les onglets sauf le premier dans le nouveau TabStrip3 With TabStrip3 ' Si TabStrip3 a plus d'un onglet, supprimer tous les onglets sauf le premier If .Tabs.Count > 1 Then For i = .Tabs.Count - 1 To 1 Step -1 .Tabs.Remove i Next i End If End With End Sub
Pièce jointe 663830

1 pièce(s) jointe(s)

Bonjour,

Juste pour vous donner quelques idées un petit exemple où les contrôles onglets sont ajoutés et/ou masqués. A adapter pour prendre en compte le nombre d'actions par incident.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Explicit
 
Private Sub ButtonAjoutIncident_Click()
    Dim n As Long, i As Long
    With Me.TabStrip1
        n = .Count - 1
        '--- affiche premier des onglets masqués
        For i = 0 To n
            If .Tabs(i).Visible = False Then
                .Tabs(i).Visible = True
                .Value = i
                TabStrip1_Click i
                Exit For
            End If
        Next i
        '--- si nécessaire, ajoute un oonglet
        If i > n Then
            .Tabs.Add "Tabstrip1", "Incident " & i + 1
            .Value = i
        End If
    End With
End Sub
 
Private Sub ButtonSupprimeIncident_Click()
    '--- masque le dernier onglet visible (aucune suppression d'onglet)
    Dim i As Long
    For i = Me.TabStrip1.Count To 1 Step -1
        If Me.TabStrip1.Tabs(i - 1).Visible Then
            Me.TabStrip1.Value = i - 2
            TabStrip1_Click i - 2
            Me.TabStrip1.Tabs(i - 1).Visible = False
            Exit For
        End If
    Next i
End Sub
 
Private Sub TabStrip1_Click(ByVal Index As Long)
    Debug.Print "TabStrip1.Index: " & Index
    If Index = 0 Then
        Me.TabStrip2.Tabs(1).Visible = True
    ElseIf Index = 1 Then
        Me.TabStrip2.Tabs(1).Visible = False
    End If
End Sub
 
Private Sub TabStrip2_Click(ByVal Index As Long)
    Debug.Print "TabStrip2.Index: " & Index
End Sub
 
Private Sub UserForm_Initialize()
    TabStrip1.Tabs(0).Caption = "Incident 1"
    TabStrip1.Tabs(1).Caption = "Incident 2"
    TabStrip2.Tabs(0).Caption = "Action 1"
    TabStrip2.Tabs(1).Caption = "Action 2"
End Sub

Bonne continuation.

30/01/2025, 09h19
Yvesremort

Merci pour l'idée et merci d'avoir pris le temps de répondre.
Je vais analyser votre approche :)