Cacher onglet multipage avec condition

Version imprimable

21/03/2018, 04h23
_flori_

Cacher onglet multipage avec condition

Bonjour à tous,

J'aimerais caché onglet d'une mutipage
Pour cela j'ai trouvé, j'utilise le code:

Code:

Me.MultiPage1.Pages(1).Visible = False

Mon soucis et que j'ai 10 onglet avec 20 boutons de commande
tous mes onglets sont déjà préparer à l'avance donc j'ai à chaque onglet 20 bouton de commande

Mes boutons ce nommera au fur et à mesure

J'aimerais que tous les onglets ou aucun bouton soit nommé soit caché

Exemple:
si j'ai que 15 bouttons nommé, le résultat soit page1 visible et les 9 autres caché
si j'ai que 35 bouttons nommé, le résultat soir page1 et page2 visible et les 8 autres caché
et ainsi de suite

En vous remerciant de vos réponse et de votre temps

bonjour,
si c'est le nombre de bouton nommé qui détermine les pages visibles
1 page =20 bouton
Code:

1 2 3 4 5 6 Public Sub Action(Bouton As Integer) BtnPage = 20 Page = Application.WorksheetFunction.RoundUp((Bouton / BtnPage), 0) MsgBox "nombre de page = " & Page End Sub
avec comme appel Call Action(35)

@+JP

Bonjour,

Merci de vous pencher à mon soucis

Vais essayer de m'expliquer un peu mieux via un exemple

J'ai une multipage
dans celle-ci il y a 5 onglet
dans chaque onglet ce trouve 10 commandboutton

je récupère via un code (voir ci-dessous) dans mon userform les données de cellule de Feuil1 pour mettre dans commandboutton
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub UserForm_Initialize() Dim i As Long, NbLeg As Long Dim ob As Object NbLeg = Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row For i = 1 To NbLeg For Each ob In UserForm1.Controls If ob.Name = "CommandButton" & i Then ob.Caption = Sheets("feuil1").Cells(i, 1) End If Next ob Next i End Sub
Exemple:
Feuil1 A1 = Coca donc grâce au code mon commandbutton1, sa caption s’intitule Coca
Feuil1 A2 = Fanta donc grâce au code mon commandbutton1, sa caption s’intitula Fanta
est ainsi de suite

Tous mes onglet et boutton sont déjà créé
J'encode au fur et à mesure dans ma feuil1
Donc mes commandbutton s'encode aussi au fur et à mesure

Exemple 1:
J'aimerais que si dans ma Feuil1 j'ai 8 articles donc 8 commandbutton seront encodé
donc mon premier onglet de 10 boutons ne sera pas tous encodé.
donc j'aimerais que les 4 autres onglet soit masqué

Exemple 2:
J'aimerais que si dans ma Feuil1 j'ai 18 articles donc 18 commandbutton seront encodé
donc mon premier onglet de 10 boutons sera encodé ainsi que 8 boutons de mon deuxième onglet également.
donc j'aimerais que les 3 autres onglet soit masqué

et ainsi de suite

J'espère mettre expliqué plus correctement

En vous remerciant

21/03/2018, 16h50
mjpmjp

bonjour,
c'est très clair ;)

voyons l'exemple de 18 articles

en premier , il faut savoir de combien de page/onglet on a besoin , quitte à masquer des contrôles ,
avec Page = Application.WorksheetFunction.RoundUp((TotalArticle / BoutonParPage), 0) on connait ce nombre !! :D

à partir de là , on cache les autres page/onglet...
en suite , dans les 2 page/onglet qui restent , on cache tous les contrôles

il ne reste plus qu'a Titrer les 10 contrôles , changer de page/onglet et Titrer les 8 contrôles ... en les rendant visibles au fur et à mesure ...

@+JP
21/03/2018, 16h58
_flori_

Bonjour,

