35 bouton sur multipage- cacher bouton vide

Bonjour

Dans un Userform avec un multipage (6 pages)

J’ai des boutons dont le nom et alimenter par la commande :

private Sub UserForm_Initialize()
Me.MultiPage1.Value = 0 'page1
CommandButton1.Caption = Sheets("REGLAGES").Range("c8") & "-" & Sheets("REGLAGES").Range("b1")

Au total 6 boutons par pages soit un total pour les 7 pages = 35 boutons

Tous les boutons ont un Tag « bt »

Je veux cacher les boutons dont la caption sont inferieur a 3 lettre

J’arrive à le faire pour un bouton avec la commande : (exemple pour le bouton 6)

If CommandButton6 < 3 Then
CommandButton6.Visible = False
End If

Peut-on faire la même commande pour tous les boutons du multipage sans de voir le faire bouton par bouton

Merci

35classeur1.xlsm (21.16 Ko)
Rechercher des sujets similaires à "bouton multipage cacher vide"