Selectionner un tab dans un StripTab en fonction d'une variable

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:

---

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:

---

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

---

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

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

Code:

---

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

---

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

Code:

---

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:

---

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

---

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

Essayez ceci :

Code:

---

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

---

'apostrophe entre guillemets

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

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:

---

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

---

Pièce jointe 626257

Merci,

Je cherche à tester les Tabs, mais la condition if ne se réalise pas, pouvez vous me dire pourquoi ?
Dans msgbox, la valeur attendue est bien présente cependant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

' Selectionne l'onglet dans le TabStrip en fonction du titre de la fiche chargée   Dim j as Byte Dim var as String   For j = 0 To Me.TabStrip.Tabs.Count - 1   val = "'" & titre_onglet & "'"   If Me.TabStrip.Tabs(j).Caption = val Then   MsgBox Me.TabStrip.Tabs(j).Caption   Me.TabStrip.Value = j   Debug.Print Me.TabStrip.Value   End If   Next j

---

En effet, Philippe a raison; voir son exemple !

Bonjour,
Voici un exemple d'une procédure qui renvoie la position du nom de l'onglet cherché (sa propriété Caption)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function TabPosition(Ctrl As msforms.TabStrip, TabName As String) As Integer ' Renvoie la position de l'onglet cherché ' Arguments ' Ctrl Objet TabStrip ' TabName Nom de l'onglet (propriété Caption de Tabs) Dim e As Integer Dim Flag As Boolean With Ctrl While (Not Flag) And .Tabs.Count > e Flag = (StrComp(TabName, .Tabs(e).Caption, vbTextCompare) = 0) If Flag Then TabPosition = e e = e + 1 Wend End With End Function

---

Exemple d'une procédure qui l'invoque et qui sélectionne l'onglet

Code:

---

1 2 3

Private Sub cmdGo_Click() Me.TabStrip1.Value = TabPosition(Me.TabStrip1, "client") End Sub

---

Merci beaucoup Philippe, ce code fonctionne parfaitement.

je n'aurai pas été capable de l'écrire moi même.

Bonjour,
Après relecture de votre demande, je crois que votre problème vient du début de la boucle For i = 0 To Me.TabStrip.Tabs.Count -1 où il y a lieu d'ajouter -1 ce qui explique l'erreur à la ligne If Me.TabStrip.Tabs(i).Caption = nom_onglet Then

Explication
Si vous avez 3 onglets, la propriété Count renvoie 3 mais comme la numérotation des collections commence à 0, c'est Tabs(0), Tabs(1) et Tabs(2) et comme la boucle commence de 0 à Me.TabStrip.Tabs.Count (qui vaut 3), il y a une erreur lorsque la variable i vaut 3

Merci pour cette précision,

sur le même principe, si on veut une fonction pour effacer tout les tabs on pourrait partir sur une solution comme celle-ci ?

ce code ne fonctionne pas non plus ...

Code:

---

1 2 3 4

For n = 0 To Me.TabStrip.Tabs.Count - 1 TabStrip.Tabs.Remove (n) Next n

---

Bonjour,
Comme pour la suppression des lignes et colonnes d'une feuille excel, il faut partir de la valeur maximale et Il faut conserver un onglet

Code:

---

1 2 3 4 5 6 7 8

Sub ExempleRemove() Dim i As Integer With Me.TabStrip1.Tabs For i = .Count - 1 To 1 Step -1 .Remove i Next End With End Sub

---