Désolé si c'est très clair pour vous, moi ça chauffe dans mon cerveau 😂
Suis assez novice en vba, j'apprens au fur et à mesure.
Mais la ça deviens du chinoix.
Je vous remercie de tous ce que vous m'informer.
Je vais devoir faire quelques test et même voir monsieur Google pour comprendre ce qui ai clair pour vous.
Je vais m'y mettre en espérant trouver tous ça.
Je vous remercie

4 pièce(s) jointe(s)

bonjour,

voila le form en mode création

Pièce jointe 363115

le code pour masquer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub UserForm_Initialize()
    Dim i As Long
    Dim NbLeg As Long
    Dim ob As Object
    '----- masque 4 pages
    For n = 1 To 4
    Me.MultiPage1.Pages(n).Visible = False
    Next n
    '----- masque 10 bouton page 0 : 1 à 10
    For n = 1 To 10
    UserForm1.Controls("CommandButton" & n).Visible = False
    Next n
End Sub

Résultat

Pièce jointe 363116

la solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub UserForm_Initialize()
    Dim i As Long
    Dim NbLeg As Long
    Dim ob As Object
    '----- masque 4 pages
    For n = 1 To 4
        '----- masque 10 bouton page 0 : 1 à 10
        For n2 = 1 To 10
            UserForm1.Controls("CommandButton" & (n2 + (10 * n))).Visible = False
        Next n2
        Me.MultiPage1.Pages(n).Visible = False
    Next n
    '-----
    NbLeg = Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row
    BoutonParPage = 10
    TotalArticle = NbLeg
    NombreDePage = Application.WorksheetFunction.RoundUp((TotalArticle / BoutonParPage), 0)
    '-----
    For PageNum = 1 To NombreDePage
        Me.MultiPage1.Pages(PageNum - 1).Visible = True
        For BtnNum = 1 To 10
            LigneNum = LigneNum + 1
            UserForm1.Controls("CommandButton" & (BtnNum + (10 * (PageNum - 1)))).Visible = True
            UserForm1.Controls("CommandButton" & (BtnNum + (10 * (PageNum - 1)))).Caption = Sheets("feuil1").Cells(LigneNum, 1).Value
            If LigneNum = TotalArticle Then Exit Sub
        Next BtnNum
    Next PageNum
End Sub

Résultat Page 1

Pièce jointe 363127

Résultat Page 2

Pièce jointe 363129

@+JP

Bonjour mjpmjp,

Bonjour,

Je vous remercie énormément du travail et du temps que vous me consacrer.

Concernant votre premier code pour masquer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
    Dim i As Long
    Dim NbLeg As Long
    Dim ob As Object
    '----- masque 4 pages
    For n = 1 To 4
    Me.MultiPage1.Pages(n).Visible = False
    Next n
    '----- masque 10 bouton page 0 : 1 à 10
    For n = 1 To 10
    UserForm1.Controls("CommandButton" & n).Visible = False
    Next n
End Sub

Je l'ai décortiqué est je l'ai compris à merveille

Concernant votre deuxième code pour la solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub UserForm_Initialize()
    Dim i As Long
    Dim NbLeg As Long
    Dim ob As Object
    '----- masque 4 pages
    For n = 1 To 4
        '----- masque 10 bouton page 0 : 1 à 10
        For n2 = 1 To 10
            UserForm1.Controls("CommandButton" & (n2 + (10 * n))).Visible = False
        Next n2
        Me.MultiPage1.Pages(n).Visible = False
    Next n
    '-----
    NbLeg = Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row
    BoutonParPage = 10
    TotalArticle = NbLeg
    NombreDePage = Application.WorksheetFunction.RoundUp((TotalArticle / BoutonParPage), 0)
    '-----
    For PageNum = 1 To NombreDePage
        Me.MultiPage1.Pages(PageNum - 1).Visible = True
        For BtnNum = 1 To 10
            LigneNum = LigneNum + 1
            UserForm1.Controls("CommandButton" & (BtnNum + (10 * (PageNum - 1)))).Visible = True
            UserForm1.Controls("CommandButton" & (BtnNum + (10 * (PageNum - 1)))).Caption = Sheets("feuil1").Cells(LigneNum, 1).Value
            If LigneNum = TotalArticle Then Exit Sub
        Next BtnNum
    Next PageNum
