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

XL 2019 Choisir une case ou l'autre

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Fatruck
  • 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
F

Fatruck

XLDnaute Nouveau
Bonjour,

j'ai avancé dans mon projet (je suis novice sur Excel) mais je suis bloqué à un endroit : je n'arrive pas à obliger le choix entre plusieurs cases à cocher. Par exemple dans mon fichier je veux que l'on est le choix entre "Maison" ou "Appartement", c'est soit l'un, soit l'autre mais on ne doit pas pouvoir cocher les deux. Pour "Franchise" on doit pouvoir uniquement cocher l'une des 4 cases à cocher (soit 300 ou 200 ou 100 ou 0) mais je parviens pas à le faire moi-même… De l'aide serait la bienvenue 🙂

Bonne soirée à vous
 

Pièces jointes

Trier par date Trier par votes
Bonjour à tous 🙂,

Un essai de formulaire
  • sans objet "contrôle de formulaire" ou "ActiveX"
  • avec des pseudo cases à cocher.
  • un bouton pour la RAZ
  • un bouton pour vérifier si toutes les rubriques sont renseignées
  • une feuille "Résultat" qui indique le contenu de chaque rubrique (erreur #N/A si pas renseignée)
A partir de la feuille "Résultat", le devis est très probablement facile à faire puisque toutes les options cochées y figurent.

Le code (assez limité) est dans le module de la feuille "Formulaire". Il utilise l'évènement Worksheet_SelectionChange.
VB: 
Option Explicit
Const codCoch = 254, codDecoch = 168, Police = "Wingdings"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count = 1 Then LigneType Target
End Sub

Sub LigneType(cible As Range)
Dim lig&, col&
   lig = cible.Row: col = cible.Column
   If lig >= 10 And lig <= 17 And (col = Range("i1").Column Or col = Range("n1").Column) Then
      Union(Cells(lig, "i"), Cells(lig, "n")) = Chr(codDecoch)
      Cells(lig, col) = Chr(codCoch)
      Application.EnableEvents = False: Cells(lig + 1, 1).Activate: Application.EnableEvents = True
   ElseIf lig = 18 And (col = Range("i1").Column Or col = Range("L1").Column Or col = Range("O1").Column Or col = Range("r1").Column) Then
      Union(Cells(lig, "i"), Cells(lig, "L"), Cells(lig, "O"), Cells(lig, "r")) = Chr(codDecoch)
      Cells(lig, col) = Chr(codCoch)
      Application.EnableEvents = False: Cells(lig + 1, 1).Activate: Application.EnableEvents = True
   ElseIf (lig >= 22 And lig <= 27) Or (lig >= 29 And lig <= 32) Or (lig >= 34 And lig <= 36) Then
      If (col = Range("j1").Column Or col = Range("m1").Column Or col = Range("p1").Column) Then
         Union(Cells(lig, "j"), Cells(lig, "m"), Cells(lig, "p")) = Chr(codDecoch)
         Cells(lig, col) = Chr(codCoch)
         Application.EnableEvents = False: Cells(lig + 1, 1).Activate: Application.EnableEvents = True
      End If
   End If
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re @patricktoulon 🙂

patricktoulon à dit:
bonjour mapomme joli tu t'es bien amusé
Cliquez pour agrandir...

Un p'ti peu oui. Le plus long n'est pas l'écriture du code qui est simple mais la construction du formulaire (et je n'ai fourni que la dernière version 😛)

@Fatruck,
Je ne commente jamais mes codes sauf:
  • si j'en éprouve le besoin pour moi-même
  • si on me le demande (gentiment 😉)
 
Dernière édition:
Vote positif 0 Vote négatif
Fatruck à dit:
Alors dans VBA j'ai le simulateur de prime qui s'affiche maintenant mais je ne peux pas le remplir, quand je clique sur une case il ne se passe rien et quand je double-clique dessus ça me renvoie vers le code. J'ai fait une capture de ce que j'ai
Cliquez pour agrandir...


