Discussion :

[lcoulon]

Bonjour,

J'ai crée un StripTab avec des onglets, je voudrai sélectionner / activer le tab qui aura pour intitulé le contenu d'une variable.

par exemple, si la variable "nom_onglet" contient "MUR", je voudrai que l'onglet 'MUR' soit sélectionné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim nom_onglet as String
Dim i as byte
 
 
For i = 0 To Me.TabStrip.Tabs.Count
 
    If Me.TabStrip.Tabs(i).Caption = nom_onglet Then
 
        Me.TabStrip.Value = i
 
    End If
 
Next i

Pour l'instant, j'ai l'erreur : 4argument ou appel de procédure incorrecte.
La ligne suivante est pointée pour cette erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me.TabStrip.Tabs(i).Caption = nom_onglet Then

Pouvez vous m'indiquer ce qui pose problème svp ?
Merci a vous,

[Belga16]

Voici une procédure similaire, et qui fonctionne (sur office365:

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
Private Sub UserForm_Click()    
    Dim nom_onglet As String
    Dim i As Long
 
    nom_onglet = "Mur"
 
    For i = 0 To Me.MultiPage1.Pages.Count - 1
       If Me.MultiPage1.Pages(i).Caption = nom_onglet Then
 
           Me.MultiPage1.Value = i
           Debug.Print Me.MultiPage1.Value
 
       End If
    Next i
End Sub

[lcoulon]

C'est curieux ça ne fonctionne toujours pas, je suis en Excel 2021.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Me.TabStrip.Tabs(i).Caption

Cette ligne renvoi bien le nom du 1er onglet et c'est lorsque le code teste si le nom de l'onglet correspond à la variable que ça plante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me.TabStrip.Pages(i).Caption = nom_onglet Then

Peut etre que la variable ne doit pas être déclarée comme String ?

[Belga16]

Essayez ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me.TabStrip.Pages(i).Caption = "'" & nom_onglet & "'" Then

'apostrophe entre guillemets

[lcoulon]

Désolé mais ça la condition "if" ne se réalise toujours pas.

On dirait qu'on ne peut pas comparer une string avec Tabs.Caption, pourtant lorsqu'on cherche à l'afficher via msgbox, la valeur attendue est bien présente

[Philippe Tulliez]

Bonjour,
Attention, il me semble que dans cette discussion, on mélange les contrôles TabStrip et MultiPage

Voici un exemple de code dans un UserForm qui contient les deux contrôles et qui modifie la propriété Caption du deuxième onglet pour TabStrip et la deuxième page du MutlitPage et qui les sélectionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
  With Me
   ' Contrôle d'onglet
   With .TabStrip1
   .Tabs(1).Caption = "Afrique"
   .Value = 1         ' Sélection
   End With
   ' Multipage
   With .MultiPage1
   .Pages(1).Caption = "Afrique"
   .Value = 1         ' Sélection
   End With
  End With
End Sub