End Sub

J’ai supprimé le premier code masqué et je les changé par le deuxième

J’ai voulu l’essayer pour le décortiquer et le comprendre, mais malheureusement ça me marque :
Erreur d’exécution ‘-2147024809 (80070057)’ :
Objet spécifié introuvable.

Suis vraiment désolé, pourriez-vous me dire mon erreur

J’ai pas envie de juste copier-coller les réponses qu’on me donne, j’ai envie de les décortiquer et de les comprendres et qui sais aider peut-être quelqu’un d’autre.

En vous remerciant,

ps: je joint une copie avec votre deuxième code
https://www.cjoint.com/c/HCwcoRstlYK

22/03/2018, 07h36
mjpmjp

bonjour,
je n'ai pas été "complet" dans la description de la solution :(

en fait il y a une chose qui est importante , c'est le nom des boutons !! ;)

voila comme j'ai procédé
j'ai commencé par mettre un cadre/frame dans la page 0 (qui est la page 1) ,
pourquoi une frame ?
dans cette frame j'ai créé un bouton "activeX" quand j'étais satisfait des proportions ,
je l'ai dupliqué verticalement (5 boutons) , puis ces 5 boutons je les ai dupliqués horizontalement ,
j'ai contrôlé les noms de 1 à 5 et de 6 à 10

j'ai ajusté la frame et la page et le form au tour de ces boutons...

j'ai copié la frame et je l'ai collée dans les autres pages avec le même left() et top()...voila pourquoi une frame

j'ai vérifié les noms des boutons dans la page 1 (qui est la page 2) de 11 à 20 dans le même ordre que la page 0

tout ceci pour dire :
est ce que tes 50 boutons existent avec les noms conformes
est ce que les 5 pages existent également...

@+JP
22/03/2018, 07h45
mjpmjp

1 pièce(s) jointe(s)

Bonjour,

voila le fichier (avec macros) : Pièce jointe 363217

attention dans thisWorkbook il y a une macro qui enregistre (à la fermeture) le fichier automatiquement dans le répertoire XL Save

1 pièce(s) jointe(s)

bonjour
pas tres compliqué ton truc
la chose est tres simple
en gros les boutons correspondent au cellules et si moins de cellule les boutons invisibles et si aucun boutons visibles dans une page alors celle ci est invisible
je te propose une chose tres simple

puisque tes bouton sont deja en place met les tous en invisible au depart tu met aussi les pages en invisible au depart
dans le activate ou initialyse tu met simplement ceci j'ai pris la colonne A pour reference a adapter a ton cas
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub UserForm_Activate() For Each ctrl In Me.Controls If TypeName(ctrl) = "CommandButton" And Left(ctrl.Parent.Name, 4) = "Page" Then i = i + 1 If Cells(i, 1) = "" Then Exit For ctrl.Caption = Cells(i, 1) ctrl.Visible = True ctrl.Parent.Visible = True End If Next End Sub
je fait meme la distinction entre un commandbutton dans le multipage et les autres qui ne ne serait pas concernés dans le userform
null besoins de connaitre le nom du bouton ou de son parent
il suffit qu'il est eté placé dans l'ordre dans vbe (les 10 premier dans la page(0)qui a la caption "page1 les 10 suivants dans la page2 etc..etc...
il n'ont meme pas besoins de caption au depart
Pièce jointe 363225
rien de plus simple ;)

23/03/2018, 03h59
_flori_

Bonjour mjp et patrick,

je sais pas quoi vous dire,

Un très GRAND MERCI

C'est ce que je chercher

Merci encore
23/03/2018, 04h33
_flori_

Re mjp et Patrick,

Pourrais-je abuser de votre gentillesse