La macro complémentaire Morefunc n'est pas utile il faut décocher cette référence.

Réessayez d'ouvrir le formulaire avec le bouton de la feuil1

Normal que dans l'éditeur VBA le formulaire ne fonctionne pas il est en mode création.
 
Vote positif 0 Vote négatif
re
@mapomme
je l'ai fait avec un select case
VB: 
Option Explicit
Const codCoch = 254, codDecoch = 168, Police = "Wingdings"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then coche Target
End Sub

Sub coche(cible As Range)
    Dim rngbase As Range
    Select Case cible.Row
    Case 10 To 15
        If (cible.Column = 9 Or cible.Column = 14) Then
            Union(Cells(cible.Row, 9), Cells(cible.Row, 14)) = Chr(codDecoch)
            cible = Chr(codCoch)
        End If
    Case 18
        If (cible.Column = 9 Or cible.Column = 12 Or cible.Column = 15 Or cible.Column = 18) Then
            Union(Cells(cible.Row, 9), Cells(cible.Row, 12), Cells(cible.Row, 15), Cells(cible.Row, 18)) = Chr(codDecoch)
            cible = Chr(codCoch)
        End If
    Case 22 To 27, 29 To 32
        If (cible.Column = 10 Or cible.Column = 13 Or cible.Column = 16) Then
            Union(Cells(cible.Row, 10), Cells(cible.Row, 13), Cells(cible.Row, 16)) = Chr(codDecoch)
            cible = Chr(codCoch)
        End If
    End Select
End Sub
au final pour un code générique j'aurais même du caser les colonnes aussi 😉
 
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

Discussions similaires

M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
271
mimednejma
M
J
  • Question Question
Microsoft 365 répartition des pourboire au service
Réponses
6
Affichages
198
Jean-Eric
S
  • Question Question
Microsoft 365 Planning : suppression de l'enregistrement pour les samedis, Dimanches et jours fériés si case cochée.
Réponses
11
Affichages
324
Cousinhub
A
  • Résolu(e)
Microsoft 365 Insertion case à cocher
2
Réponses
18
Affichages
1 K
mapomme
I
  • Question Question
XL 2016 Supprimer "vrai" ou "faux" dans une case à cocher
Réponses
6
Affichages
1 K
migau
  • Résolu(e)
XL 2010 inhiber evenement
Réponses
13
Affichages
571
cathodique
B
  • Résolu(e)
XL 2016 suivi de projet
Réponses
2
Affichages
667
BRUNO GILL
B
O
  • Question Question
XL 2021 finaliser un script VBA pour répartir une liste de personnes dans des villes.
2
Réponses
19
Affichages
468
gbinforme
G
L
  • Résolu(e)
Power Query Problème de fusion de données entre deux fichiers Excel sous Power Query
Réponses
8
Affichages
289
chris
S
  • Question Question
XL 2016 créer une liste sur le 2e onglet en cochant le 1er onglet
Réponses
3
Affichages
434
shitoryu
S
P
  • Question Question
Microsoft 365 Calcul décompte horaire sur plusieurs plages
Réponses
5
Affichages
264
Gégé-45550
L
  • Question Question
Microsoft 365 Saisie autorisée dans l'une ou l'autre colonne selon condition
Réponses
2
Affichages
305
Leguyl
L
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
2 K
Banbara
B
  • Résolu(e)
XL 2019 Répartition somme selon plusieurs valeurs
Réponses
4
Affichages
326
TheFFF
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
387
TomJoad
T
D
  • Question Question
Microsoft 365 Calculer et actualiser une moyenne de délais de traitement
Réponses
3
Affichages
346
goube
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
447
pvander
P
M
  • Résolu(e)
XL 2021 Calcul en fonction valeur case,colonne <date & texte case,colonne
Réponses
5
Affichages
457
sylvanu
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
669
Nel'
N
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
252
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…