[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

 

[MADAGASCAR]

Re : USERFORM avec TabStrip

Bonsoir maitre JOB75
Un seul mot " BRAVO "
Formidable démonstration et excellentes idees
Vraiment merci pour votre travail ..vos leçons et votre gentillesse
C'est bien résolu
Cordialement
MADA

 

[MADAGASCAR]

Re : [RESOLU] : USERFORM avec TabStrip

Bonsoir JOB75
Mes excuses maitre pour l'ouverture de ce sujet a nouveau .. en realité j'ai pas voulu vous deranger par mes betes questions.. j'ai essayé depuis 4 heures de resoudre le probleme mais .. malheureusement sans resultat .
Dans ce fichier du poste #12 et votre code du poste #13 ..j'ai essayé d'ajouter tout seul une autre plage dans " Feuil2 " ..j'ai modifié dans votre excellent code plusieurs choses mais j'ai pas reussi ..
SVP si vous pouver m'aider pour une derniere fois dans ce sujet
Merci d'avance pour l'aide
Cordialement
MADA

 

[job75]

Re : [RESOLU] : USERFORM avec TabStrip

Re,

MADA faut arrêter de tripoter ce malheureux TabStrip 🙄

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 = IIf(v = 0, Feuil1.[L15:O19], Feuil2.[D20:G24])
For Each e In t
  n = n + 1
  Me("TextBox" & n) = IIf(v < 2, e, "")
Next
End Sub

Bonne fin de soirée.

 

[MADAGASCAR]

Re : [RESOLU] : USERFORM avec TabStrip

Bonsoir maitre JOB75
" BRAVO "
Merci pour votre impeccable code..votre gentillesse
Oui vous avez raison ..faut arreter
Merci encore pour l'aide
Bonne fin de soiree
Cordialement
MADA