J'espère m'expliquer correctement à ma question.

Grace à vous, ce que je fais et le suivant
J'ai 2 Familes (Bières et Limonades) donc j'ai 2 multipages chacun avec autant d'onglet dedans (c'étais mon soucis d'avant, pour cela plus de soucis) dans un userform différent

Exemple:
Userform1 avec ma multipage Bières
Userform2 avec ma mutipage Limonades

Ma question est la suivante
Est-ce possible de copie un bouton que je choisi dans n'importe quelle multipage pour le mettre dans un autre userform

Je m'explique:
Je crée un 3ème userform ou la seront juste repris le bouton article que j'utilise le plus souvent (exemple coca pour limonade et jupiler pour bière)

j'aimerais par exemple selectionner coca et avec un code le placer dans mon userform3, selectionner jupiler et le placer dans mon userform 3

Mon userform3 serait un regroupement des produits les plus utiliser de tous mes articles de mes familles créé

J'espère m'avoir expliqué correctement

En vous remerciant
23/03/2018, 09h17
patricktoulon

re

re
copier non mais mettre un bouton identique oui

il te faudra proceder autrement
avec un array de nom de boission que tu utilise souvent
je soupsonne aussi que tu devra créer un module classe controls pour gerer l'action de tout ses boutons sinon tu va pas t'en sortir

ne serai
st tu pas en train de faire une caisse enregistreuse toi ?;)

il me faudrait un exemple de fichier pour aller plus loin

j'ai deja fait ce genre de chose pour un pot qui gere un snack avec gestion de stock dynamique liste de commande fournisseur dynamique au seuil ,CA,TVA,Charge RSI etc.....

Bonjour Patrick,

Merci de ton attention et oui je suis bien entrain d'essayer de me faire une caisse enregistreuse.

Je vais mettre un fichier pour que vous compreniez beaucoup mieux.

Pour le moment toute mes idées/recherches sont dans plusieurs fichiers.

Je vais regrouper tous afin de vous les envoyer.

Cependant pourrais-je vous demander une petite question avant, cela ma permettra de regrouper tous ce que je dois regrouper en un seul fichier.

Suivant votre réponse qui marche comme je chercher, voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub UserForm_Activate() For Each ctrl In Me.Controls If TypeName(ctrl) = "CommandButton" And Left(ctrl.Parent.Name, 4) = "Page" Then i = i + 1 If Cells(i, 1) = "" Then Exit For ctrl.Caption = Cells(i, 1) ctrl.Visible = True ctrl.Parent.Visible = True End If Next End Sub
Elle marche parfaitement si j'ai qu'une multipage
Si j'ai deux multipage dans le même userform, pourriez-vous m'expliquer comment faire

J'ai essayé ceci mais non
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub MultipPage2_Activate() For Each ctrl In Me.Controls If TypeName(ctrl) = "CommandButton" And Left(ctrl.Parent.Name, 4) = "Page" Then i = i + 1 If Cells(i, 1) = "" Then Exit For ctrl.Caption = Cells(i, 1) ctrl.Visible = True ctrl.Parent.Visible = True End If Next End Sub
En vous remerciant

26/03/2018, 20h33
_flori_

Bonjour Patrick,

Je te remercie encore pour ton aide.

Je te communique un exemple ci-joint

Néanmoins pas trouvé comment mettre deux multipages avec ton code, j'ai créer avec un autre userform.

Je réexplique mon soucis:

J'ai mon userform avec ma multipage vide
Dans celui-ci il y a un bouton qui s'appelle configuration
En appayant dessus un userform avec ma multipage bière arrive
Au dessus apparaisse les boutons de ma famille (bière et limonade)

J'aimerais par exemple
Si je choisi Jupiler le copier avec son code vba dans mon bouton vide de mon premier userform
Si je choisi coca le copier avec son code vba dans mon bouton vide de mon premier userform

Je te remercie encore de ton aide

https://www.cjoint.com/c/HCAsFCF1twy