formulation optionbuton si non cocher ouvrir une messagebox vbOKCancel

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion fan2foot
  • 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

fan2foot

XLDnaute Nouveau
Bonjour;

J'ai un souci avec une formule en VBA, j'ai 1 groupement de 10 options button, chaque bouton cocher provoque une action différente, si aucun bouton est cocher une message box (vbokcancel) s'ouvre. Le problème c'est que lorsque je clic sur annuler, la procédure ne s’arrête pas et ma feuille de calcul se remplit. Moi je souhaiterais lorsque je clic sur annulé pouvoir retourner à mon userform en ayant gardé en mémoire les cases que j'avais cochées avant d’avoir cliqué sur enregistrer et que ma feuille ne se soit pas quand même rempli des information que j'ai noté.
Je pense qu'il faut d'abord mettre la condition pour ouvrir la messagebox et après mes condition pour remplir ma feuille. Le problème c'est que je ne trouve pas la bonne formulation.
voici mon code actuel.
Code: 
If banco1.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 2)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 1"
       ElseIf banco2.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 3)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 2"
       ElseIf banco3.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 4)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 3"
       ElseIf banco4.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 5)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 4"
       ElseIf banco5.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 6)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 5"
       ElseIf banco6.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 7)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 6"
       ElseIf banco7.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 8)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 7"
       ElseIf banco8.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 9)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 8"
       ElseIf banco9.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 10)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 9"
       ElseIf banco10.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 11)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 10"
    Else 'Si non coché ...
        Dim Rep4 As Integer
        Rep4 = MsgBox("Valider sans utiliser le banco ?", vbOKCancel)
        If Rep4 = vbCancel Then Exit Sub
        Sheets("pronostic").Cells(no_ligne, 12) = ""
    End If
 
Trier par date Trier par votes
Re : formulation optionbuton si non cocher ouvrir une messagebox vbOKCancel

Bonsoir fan2foot.
Sans fichier je ne peux pas tester mon hypothèse.
Mais pourquoi n'inverserais-tu pas ta condition :
Code: 
If banco1.Value = False Then
Dim Rep4 As Integer
        Rep4 = MsgBox("Valider sans utiliser le banco ?", vbOKCancel)
        If Rep4 = vbCancel Then Exit Sub
        Sheets("pronostic").Cells(no_ligne, 12) = ""
Else:
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 2)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 1"
       ElseIf banco2.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 3)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 2"
       ElseIf banco3.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 4)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 3"
       ElseIf banco4.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 5)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 4"
       ElseIf banco5.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 6)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 5"
       ElseIf banco6.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 7)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 6"
       ElseIf banco7.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 8)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 7"
       ElseIf banco8.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 9)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 8"
       ElseIf banco9.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 10)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 9"
       ElseIf banco10.Value = True Then 'Si coché ...
       Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 11)
       Sheets("pronostic").Cells(no_ligne, 12) = "match 10"       
    End If
 
Vote positif 0 Vote négatif
Re : formulation optionbuton si non cocher ouvrir une messagebox vbOKCancel

bonsoir,
merci de ta réponse je ne savais pas qu'on pouvait aussi mettre des "elseIf" dans la partie else.
Merci de ton aide en mettant le code au tout début de ma commande Private Sub, j'obtient exactement l'effet escompter.
Encore merci pour ta réponse rapide.
 
Vote positif 0 Vote négatif
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

K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
99
KRUG WOO
K
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
302
Latias
L
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
736
laurent950
laurent950
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
792
Mody200
M
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
334
Gestionnaire_rh
G
G
  • Question Question
Microsoft 365 Réduire la taille de la macro ?
Réponses
9
Affichages
847
Staple1600
Staple1600
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
2 K
Banbara
B
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
422
ZiM
Z
T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
531
troki74
T
H
  • Question Question
Microsoft 365 Besoin aide : Erreur code macro . Problème est résolu
Réponses
7
Affichages
878
heart clean
H
Usine à gaz
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
605
Usine à gaz
Usine à gaz
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
128
JJ69
J
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
473
guiyom
G
C
  • Résolu(e)
XL 2013 afficher image dans Userform via HyperText
Réponses
5
Affichages
817
Cyril-neo
C
Usine à gaz
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
606
Usine à gaz
Usine à gaz
I
  • Résolu(e)
XL 2019 Supprimer une ligne d'une base de données une fois qu'elle est transférée sur une autre feuille
Réponses
8
Affichages
601
Isabellisa
I
M
  • Question Question
XL 2016 Problème Exit For
Réponses
8
Affichages
924
dysorthographie
dysorthographie
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
1 K
pelerin65
P
Retour