Discussion :

[Yvesremort]

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 :

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

[EricDgn]

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 :

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

[Yvesremort]

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