Problème initialisation tabstrip

Question

Bonjour à tous, 

J'explique mon problème:

        Je voudrai créer un formulaire dynamique avec un contrôle tabstrip avec un nombre d'onglets variable en fonction des informations contenues dans la table ou les informations sont récupérées. 
L'algorithme de la procédure qui me gène est le suivant: 
Initialisation Tabstrip:
1- On supprime tous les onglets (sauf 1) du contrôle Tabstrip.
2- On vérifie qu'il existe des données dans la cellule (j, i modulo 5):Si la cellule est non vide, alors, on ajoute un onglet au tabstrip sinon, on arrête la procédure. 

J'ai un souci au niveau de la suppression des onglets: "Erreur 380: Impossible de définir la propriété Value".
Help!

Voici le code... source du problème:

Merci d'avance, 
'PS: L'exécution marche de temps en temps.

Private Sub init_Tabstrip()
    Dim nbong As Integer
    nbong = 0
    Dim i As Integer
    Dim j As Integer
    For i = 0 To Onglets.Count - 3
        Onglets.Value = i
        Interventions.Onglets.Tabs.Remove (Onglets.SelectedItem.Index)
    Next i
    With ThisWorkbook.Worksheets("Données")
        For j = 3 To 248 Step 5
            If .Cells(lstCIChantier.ListIndex + 2, j) = "" Then
                GoTo finboucle
            End If
            nbong = nbong + 1
        Next j
finboucle:
    End With

    Dim n As Integer
  
    Interventions.Onglets.SelectedItem.Caption = "Intervention 1"
    
    For n = 2 To nbong - 1
        Interventions.Onglets.Add.Caption = "Intervention " & n
        

    Next n

End Sub

elkochta · Answer

J'ai trouvé!
Il suffisait de remplacer 
Onglets.value = i
par 
Onglets.value = 1

Ceci vient du fait que les index d'onglets sont dynamiques, et fonction du nombre d'onglets.

Problème initialisation tabstrip

1 réponse

Votre réponse

Discussions similaires