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

boutons option

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion patrick141078
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

patrick141078

Guest
Bonjour

toujours les mains dans le VBA et toujours aussi novice
j'ai ajouté des boutons options dans mon userform (bonton permission de voirie sur feuille saisie)
Après avoir tourné le problème dans tous les sens j'ai toujours la même réponse "non coché"
alors un petit coup de main ne ferait aps de mal merci
ci joint le fichier
 

Pièces jointes

Trier par date Trier par votes
Re : boutons option

Bonjour patrick141078,

Dis donc, il me semble qu'on t'avait déjà dit ne désactiver tes macros auto_open qui mettent le bazar dans nos menus !

Pour ta question, il te faut remplacer ceci :
VB: 
 If optionele Then 'Si coché ...
         Range("E2") = "electricite"
     Else: Range("E2") = "non coché"
     
     End If
      
    
 If optioneau Then 'Si coché ...
        Range("E2") = "eau"
     Else: Range("E2") = "non coché"
     
     End If
 If optiontel Then 'Si coché ...
        Range("E2") = "telecom"
     Else: Range("E2") = "non coché"
     
     End If
 If optionmul Then 'Si coché ...
        Range("E2") = "reseau multiple"
     Else: Range("E2") = "non coché"
     
     End If
 If optionpar Then 'Si coché ...
        Range("E2") = "particulier"
     Else: Range("E2") = "non coché"
     
     End If

par cela :
VB: 
    If optionele Then 'Si coché ...
        Range("E2") = "electricite"
    ElseIf optioneau Then 'Si coché ...
        Range("E2") = "eau"
    ElseIf optiontel Then 'Si coché ...
        Range("E2") = "telecom"
    ElseIf optionmul Then 'Si coché ...
        Range("E2") = "reseau multiple"
    ElseIf optionpar Then 'Si coché ...
        Range("E2") = "particulier"
    Else
        Range("E2") = "non coché"
    End If

car tu testais les boutons 1 par 1 et tu mettais non coché si au moins 1 bouton ne l'était pas, si qui était le cas sauf si tu cochais le dernier.

A+
 
Vote positif 0 Vote négatif
Re : boutons option

Merci pour ton aide mais peux tu m'expliquer de quoi tu parles quand tu me dis "désactiver tes macros auto_open qui mettent le bazar dans nos menus !"
J'aurai vraisemblement besoiin de revenir vers vous et bien sur être dans les clous alors merci de m'indiquer ce qu'il faut faire pour désactiver les macros open
cordialement
 
Vote positif 0 Vote négatif
Re : boutons option

Re-bonjour,

Ma solution fonctionne-t-elle ? J'aimerais bien le savoir...

Je faisais référence à Ce fil mais aussi à celui-ci.

En fait je ne sais pas comment désactiver l'installation de tes barres d'outils personnalisées. Pour cela, tu es prié de contacter la personne qui est à l'origine de ce fichier.

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
  • Résolu(e)
XL 2021 Aide VBA pour appli Gestion de stock
Réponses
2
Affichages
859
LuckyShuri
L
M
  • Question Question
XL 2021 Générateur Tournoi Ecole de Rugby
Réponses
5
Affichages
870
Magis
M
  • Résolu(e)
XL 2016 Bug liste déroulante dans UserForm
2
Réponses
20
Affichages
1 K
yannick64
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
1 K
ali591
A
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
L
  • Question Question
XL 2016 Ajout (et tri dans la liste) d'un fournisseur à une table par UserForm
Réponses
3
Affichages
599
Lorenzini
L
N
  • Question Question
Microsoft 365 Navigation avec boutons d'une Listbox dans un Userform
Réponses
1
Affichages
829
Oneida
L
  • Question Question
tri et export
Réponses
4
Affichages
489
lescoches
L
  • Question Question
XL 2021 Intégration de données et userfom
Réponses
9
Affichages
1 K
100kibou
T
  • Question Question
XL 2019 Désactiver "Option Explicit" par VBA
Réponses
4
Affichages
1 K
ThierryP
T
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
682
Lu76Fer
A
  • Résolu(e)
Microsoft 365 Formule indirect?
Réponses
4
Affichages
785
AlexiaC
A
T
  • Résolu(e)
Microsoft 365 VBA code filtre auto en boucle - plusieurs critères
2
Réponses
28
Affichages
3 K
tnion
T
M
  • Résolu(e)
XL 2016 Problème extension tableau + code VBA long
Réponses
5
Affichages
758
fanfan38
M
  • Question Question
Microsoft 365 N'afficher que la dernière ligne d'un tableau dans listbox
Réponses
9
Affichages
961
meyscal
M
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
  • Résolu(e)
XL 2016 Problèmes de Range, tentative de boucle entre 2 fichiers
Réponses
4
Affichages
873
R3n0W
Y
  • Résolu(e)
Microsoft 365 Fermeture d'un Fichier Excel si celui-ci est déjà ouvert
Réponses
12
Affichages
2 K
Yoyo60
Y
XLS : Créer une animation fluide sans Crash (ou presque) !
Réponses
7
Affichages
1 K
Lu76Fer
C
  • Question Question
XL 2016 liste déroulante dans combobox
Réponses
4
Affichages
2 K
Compte Supprimé 979
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…