[RESOLU] : USERFORM avec TabStrip

[MADAGASCAR]

Bonsoir EXCEL DOWNLOADS
Bonsoir a tous et toutes
SVP si quelqu'un peut m'aider de remplir ces 3 TabStrip.
Au moment que j'ai connu ce nom " TabStrip " simplement hier soir .. j'ai dis que c'est facile de les remplir :
onglet1 avec le tableau dans " Feuil1 "
onglet2 avec le tableau dans " Feuil2 "
onglet3 avec le tableau dans " Feuil3 "
La mauvaise surprise c'est que j'ai trouvé que ces trois TabStrip ont tous les meme noms du TextBox..
je suis vraiment bloqué ..
Merci d'avance pour l'aide
Cordialement
MADA BLACK

 

[Tentative]

Re : USERFORM avec TabStrip

Bonjour,

Je crois que tu pourras aisément de débrouillé avec cet exemple : Boîte de dialogue avec le contrôle TabStrip


Tentative

 

[MADAGASCAR]

Re : USERFORM avec TabStrip

Bonsoir Tentative
Merci pour l'aide et pour votre adresse
Mais je suis debutant et j'ai pas pu l'adapter comme je veux avoir
regardez svp ..j'aime bien avoir dans chaque onglet les donnees d'une "Feuil" differente..comme l'image
Merci d'avance pour l'aide
MADA

 

[Tentative]

Re : USERFORM avec TabStrip

Bonjour,

Ce que j'ai compris de TabStrip, à comparer à du Multi-Pages, le TabStrip utilise un set de Textbox pour tous les onglets et c'est par programmation de détection de quel TAB (onglet) on choisit, que la prog change le contenu des Textbox : Sub TabStrip1_Change()

Le multi-pages possède un set de Texbox par page est le nombre peut varier d'une page à l'autre.

Quel méthode veux-tu utiliser ? Le même nombre de TextBox par onglet ou un nombre de TextBox différent par onglet


Tentative

 

[MADAGASCAR]

Re : USERFORM avec TabStrip

Bonjour Tentative
J'aime bien avec un nombre de TextBox different par onglet
Merci d'avance pour l'aide
Cordialement
MADA

 

[Tentative]

Re : USERFORM avec TabStrip

Bonjour,

Avant de partir sommeiller, voici un exemple avec TabStrip.

Une autre fois, on verra pour le multi-page ... quoiqu'en attendant ... Google est ton ami 🙄


Tentative

 

[MADAGASCAR]

Re : USERFORM avec TabStrip

Bonjour Tentative
Merci pour l'aide ..seulement une question mais pas pour repondre maintenant ..
Pourquoi les autres colonnes ne s'affichent pas dans les textbox
Merci d'avance
Bonne nuit
Alors ...Bonjour .. Bonne nuit
MADA

 

[job75]

Re : USERFORM avec TabStrip

Bonjour MADAGASCAR, Tentative, le forum,

Le code de l'UserForm [Edit] sur le fichier du post #1 :

Private Sub TabStrip1_Change()
UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
Dim v, t, e, n As Byte
v = TabStrip1.Value
t = IIf(v = 0, Feuil1.[E7:H11], IIf(v = 1, Feuil2.[J7:M11], Feuil3.[L19:O23]))
For Each e In t
  n = n + 1
  Me("TextBox" & n) = e
Next
End Sub

Bonne journée.

 

[job75]

Re : USERFORM avec TabStrip

Re,

Une chose à bien retenir :

- avec un tableau VBA la boucle For Each e In t traite d'abord les colonnes puis les lignes

- avec des Range la boucle For Each c In plage traite d'abord les lignes puis les colonnes.

A+

 

[job75]

Re : USERFORM avec TabStrip

Re,

Avec plus de 3 pages il vaut mieux utiliser un Array :

Private Sub TabStrip1_Change()
UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
Dim a, t, e, n As Byte
a = Array(Feuil1.[E7:H11], Feuil2.[J7:M11], Feuil3.[L19:O23])
t = a(TabStrip1.Value)
For Each e In t
  n = n + 1
  Me("TextBox" & n) = e
Next
End Sub

A+

 

[Tentative]

Re : USERFORM avec TabStrip

Bonjour Tentative
Merci pour l'aide ..seulement une question mais pas pour repondre maintenant ..
Pourquoi les autres colonnes ne s'affichent pas dans les textbox
Merci d'avance
Bonne nuit
Alors ...Bonjour .. Bonne nuit
MADA

Bonjour,

C'est un exemple comment faire ... pour que tu complètes les autres colonnes toi-même.


Tentative

 

[MADAGASCAR]

Re : USERFORM avec TabStrip

Bonjour JOB75,Tentative,Forum
Merci beaucoup maitre JOB75 pour tes formidables leçons VBA ..aussi pour tes ecellents codes.
SVP si vous pouvez m'aider de continuer ce fichier ..en realité il ne reste pour comprendre comment manipuler ce fichier qu'un probleme que j'ai pas reussi a le faire.
J'ai ajout& une plage dans "Feuil1" et j'ai ajouté des textbox au TAB1 aussi j'ai ajouté dans le code d'userform..mais ça ne marche pas avec moi....j'aimerai voir les donnees du tableaau L15:O19 uniquement dans TAB1 ..
Merci 1000 fois d'avance pour l'aide
Cordialement
MADA

 

[job75]

Re : USERFORM avec TabStrip

Re,

USF du fichier du post #12 :

Private Sub TabStrip1_Change()
UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
Dim v, t, e, n As Byte
v = TabStrip1.Value
t = IIf(v = 0, Feuil1.[E7:H11], IIf(v = 1, Feuil2.[J7:M11], Feuil3.[L19:O23]))
For Each e In t
  n = n + 1
  Me("TextBox" & n) = e
Next
t = Feuil1.[L15:O19]
For Each e In t
  n = n + 1
  Me("TextBox" & n) = IIf(v = 0, e, "")
Next
End Sub

A+

 

[job75]

Re : USERFORM avec TabStrip

Re,

On peut même afficher/masquer les TextBoxes 21 à 40 :

Private Sub TabStrip1_Change()
UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
Dim v, t, e, n As Byte
v = TabStrip1.Value
t = IIf(v = 0, Feuil1.[E7:H11], IIf(v = 1, Feuil2.[J7:M11], Feuil3.[L19:O23]))
For Each e In t
  n = n + 1
  Me("TextBox" & n) = e
Next
t = Feuil1.[L15:O19]
For Each e In t
  n = n + 1
  Me("TextBox" & n).Visible = v = 0
  Me("TextBox" & n) = IIf(v = 0, e, "") 'ou = e
Next
End Sub

A+

 

[job75]

Re : USERFORM avec TabStrip

Re,

Une variante avec le fichier joint :

- toutes les TextBoxes sont en dehors du TabStrip

- la hauteur de l'USF varie.

A+