Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Cocher automatiquement des checkbox avec des conditions

TCHIS

XLDnaute Occasionnel
Bonsoir à tous
SVP j'ai deux points sur lesquels j'ai besoin de regardS extérieur
Le premier est que :

Dans mon fichier Excel que j'ai insérer j'ai sur mon formulaire des Checkbox que j'ai paramétrer suivant des conditions par exemple certaines checkbox (Site, Métier) se cochent automatiquement si parmi les fonctions (comme Concepteur Coordinateur ;...ont été sélectionné) ça j'ai pu le faire

Et dans la même approche j'ai voulu conditionner le remplissage des Checkbox (Site et métier ) en fonction de certains checkbox du groupe fonction pour cela j'ai utilisé des conditions if Else mais sans succès

Par exemple si la fonction est Superviseur quand on sélection une des case à cocher du groupe site le souhait est que les autres deviennent incochables (C'est-à-dire sur mes 5 checkbox en lien avec le groupe site si je coche sur Alima les 4autres deviennent insélectionnable et inversement)
Vous pouvez voir cela dans l'évènement click de la case à cocher SIM(Fct8) où j'ai mis ce qui suit

VB:
 If Me.Btn_SaveUser.Value = True Then
                              For i = 1 To 5
                                    If Me.Controls("Site" & i) = True Then
                                        Coché3 = True
                                    End If
                                Next i
                                If Coché3 = False Then
                                     MsgBox "Veuillez définir le site auquel est affilié l'utilisateur "
                                     Exit Sub
                                End If
                 End If[/CODE
mon souci est que rien ne se passe aucun débogage rien du tout ([B]NB[/B]: Je l'ai mis en commentaire volentairement ) alorsje me demande si c'est parce que dans une condition [B]If-End if[/B] j'ai mis d'autres boucles [B]If-End if[/B]

Le second point est plus un renseignement[B] je me demande si il est possible d'unifier plusieurs formulaires VBA en un seul et même formulaire question d'avoir une interface commune qui gère tout ?

Vraiment il n'y a que ça qui me bloque jusqu'ici pour avancer sereinement 🙏 🙏 🙏[/B]
 

Pièces jointes

  • BD_User.xlsm
    60.1 KB · Affichages: 11

TCHIS

XLDnaute Occasionnel
ça marche effectivement mais la deuxième partie par contre c'est mort je veux dire par là qui
ça marche effectivement mais la deuxième partie par contre c'est mort je veux dire par là que quitter de la page1 (ACCUEIL) du multipage1 pour aller directement sur la page 2 tout en affichant directement une des pages du multipage2 se trouvant sur cette page2
je suis perdu
 

ChTi160

XLDnaute Barbatruc
Re
Tu dis :
D'où la question de mon dernier post #15
Y'a sûrement possibilité mais bon!
Jean marie
 

ChTi160

XLDnaute Barbatruc
Re
Ce qui serait intéressant c'est d'avoir la ,les marches à suivrent sans pour autant faire référence aux multipages
Ex je veux sélectionner une feuille intitulé xxxx pour accéder à ceux ci qui me permet d'aller à .....etc pour faire ça etc

Jean marie
 

Valtrase

XLDnaute Occasionnel
Salut,
Est ce que c'est bien cela la logique qui s'applique s'il te plait ?
Yes,
J'ai pas trop saisie la suite et je ne vois pas l'utilité de se servir de pages pour ouvrir d'autres pages.
ChTi160 à raison pourquoi faire simple quand on peu faire compliqué n'est-ce pas ?
Bon admettons.
Je suis sur la page 1 (Index 0) du Multipage1, j'ai un bouton qui doit ouvrir la page deux (index 1) du Multipage2 qui est sur la page deux du Multipage1 (index 1), tu fais simplement
VB:
Private Sub CommandButton1_Click()
    MultiPage1.Value = 1 ' // Là on bascule sur la page deux du multipage1
    MultiPage2.Value = 1 ' // Là on bascule sur la page deux du multipage2
End Sub
Peux-tu envoyer une copie d'écran de ce que tu as pour voir ?
 

TCHIS

XLDnaute Occasionnel
VB:
Private Sub CommandButton1_Click()
    MultiPage1.Value = 1 ' // Là on bascule sur la page deux du multipage1
    MultiPage2.Value = 1 ' // Là on bascule sur la page deux du multipage2
End Sub
Très bien vu c'est bien ça la solution je vous remercie à tous je vais encore pousser et tout
Certes il était question de case à cocher mais je valide votre implication merci

j'ai un autre sujet toujours du même projet sur le suis coincé et j'ai même créer une discussion dans le forum mais aucune réaction si vous pouviez aller y jeter un coup d'œil merci d'avance la discussion est

Ouverture de fichier

 

TCHIS

XLDnaute Occasionnel
Bonjour à tous
besoin d'aide encore une dans l'affichage des pages je suis confrontés à un souci que voici

Quand je quitte de la page1 du mutipage1(Accueil) pour ouvrir l'une des pages se trouvant dans le multipage2 notamment celle qui ont déjà des controles(ListView, Frame, Combobox) il y a un souci de présentation
Exemple:
quand j'ouvre les page 2 & 3 du multipage2 depuis l'accueil voici comme elles se présentent



Au lieu de se présenter comme ceci


saurez-vous comment régler cela svp
 

cp4

XLDnaute Barbatruc
Bonjour,
@TCHIS : ça vire à de la prestation de service. Des développeurs pro, ça existe et il faut bien qu'ils gagnent eux aussi leur vie.
Bonne continuation.
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonjour le Fil
Il y a souvent un soucis de déplacement des ListView ,moi je les dispose dans un frame de même taille que la ListView insérée.
Ainsi plus de problème
Pas de fichier pas de test ....
A voir
Jean marie
 

Discussions similaires

Réponses
13
Affichages
477
Réponses
8
Affichages
539
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…